//笔对齐
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,88,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 2010-12-08 15:09  巅枫  阅读(365)  评论(0编辑  收藏  举报