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

Информатика. Программирование в Delphi
310
//минимальное значение диапазона
TrackBar3.Min:=0;
//максимальное значение диапазона
TrackBar1.Max:=255;
//максимальное значение диапазона
TrackBar2.Max:=255;
//максимальное значение диапазона
TrackBar3.Max:=255;
//позиция ползунка
TrackBar1.Position:=0;
//позиция ползунка
TrackBar2.Position:=0;
//позиция ползунка
TrackBar3.Position:=0;
//стиль рисок
TrackBar1.TickStyle:=tsNone;
//стиль рисок
TrackBar2.TickStyle:=tsNone;
//стиль рисок
TrackBar3.TickStyle:=tsNone;
//заголовок компонента
Panel1.Caption:='';
//внешние границы
Panel1.BevelInner:=bvLowered;
//внутренние границы
Panel1.BevelOuter:=bvLowered;
end;
4. В инспекторе объектов для компонента TrackBar1 создайте процедуру
TrackBar1Change – обработчик события OnChange.
//выполняется при изменении свойста Position
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
//цвет заливки
Image1.Canvas.Brush.Color:=
RGB(TrackBar1.Position,TrackBar2.Position,TrackBar3.Position);
//отрисовка закрашенного прямоугольника
Image1.Canvas.FillRect(rect(0,0,Image1.Width,Image1.Height));
//вывод индекса цвета
Label4.Caption:=IntToStr(TrackBar1.Position);
end;
5. В инспекторе объектов для компонента TrackBar2 создайте процедуру
TrackBar2Change – обработчик события OnChange.