Работа с графикой в delphi

Лабораторная  работа №4

Цель  работы: научиться работать с графикой с использованием языка программирования высокого уровня Delphi.

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Image1.Width:= StrToInt(Edit3.Text);

  Image1.Height:= StrToInt(Edit4.Text);

  Image1.Picture.Bitmap.Width:= StrToInt(Edit3.Text);

  Image1.Picture.Bitmap.Height:= StrToInt(Edit4.Text);

  Image1.Canvas.Brush.Color:=ColorBox3.Selected;

  Image1.Canvas.Pen.Color:=ColorBox3.Selected;

  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  x:=StrToInt(Edit1.Text);

  y:=StrToInt(Edit2.Text);

  w:=StrToInt(Edit6.Text);

  h:=StrToInt(Edit5.Text);

  Image1.Canvas.Brush.Color:=ColorBox2.Selected;

  Image1.Canvas.Pen.Color:=ColorBox1.Selected;

  case ComboBox1.ItemIndex of

    0: Image1.Canvas.Ellipse(x,y,x+w,y+w);

    1: Image1.Canvas.Ellipse(x,y,x+w,y+h);

    2: Image1.Canvas.Rectangle(x,y,x+w,y+w);

    3: Image1.Canvas.Rectangle(x,y,x+w,y+h);

  end;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

  Image1.Canvas.Brush.Color:=ColorBox3.Selected;

  Image1.Canvas.Pen.Color:=ColorBox3.Selected;

  Image1.Canvas.Rectangle(x,y,x+w,y+h);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Image1.Canvas.Brush.Color:=clWhite;

  Image1.Canvas.Pen.Color:=clWhite;

  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

end;

end.

 

 

 

 

 

 

 

 

 

 

Вывод: при выполнении данной лабораторной работы мы научились работать с графикой с использованием языка программирования высокого уровня Delphi.