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

Вниз

Color   Найти похожие ветки 

 
Shrek ©   (2002-10-02 20:45) [0]

Как имея цвет в ввиде 1258746 разбить на R, G, B?


 
TTCustomDelphiMaster ©   (2002-10-02 21:05) [1]

type
TRGBColor = record
case Integer of
0: (Color: TColor);
1: (B, G, R, Palette: Byte);
end;
var
a: TRGBColor;
begin
a.Color := $ABCDEF;
ShowMessage(inttohex(a.R, 2) + ";" + inttohex(a.G, 2) + ";" + inttohex(a.B, 2));
end;


 
rhf ©   (2002-10-02 21:11) [2]

GetBValue
GetGValue
GetRValue


 
Shrek ©   (2002-10-02 21:14) [3]

Спасибо. Работает!



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-45248
ДСН
2002-10-03 14:56
2002.10.14
Вывод информации на печать и её предварительный просмотр.


3-45234
Шурик Ш
2002-09-24 11:23
2002.10.14
Редактирование DBGrid


4-45631
Vvedensk
2002-08-29 16:00
2002.10.14
Буфер обмена в Windows.


1-45461
Граф
2002-10-04 06:04
2002.10.14
F1- help ошбика при использовании потока TThread


7-45605
TiredDmitry
2002-08-04 18:46
2002.10.14
Как запретить Пуск, CTRL+ALT+Del и ALT+TAB в WinXP?