GDI+ 学习记录(4): 画笔对齐
GDI+ 学习记录(4): 画笔对齐
涂孟超 发表于3年前
GDI+ 学习记录(4): 画笔对齐
  • 发表于 3年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 新注册用户 域名抢购1元起>>>   

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


共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: