Как конвертировать 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