您的位置:首页 > 编程语言 > Delphi

终于, Delphi XE2 携带 GDI+ 库了

2021-04-29 23:48 197 查看 https://blog.51cto.com/u_14617

   终于, Delphi XE2 携带 GDI+ 库了    


使用了较早的 http://www.progdigy.com


uses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL};

procedure TForm1.FormPaint(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;


GdipObj 单元的类图:


内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: