Функция 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