GDI+ TGPPen SetLineJoin 端點連接樣式設定範例

效果展示

四種連接模式

互動代碼

procedure TForm1.FormCreate(...);
var i: Integer; begin for i := 0 to 3 do ListBox1.Items.Add(GetEnumName(TypeInfo(TLineJoin),i)); ListBox1.ItemIndex:=0; end;

procedure TForm1.FormPaint(...);
const PtArr: array[0..2] of TGPPoint = ((X:50;Y:150),(X:240;Y:30),(X:240;Y:150));
var g: TGPGraphics; p: TGPPen;
begin g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclBlueViolet, 28); // 粗筆明顯差異
  p.SetLineJoin(TLineJoin(ListBox1.ItemIndex));
  g.DrawPolygon(p, PGPPoint(@PtArr), 3);
  p.Free; g.Free; end;

1. 上一篇文章： 再學GDI+[32]: 畫筆尖角限制 - SetMiterLimit 控制斜接連接最大長度
2. 下一篇文章： GDI+ TGPPen 畫刷定義畫筆：實心/陰影/紋理/漸變四種畫筆範例

Delphi

XML 在 Delphi 中的應用：從資料交換到多層網路架構

XML 核心特性與發展背景 XML（Extensible M

IntraWeb 核心元件詳解（4）：TIWRegion 容器佈局實戰

TIWRegion 佈局優先策略 先佈局好容器（TIWReg

GDI+ 進階教學[25]：畫筆基礎屬性 - 寬度、顏色、線帽完整互動示範

本篇教學整合展示 TGPPen 三大核心屬性：寬度 (Set

GDI+ 進階教學：使用 DrawPie 繪製餅形與扇形

本篇示範如何使用 GDI+ 的 DrawPie 方法繪製餅形