I mavzu: Axborot haqida tushuncha

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Shape1.Brush.Color:=clred;
1: Shape1.Brush.Color:=clblue;
2: Shape1.Brush.Color:=clgreen;
end;
end;
ColorBox1 komponentadan foydalanib ham to`g`ri to`rtburchakni bo`yash mumkin


procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Shape1.Brush.Color:=ColorBox1.Selected;
end;
Gorizontal surgich (TrackBar1 komponentasi) to`g`ri to`rtburchakni kengligini uzgartiradi


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Shape1.Width:=50+TrackBar1.position;
progressBar1.position:=trunc(Shape1.Height*Shape1.Widthg100);
end;
Vertikal surgich (TrackBar2 komponentasi) to`g`ri to`rtburchakni balandligini o`zgartiradi. progressBar1 komponentasi to`g`ri to`rtburchakni yuzasi o`sishini ko`rsatadi
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Shape1.Top:k100+TrackBar2.position;
progressBar1.position:=trunc(Shape1.Height*Shape1.Widthg100);
Shape1.Height:=50-TrackBar2.position;
end;
popupMenu1 komponentasidan foydalanib, 9-komponenta Image1 komponentasi mos ravishda Windows rasmlarini ko`rish imkoniyatini yaratadi:


procedure TForm1.Ormon1Click(Sender: TObject);
begin
Image1.picture.LoadFromFile(pc:\Windows\rasm1.bmpp);
end;


procedure TForm1. Osmon1Click(Sender: TObject);
begin
Image1.picture.LoadFromFile(pc:\Windows\oblaka.bmpp);
end;


procedure TForm1. parket1Click(Sender: TObject);
begin
Image1.picture.LoadFromFile(pc:\Windows\parket.bmpp);
end;