以下代码不知道哪错了,按Button1后无反应,请指点指点
var
Form1: TForm1;
Mgraphics: TGPGraphics;
Rp: TGPPen;implementation{$R *.dfm}procedure TForm1.FormDestroy(Sender: TObject);
begin
Rp.Free;
Mgraphics.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Mgraphics:= TGPGraphics.Create(image1.Canvas.Handle);
Rp := TGPPen.Create(aclred, 2);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Mgraphics.DrawEllipse(Rp, 11, 11, 222, 111);
end;
var
Form1: TForm1;
Mgraphics: TGPGraphics;
Rp: TGPPen;implementation{$R *.dfm}procedure TForm1.FormDestroy(Sender: TObject);
begin
Rp.Free;
Mgraphics.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Mgraphics:= TGPGraphics.Create(image1.Canvas.Handle);
Rp := TGPPen.Create(aclred, 2);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Mgraphics.DrawEllipse(Rp, 11, 11, 222, 111);
end;
Rp := TGPPen.Create(colorreftoargb(clred), 2);
var
Mgraphics: TGPGraphics;
Rp: TGPPen;
begin
Mgraphics:= TGPGraphics.Create(image1.Canvas.Handle);
Rp := TGPPen.Create(aclred, 2);
Mgraphics.DrawEllipse(Rp, 11, 11, 222, 111);
Rp.Free;
Mgraphics.Free;
end;