| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Color [D6, Win2k]
Shrek © (2002-10-02 20:45:00)Как имея цвет в ввиде 1258746 разбить на R, G, B?
Shrek (2002-10-02 21:14:00) [1]Спасибо. Работает!
rhf (2002-10-02 21:11:00) [2]GetBValue
GetGValue
GetRValue
TTCustomDelphiMaster (2002-10-02 21:05:00) [3]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;
| |
