Delphi - база знаний


Как конвертировать RGB в TColor


Как конвертировать RGB в TColor



functionRGBToColor(R,G,B:Byte): TColor; 
begin 
       Result:=B Shl 16 Or
       G Shl 8 Or
       R;
end

Взято с Исходников.ru

RGB -> TColor



RGB(r,g,b:byte):tcolor

TColor -> RGB

GetRValue(color:tcolor)
GetGValue(color:tcolor)
GetBValue(color:tcolor) 

Автор ответа: Vit
Взято с Vingrad.ru



Начало  Назад  Вперед



Книжный магазин