Project Gambar Menggunakan Delphi

procedure TGambar.Panel1Click(Sender: TObject);
begin
Label1.caption:='Jeruk Mandarin';
with image1.canvas do
begin
brush.Color:=clred and clyellow;
ellipse(200,90,400,290);


brush.color:=clolive;
rectangle(300,50,310,90);
pen.color:=clgreen;
brush.color:=clgreen;
polygon([point(310,65),point(335,55),point(310,90)]);
brush.style:=bsbdiagonal;
floodfill(300,300,clyellow,fsborder);
end;

end;

procedure TGambar.Panel2Click(Sender: TObject);
begin
MainMenu.Show;
Gambar.Hide;

end;

end.