delphi下使用GDI对象

//设置笔宽与颜色  var   g: TGPGraphics;
  p: TGPPen;begin   g := TGPGraphics.Create(Canvas.Handle);

  p := TGPPen.Create(aclBlack);
  {建立时应该不给参数是可以的, 但在测试中不行, 至少要给一个颜色}   p.SetColor(aclBlue); {设置颜色}   p.SetWidth(10);      {设置笔宽}   g.DrawEllipse(p, 11, 11, 222, 111);

  p.Free;
  g.Free;end;