Функция RGB

[Илья Аввакумов]

Существует ли аналог функции RGB? Нужно создать случайный цвет. В Delphi присваивание

Код: Выделить всё

 cl := RGB(random(255),random(255),random(255));

работает, а Lazarus функцию RGB не распознает. Может, она в доп модуле каком-нибудь?

[Иван Шихалев]

Код: Выделить всё

function RGB(R,G,B : byte) : longint;
   var
       temp : packed record
                 R, G, B, Dummy : byte; 
                 end;
   begin
   temp.R := R;
   temp.G := G;
   temp.B := B;
   temp.Dymmy := 0;
   result := longint(temp)
   end;

[MaximK]

Нашел встроенную функцию :

function RGBToColor(R, G, B: integer): TColor;

модуль Graphics