Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.015 c