Как конвертировать 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
Содержание Назад Вперед