graphics := TGPGraphics.Create(Canvas.Handle);

来源:互联网 发布:免root备份软件 编辑:程序博客网 时间:2024/06/05 06:38
uses GDIPAPI, GDIPOBJ{, Winapi.GDIPUTIL}; procedure TForm1.Button1Click(Sender: TObject);var  graphics: TGPGraphics;  pen: TGPPen;begin  graphics := TGPGraphics.Create(Canvas.Handle);  pen := TGPPen.Create(MakeColor(255,0,0));  graphics.DrawRectangle(pen, MakeRect(11, 22, 33, 44));  pen.Free;  graphics.Free;end;

原创粉丝点击