Стр. 311 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
311
//выполняется при изменении свойста Position для TrackBar2
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
//цвет заливки
Image1.Canvas.Brush.Color:=
RGB(TrackBar1.Position,TrackBar2.Position,TrackBar3.Position);
//отрисовка закрашенного прямоугольника
Image1.Canvas.FillRect(rect(0,0,Image1.Width,Image1.Height));
//вывод индекса цвета
Label5.Caption:=IntToStr(TrackBar2.Position);
end;
6. В инспекторе объектов для компонента TrackBar3 создайте процедуру
TrackBar3Change – обработчик события OnChange.
//выполняется при изменении свойста Position для TrackBar3
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
//цвет заливки
Image1.Canvas.Brush.Color:=
RGB(TrackBar1.Position,TrackBar2.Position,TrackBar3.Position);
//отрисовка закрашенного прямоугольника
Image1.Canvas.FillRect(rect(0,0,Image1.Width,Image1.Height));
//вывод индекса цвета
Label6.Caption:=IntToStr(TrackBar3.Position);
end;
7. Запустите приложение рис. 26.3.
Рис. 26.3
8. Окончательный вариант приложения приведен в листинге 26.1. Ком-
ментарии удалены.