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



Содержание раздела