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

---

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;