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
