Как конвертировать RGB в TColor function RGBToColor(R, G, B: Byte): TColor; begin Result := B shl 16 or G shl 8 or R; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
function RGBToColor(R, G, B: Byte): TColor; begin Result := B shl 16 or G shl 8 or R; end;
Как конвертировать RGB в TColor