Delphi GDI+ 學習筆記 (1)：TGPPen 畫筆基礎 (建立/顏色/寬度/獲取)

GDI+ 繪圖起點：畫筆建立、屬性存取、繪製橢圓

TGPPen 封裝 GDI+ 畫筆物件，負責幾何圖形輪廓描繪。建構函數接受顏色 (TGPColor) 與寬度 (Single，預設 1)。SetColor/SetWidth 動態修改，GetColor/GetWidth 讀取當前值。

1. 基本建立與繪製

p := TGPPen.Create(aclRed, 2); // 紅色、寬度 2
g.DrawEllipse(p, 11, 11, 222, 111);

2. 分步設定屬性

p := TGPPen.Create(aclBlack); // 至少需給顏色
p.SetColor(aclBlue);
p.SetWidth(10);
g.DrawEllipse(p, 11, 11, 222, 111);

3. 獲取當前屬性

p := TGPPen.Create(MakeColor(128, 0, 0, 255), 10); // 半透明藍、寬 10
g.DrawEllipse(p, 11, 11, 222, 111);
p.GetColor(c); // 取得 TGPColor
ShowMessage(IntToHex(c, 8)); // 800000FF (A=128, R=0, G=0, B=255)
ShowMessage(FloatToStr(p.GetWidth)); // 10

記憶體管理

• 所有 GDI+ 物件需手動 .Free 釋放
• 建議使用 try...finally 確保釋放
• 筆刷、字體、影像、路徑、矩陣、區域同樣需釋放

核心繪圖方法

• DrawLine/DrawLines
• DrawRectangle/DrawRectangles
• DrawEllipse
• DrawArc/DrawPie
• DrawPolygon
• DrawCurve/DrawClosedCurve
• DrawBezier/DrawBeziers
• DrawPath
• DrawString
• DrawImage

畫筆是 GDI+ 所有描邊操作的核心，掌握其屬性與釋放機制是繪圖程式穩定的基礎。作者：wy (原文署名)。