unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class
(TForm)
Button1: TButton;
Image1: TImage;
Button2: TButton;
Button3: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
private
public
end
;
var
Form1: TForm1;
Var
x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,x8:
integer
;
implementation
{$R *.dfm}
procedure
TForm1
.
Button1Click(Sender: TObject);
begin
With
canvas
do
begin
x:=
0
;
y:=
0
;
x1:=
4
;
y1:=
2
;
x2:=
10
;
y2:=
10
;
x3:=
16
;
y3:=
12
;
x4:=
23
;
y4:=
18
;
x5:=
30
;
y5:=
20
;
x6:=
36
;
y6:=
40
x7:=
40
x8:=
20
Image1
.
Canvas
.
Moveto(x,y);
Image1
.
Canvas. Lineto(x7,y);
Image1
.
Canvas. Lineto(x7,y5);
Image1
.
Canvas. Lineto(x8,y6);
Image1
.
Canvas. Lineto(x,y6);
Image1
.
Canvas. Lineto(x,y);
Image1
.
Canvas
.
Moveto(x1,y2);
Image1
.
Canvas. Lineto(x2,y2);
Image1
.
Canvas. Lineto(x2,y4);
Image1
.
Canvas. Lineto(x1,y4);
Image1
.
Canvas. Lineto(x1,y2);
Image1
.
Canvas
.
Moveto(x5,y2);
Image1
.
Canvas. Lineto(x6,y2);
Image1
.
Canvas. Lineto(x6,y4);
Image1
.
Canvas. Lineto(x5,y4);
Image1
.
Canvas. Lineto(x5,y2);
Image1
.
Canvas
.
Moveto(x3,y1);
Image1
.
Canvas. Lineto(x4,y1);
Image1
.
Canvas. Lineto(x4,y3);
Image1
.
Canvas. Lineto(x3,y3);
Image1
.
Canvas. Lineto(x3,y1);
end
;
end
;
procedure
TForm1
.
Button2Click(Sender: TObject);
begin
Image1
.
Canvas
.
pen
.
color:=clWhite;
Image1
.
Canvas
.
Moveto(x3,y1);
Image1
.
Canvas. Lineto(x4,y1);
Image1
.
Canvas. Lineto(x4,y3);
Image1
.
Canvas. Lineto(x3,y3);
Image1
.
Canvas. Lineto(x3,y1);
Image1
.
Canvas
.
pen
.
color:=clBlack;
x3:=x3-
4
;
x4:=x4-
4
;
Image1
.
Canvas
.
Moveto(x3,y1);
Image1
.
Canvas. Lineto(x4,y1);
Image1
.
Canvas. Lineto(x4,y3);
Image1
.
Canvas. Lineto(x3,y3);
Image1
.
Canvas. Lineto(x3,y1);
end
;
procedure
TForm1
.
Button3Click(Sender: TObject);
begin
Image1
.
Canvas
.
pen
.
color:=clWhite;
Image1
.
Canvas
.
Moveto(x1,y2);
Image1
.
Canvas. Lineto(x2,y2);
Image1
.
Canvas. Lineto(x2,y4);
Image1
.
Canvas. Lineto(x1,y4);
Image1
.
Canvas. Lineto(x1,y2);
Image1
.
Canvas
.
Moveto(x5,y2);
Image1
.
Canvas. Lineto(x6,y2);
Image1
.
Canvas. Lineto(x6,y4);
Image1
.
Canvas. Lineto(x5,y4);
Image1
.
Canvas. Lineto(x5,y2);
Image1
.
Canvas
.
pen
.
color:=clBlack;
x1:=x1-
4
;
x2:=x2-
4
;
x5:=x5-
4
;
x6:=x6-
4
;
Image1
.
Canvas
.
Moveto(x1,y2);
Image1
.
Canvas. Lineto(x2,y2);
Image1
.
Canvas. Lineto(x2,y4);
Image1
.
Canvas. Lineto(x1,y4);
Image1
.
Canvas. Lineto(x1,y2);
Image1
.
Canvas
.
Moveto(x5,y2);
Image1
.
Canvas. Lineto(x6,y2);
Image1
.
Canvas. Lineto(x6,y4);
Image1
.
Canvas. Lineto(x5,y4);
Image1
.
Canvas. Lineto(x5,y2);
end
;
end
.