Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.02;
Скачать: CL | DM;

Вниз

цвет TColor в формат цвета фотошопа(и не только)..   Найти похожие ветки 

 
Nekroraise   (2009-06-05 22:03) [0]

Подскажите как конвертировать цвет TColor в формат цвета как фотошопе представляется. К примеру в фотошопе #646bff - это фиолетовый
а если в программе вставляю 0x646bff выходит красноватый


 
Игорь Шевченко ©   (2009-06-05 22:09) [1]

в TColor $646bFF это 64=B 6b=G FF=R
В фотошопе 646bFF это 64=R 6b=G FF=B
чтобы получить такой цвет в TColor, его надо записать как $FF6b64


 
Nekroraise   (2009-06-06 00:04) [2]

хм, а менять их местами как я полагаю надо как то с помощью побитовых операций? =)


 
Игорь Шевченко ©   (2009-06-06 00:10) [3]

Вот что предлагает Delphi (D2006) в юните GraphUtil.pas

function WebColorToRGB(WebColor: Integer): Integer;
begin
 Result := StrToInt(Format("$%.2x%.2x%.2x", [GetRValue(WebColor),
   GetGValue(WebColor), GetBValue(WebColor)]));  { do not localize }
end;

function RGBToWebColorStr(RGB: Integer): string;
begin
 Result := UpperCase(Format("#%.2x%.2x%.2x", [GetRValue(RGB),
   GetGValue(RGB), GetBValue(RGB)]));  { do not localize }
end;

WebColor - это то самое, что у фотошопа


 
Германн ©   (2009-06-06 01:22) [4]


> Игорь Шевченко ©   (06.06.09 00:10) [3]
>
> Вот что предлагает Delphi (D2006) в юните GraphUtil.pas

Вот интересно!
WebColor на входе используется как Integer, а на выходе как Integer. В то время как RGB в обоих случаях как Integer.


 
Игорь Шевченко ©   (2009-06-06 01:31) [5]

Германн ©   (06.06.09 01:22) [4]


> WebColor на входе используется как Integer, а на выходе
> как Integer


как string, ты имел в виду. Так оно понятно - RGB в WEB-страницу не засунешь на ходу


 
Германн ©   (2009-06-06 01:43) [6]


> Игорь Шевченко ©   (06.06.09 01:31) [5]
>
> Германн ©   (06.06.09 01:22) [4]
>
>
> > WebColor на входе используется как Integer, а на выходе
> > как Integer
>
>
> как string, ты имел в виду. Так оно понятно - RGB в WEB-
> страницу не засунешь на ходу
>

Да. Копипаст подвёл, а я и не заметил. :(
Но ведь из WEB-страницы Integer извлечь "на ходу" тоже трудновато. :)



Страницы: 1 вся ветка

Текущий архив: 2009.08.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
2-1243606008
Deltas
2009-05-29 18:06
2009.08.02
Консольное приложение


15-1243943187
Petro
2009-06-02 15:46
2009.08.02
Сводка файла базы


11-1204559200
MiniQ9
2008-03-03 18:46
2009.08.02
FreePascal - Linux - KOL, как подружить?


4-1213304094
ply
2008-06-13 00:54
2009.08.02
Сделать фото с веб-камеры


15-1243456205
Юрий
2009-05-28 00:30
2009.08.02
С днем рождения ! 28 мая 2009 четверг