Практична робота в Delphi "Підбір кольору"

Подбор цвета

Panel1

ScrollBar1

ScrollBar2

ScrollBar3

Для элемента Panel1 в свойстве Caption написать «ПОДБОР ЦВЕТА»

Дописать процедуры:

procedure SetPanelColor;

var red, green, blue : word;

begin

  red := Form1.ScrollBar1.Position;

  green := Form1.ScrollBar2.Position;

  blue := Form1.ScrollBar3.Position;

  Form1.Panel1.Color:=RGB(red, green, blue);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

  SetPanelColor;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

    SetPanelColor;

end;

procedure TForm1.ScrollBar3Change(Sender: TObject);

begin

    SetPanelColor;

end;