Как конвертировать RGB в TColor
Материал из DRKB
function RGBToColor(R, G, B: Byte): TColor;
begin
Result := (B shl 16) or (G shl 8) or R;
end;
Source: http://forum.sources.ru
ID: 03683
RGB -> TColor
RGB(r, g, b: Byte): TColor
TColor -> RGB
GetRValue(Color: TColor) GetGValue(Color: TColor) GetBValue(Color: TColor)
Author: Vit
Source: http://forum.vingrad.ru
ID: 03684