Menu Bar, Dialog Box, dan Web Browser (Program Gambar)

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

Program dapat di download di sini