运维开发网
广告位招商联系QQ:123077622
 
广告位招商联系QQ:123077622

终于, Delphi XE2 携带 GDI+ 库了

运维开发网 https://www.qedev.com 2021-04-30 10:43 出处:51CTO 作者:JLee79
终于, Delphi XE2 携带 GDI+ 库了,JLee‘s Blog原创的Java文章。

   终于, 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 单元的类图:

终于, Delphi XE2 携带 GDI+ 库了


扫码领视频副本.gif

0

精彩评论

暂无评论...
验证码 换一张
取 消

关注公众号