Delphi GDI+学习记录（4）: 画笔对齐

Delphi GDI+学习记录（4）: 画笔对齐2012-03-20 cnblogs 万一

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