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

//笔对齐
var
  g: TGPGraphics;
  p: TGPPen;
  sb: TGPSolidBrush;
  rect: TGPRect;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(MakeColor(255,255,0,0),5);
  sb := TGPSolidBrush.Create(MakeColor(255,255,255,0));

  p.SetAlignment(PenAlignmentCenter); {默认}
  rect := MakeRect(22,22,222,111);
  g.DrawEllipse(p, rect);
  g.FillEllipse(sb, rect);

  p.SetAlignment(PenAlignmentInset);
  rect := MakeRect(22,111,222,111);
  g.DrawEllipse(p, rect);
  g.FillEllipse(sb, rect);

  sb.Free;
  p.Free;
  g.Free;
end;

画笔对齐方式:

Delphi 微软 说明
PenAlignmentCenter  Center  指定 Pen 对象以理论的线条为中心。
PenAlignmentInset Inset 指定 Pen 被定位于理论的线条内。
无定义 Left 指定将 Pen 定位于理论的线条的左侧。
无定义 Outset 指定将 Pen 定位于理论的线条外。
无定义 Right 指定将 Pen 定位于理论的线条的右侧。


posted on 2007-12-27 14:44 万一 阅读(...) 评论(...) 编辑 收藏