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

Информатика. Программирование в Delphi
313
TrackBar2.Min:=0;
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;
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;
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;
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;
end.