I.
Deskripsi
Program
Program ini merupakan program menggambar.
Program ini memiliki f.ungsi yang mirip dengan Paint untuk menggambar hanya
lebih sederhana. Pada program ini di gunakan komponen openpicturedialog dan
savepicturedialo yang di gunakan untuk
membuka dan menyimpan gambar.
II.
Interface
Program
III.
Coding
Program
|
Nama
Komponen
|
Event
|
Perintah
|
|
|
Button1
|
OnClick
|
procedure TForm1.Button1Click(Sender: TObject);
begin
with image1,
canvas do
begin
Canvas.Pen.Width:=10;
Canvas.Ellipse(100,250,200,350);
Canvas.Ellipse(300,250,400,350);
Canvas.Pen.Style:=psDot;
Canvas.Pen.Width:=2;
Canvas.Ellipse(139,288,163,312);
Canvas.Ellipse(335,285,365,315);
Canvas.Pen.Width:=5;
Canvas.Polyline([point(150,300),point(220,240)]);
Canvas.Polyline([point(150,300),point(250,310)]);
Canvas.Pen.Width:=4;
Canvas.Polyline([point(250,310),point(200,190)]);
Canvas.Polyline([point(250,310),point(320,220)]);
Canvas.Polyline([point(220,240),point(320,220)]);
Canvas.Polyline([point(348,300),point(315,200)]);
Canvas.Polyline([point(313,202),point(325,197)]);
Canvas.Polyline([point(320,190),point(335,200)]);
Canvas.Polyline([point(190,185),point(200,190),point(205,191),point(192,188)]);
Canvas.Polyline([point(202,190),point(210,192)]);
Canvas.Ellipse(346,296,354,304);
Canvas.Pen.Width:=2;
Canvas.Ellipse(230,295,260,325);
Canvas.Pen.Width:=4;
Canvas.Polyline([point(245,310),point(275,315)]);
Canvas.Rectangle(270,313,280,317);
Canvas.Pen.Width:=1;
Canvas.Polyline([point(145,288),point(245,295)]);
Canvas.Polyline([point(145,311),point(245,325)]);
end;
end;
|
|
|
Button2
|
OnClick
|
procedure
TForm1.Button2Click(Sender: TObject);
begin
if
openpicturedialog1.Execute then
image1.Picture.loadfromfile(openpicturedialog1.FileName);
end;
|
|
|
Button3
|
OnClick
|
procedure
TForm1.Button3Click(Sender: TObject);
begin
if
savepicturedialog1.Execute then
image1.picture.SaveToFile(savepicturedialog1.FileName);
end;
|
|
|
Button4
|
OnClick
|
procedure
TForm1.Button4Click(Sender: TObject);
var
i:integer;
cx,cy:integer;
begin
with image1, canvas do
begin
for i:= 1 to 30 do
begin
cx:=random(width);
cy:=1;
brush.color:=random(256*256*256);
ellipse(cx,cy,cx+random(60),
cy+random(60));
cx:=1;
cy:=random(height);
brush.color:=random(256*256*256);
ellipse(cx,cy,cx+random(60),
cy+random(60));
cx:=random(width);
cy:=500;
brush.color:=random(256*256*256);
ellipse(cx,cy,cx+random(60),
cy+random(60));
cx:=750;
cy:=random(height);
brush.color:=random(256*256*256);
ellipse(cx,cy,cx+random(60),
cy+random(60));
end;
end;
end;
|
|
|
Button5
|
OnClick
|
procedure
TForm1.Button5Click(Sender: TObject);
begin
with image1, canvas do
begin
brush.color:=clwhite;
canvas.rectangle(clientrect);
end;
end;
|
|
IV.
Output
