unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
PaintBox1: TPaintBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with PaintBox1.canvas do
begin
//rectangle(80,20,320,260);
//ellipse(80,20,320,260);
arc(80,20,320,260,170,40,230,40);
//rectangle(110,20,290,190);
//ellipse(110,20,290,190);
arc(110,20,290,190,170,40,230,40);
moveTo(160,40);
lineTo(180,40);
lineTo(200,20);
lineTo(220,40);
lineTo(240,40);
lineTo(220,60);
lineTo(230,80);
lineTo(200,70);
lineTo(170,80);
lineTo(180,60);
lineTo(160,40);
end;
end;
end.
0 komentar:
Posting Komentar