随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253


使用了较早的 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 单元的类图:

posted on 2011-11-08 22:14 万一 阅读(...) 评论(...) 编辑 收藏