学步园

//笔对齐
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 定位于理论的线条的右侧。