Delphi 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,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 定位於理論的線條的右側。