Re: RGB to CMYK i obratno / Компютри и Интернет / Delphi

търси в

Клубове

diri.bg


Име
Парола

• Нов потребител

• Забравена парола

Клубове

• Dir.bg
• Взаимопомощ
• Горещи теми
• Компютри и Интернет
• Контакти
• Култура и изкуство
• Мнения
• Наука
• Политика, Свят
• Спорт
• Техника
• Градове
• Религия и мистика
• Фен клубове
• Хоби, Развлечения
• Общества
• Я, архивите са живи

05:24 02.07.24

Компютри и Интернет
>> Delphi

Тема	RGB to CMYK i obratno
Автор	XE (новак)
Публикувано	03.02.02 08:22

niamam kvo da kaja ako niakoy znay da kazva.

10x

Тема	Re: RGB to CMYK i obratno [re: XE]
Автор	AquilaX (познат)
Публикувано	03.02.02 18:37

Ето ти едно решение на Borland

Съдържаниет е скрито
Влезте за да го видите

procedure RGBTOCMYK(R : byte;
G : byte;
B : byte;
var C : byte;
var M : byte;
var Y : byte;
var K : byte);
begin
C := 255 - R;
M := 255 - G;
Y := 255 - B;
if C < M then
K := C else
K := M;
if Y < K then
K := Y;
if k > 0 then begin
c := c - k;
m := m - k;
y := y - k;
end;
end;

procedure CMYKTORGB(C : byte;
M: byte;
Y : byte;
K : byte;
var R : byte;
var G : byte;
var B : byte);
begin
if (Integer(C) + Integer(K)) < 255 then
R := 255 - (C + K) else
R := 0;
if (Integer(M) + Integer(K)) < 255 then
G := 255 - (M + K) else
G := 0;
if (Integer(Y) + Integer(K)) < 255 then
B := 255 - (Y + K) else
B := 0;
end;

procedure ColorCorrectCMYK(var C : byte;
var M : byte;
var Y : byte;
var K : byte);
var
MinColor : byte;
begin
if C < M then
MinColor := C else
MinColor := M;
if Y < MinColor then
MinColor := Y;
if MinColor + K > 255 then
MinColor := 255 - K;
C := C - MinColor;
M := M - MinColor;
Y := Y - MinColor;
K := K + MinColor;
end;

AquilaX

____________
умният знае кога да говори, мъдрият знае кога да мълчи

Тема	Re: RGB to CMYK i obratno [re: AquilaX]
Автор	XE (новак)
Публикувано	04.02.02 06:57

10x AquilaX

samo da te pitam shoto sym 4uval 4e ima razli4ni CMYK-ove i sa s licenzi na Corel-a bil edin Photoshop-a drug. Photoshop-a bil s nay doblijavashtia se do istinata ti kakvo si mi dal?

Тема	Re: RGB to CMYK i obratno [re: XE]
Автор	AquilaX (познат)
Публикувано	04.02.02 10:39

Ами не знам аз да има повече CMYK-ове но е възможно. Ами виж статията там може да пише нещо по подровно линк-а го има в предишния постинг.

AquilaX

____________
умният знае кога да говори, мъдрият знае кога да мълчи

Тема	Re: RGB to CMYK i obratno [re: XE]
Автор	naki (0xdeadcafe)
Публикувано	07.02.02 08:26

Това със многото СМУК-ове е при принтери, монитори, скенери и т.н. Зависи от профилите (файлове със цветови съотношения), които са различни за Корел и Адобе и затова се получават разлики. Поне така си мисля...

Няма нищо общо със формула... Виж тук съм сигурен - формулата е единствена, няма варианти...

Тема	Re: RGB to CMYK i obratno - Te towa e [re: XE]
Автор	PhantomAS (стар ерген®)
Публикувано	07.02.02 10:00

Mnogo me marzeshe da go tarsia - ama mislia 4e si struwa -

Begaj da se proswestawash

po dobro ot towa ne znam

[url] http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Color.htm [url]

P.S. - ne za drugo - ama proveriawaj arhivite - tozi link sam go puskal oste pone vednaj - Dir-a si ima funkcia za tarsene wse pak

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите

Тема	Re: RGB to CMYK i obratno - Te towa e [re: PhantomAS]
Автор	XE ()
Публикувано	08.02.02 07:02

10x PhantomAS - po 4esto da proveriavash arhivite.

otnosno tyrsa4kata na dira kak se polzva i izobshto polzva li se niakak

Тема	Re: RGB to CMYK i obratno - Te towa e [re: XE]
Автор	PhantomAS (стар ерген®)
Публикувано	08.02.02 13:05

ами не е много сложно - слу4вало ми се е да я ползвам - погледни горе до връзката Клубове - има връзка Дирене - това е

Добре работи - само 4е нямаме много голям архив за търсене (в Delphi форума де)

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите

Тема	Re: RGB to CMYK i obratno [re: XE]
Автор	XE ()
Публикувано	09.02.02 02:13

abe sha ma izviniavata mnogo ama tva deto mi go dadohte convertira RGB vyv CMYK kolko az moga da tyrsia itemi i subitemi v TListView.
1 - ne go vadi procenti a dokolkoto znam CMYK-a e se izraziava v procenti a ne ot 0-255.
2 - funkciikata RGBTOCMYK konvertira no ako si napravite truda da sravnite s PhotoShop 5.0(ne znam dali versiata ima zna4eni, predpolagam 4e ne si izmeniata algoritmite ot versia na versia) ta stavashe duma 4e CMYK-a koyto az polu4avam i CMYK-a na PhotoShop-a e neshto koeto e dostoyno za rubrikata otkriite desete razliki

Shto taka? Niakoy moje li da mi obiasni kvo staa?A?

Клуб :

Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg

За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.