GdiPlus[27]: IGPPen: Alignment (画笔对齐)

weixin_30449239

于 2009-12-16 00:00:00 发布

阅读量89

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2009/12/16/1625194.html

本文介绍了一个使用GDI+在窗体上绘制矩形的Delphi示例程序。该程序展示了如何创建不同颜色和宽度的画笔，并设置画笔对齐方式来绘制矩形。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  BlackPen, GreenPen: IGPPen;
  Rect: TGPRect;
begin
  Rect.Initialize(20, 20, 80, 80);
  Graphics := TGPGraphics.Create(Handle);
  BlackPen := TGPPen.Create($FF000000, 1.5);
  GreenPen := TGPPen.Create($FF00FF00, 10);

  //GreenPen.Alignment := PenAlignmentCenter; //这是默认值
  Graphics.DrawRectangle(GreenPen, Rect);
  Graphics.DrawRectangle(BlackPen, Rect);

  Graphics.TranslateTransform(Rect.X + Rect.Width, 0);
  GreenPen.Alignment := PenAlignmentInset;
  Graphics.DrawRectangle(GreenPen, Rect);
  Graphics.DrawRectangle(BlackPen, Rect);
end;

转载于:https://www.cnblogs.com/del/archive/2009/12/16/1625194.html