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

  • A+
所属分类:[开发技巧]

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

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: