Создал программу получения нового цвета при смешивания двух цветов, но выдает ошибку

[ss1112]

Суть программы состоит в том что, нужно смешать два цвета и получить при их смешивание цвет.

вот программа:

procedure TForm1.Button1Click(Sender: TObject);
  var r1,g1,b1,r2,g2,b2:integer;
begin
r1:=120;g1:=120;b1:=120;
r2:=10;g2:=200;b2:=150;
Panel1.Color:=RGB(r1,g1,b1);
Panel2.Color:=RGB(r2,g2,b2);
Panel3.Color:=RGB((r1+r2)div 2,(g1+g2) div 2,(b1+b2) div 2);
end;

ошибка: identifier not found "RGB"

[Aleksandr H.]

http://forum.lazarus.freepascal.org/...p?topic=1688.0

the function RGB is defined in the unit LCLIntf

[ss1112]

как это понять?

[type_Oleg]

Сообщение от ss1112

как это понять?

Добавить в uses модуль LCLIntf. Если у вас Lazarus.
Потому что функция RGB описана там.

[ss1112]

Спасибо все получилось)