GDI+ 学习记录(4) 画笔对齐[转]

//笔对齐

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