再學GDI+[36]: 畫筆標準線帽 - SetLineCap 九種預設樣式完整對比

前言

TGPPen.SetLineCap 一次設定畫筆的起始帽、終止帽、虛線帽三種線帽。GDI+ 提供九種標準線帽，本文透過四個 ComboBox 即時切換對比，並展示虛線模式下的中間線帽效果。

九大標準線帽完整對照

四 ComboBox 控制介面

• ComboBox1：虛線樣式
• ComboBox2：起始帽
• ComboBox3：虛線中間帽
• ComboBox4：終止帽
• 三條平行線不同顏色並排顯示效果

procedure TForm1.FormPaint(Sender: TObject);
const ColorArr: array[0..2] of TGPColor = (aclRed, aclGreen, aclBlue);
var g: TGPGraphics; p: TGPPen; x1, x2, y, i: Integer;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create($FF000000, 16);  {粗線條明顯顯示線帽}
  p.SetDashStyle(TDashStyle(ComboBox1.ItemIndex));
  p.SetLineCap(StartCap, EndCap, DashCap);  {關鍵：一次設定三種帽}
  x1 := 50; x2 := ClientWidth - 50; y := 60;
  for i := 0 to 2 do begin
    p.SetColor(ColorArr[i]); g.DrawLine(p, x1, y, x2, y); Inc(y, 40);
  end;
  p.Free; g.Free;
end;

執行效果預覽

虛線中間帽特殊說明

• 僅在 DashStyle != Solid 時生效
• 控制每個虛線段的兩端形狀
• 搭配 LineCapRound 產生圓點虛線效果

表單定義檔

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 165
  ClientWidth = 515
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object ComboBox1: TComboBox ... {虛線樣式}
  object ComboBox2: TComboBox ... {起始帽}
  object ComboBox3: TComboBox ... {中間帽}
  object ComboBox4: TComboBox ... {終止帽}
end

1. 上一篇文章： 再學GDI+[37]: 畫筆自訂線帽 - TGPCustomLineCap 打造專屬起始/終止箭頭形狀
2. 下一篇文章： 再學GDI+[35]: 畫筆虛線位移動畫 - SetDashOffset 實現螞蟻線/掃描線效果

Delphi

GDI+ 畫筆線帽樣式詳解：StartCap、EndCap、DashCap 與 SetLineCap 綜合應用

IGPPen 線帽屬性全面解析 線帽決定線條端點的外觀，GD

DelphiX 實戰：TDIB.DoNovaEffect 新星/光暈特效

TDIB.DoNovaEffect 產生類似恆星閃耀、新星爆

WinAPI：PolyPolyline - 繪製多組連續線段

使用 PolyPolyline 一次繪製多組連續線段 Pol

GDI+ 貝茲曲線繪製：DrawBeziers 互動式控制點編輯

功能特色 按住 Ctrl 點擊畫面添加控制點，拖曳現有點調整