再學GDI+[25]: TGPPen - 寬度、顏色與線帽(2)

窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 206
　ClIEntWidth = 315
　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
　　Left = 8
　　Top = 8
　　Width = 145
　　Height = 21
　　ItemHeight = 13
　　TabOrder = 0
　　Text = 'ComboBox1'
　　OnChange = ComboBox1Change
　end
　object ComboBox2: TComboBox
　　Left = 162
　　Top = 8
　　Width = 145
　　Height = 21
　　ItemHeight = 13
　　TabOrder = 1
　　Text = 'ComboBox2'
　　OnChange = ComboBox2Change
　end
　object TrackBar1: TTrackBar
　　Left = 3
　　Top = 182
　　Width = 223
　　Height = 20
　　TabOrder = 2
　　OnChange = TrackBar1Change
　end
　object ButtonColor1: TButtonColor
　　Left = 232
　　Top = 177
　　Caption = 'ButtonColor1'
　　TabOrder = 3
　　OnClick = ButtonColor1Click
　end
end

附線帽樣式常數:LineCapFlat= 0;　 {指定平線帽}
LineCapSquare　　　　= 1;　 {指定方線帽}
LineCapRound　　　　 = 2;　 {指定圓線帽}
LineCapTriangle　　　= 3;　 {指定三角線帽}
LineCapNoAnchor　　　= $10; {指定沒有錨}
LineCapSquareAnchor　= $11; {指定方錨頭帽}
LineCapRoundAnchor　 = $12; {指定圓錨頭帽}
LineCapDiamondAnchor = $13; {指定菱形錨頭帽}
LineCapArrowAnchor　 = $14; {指定箭頭狀錨頭帽}
LineCapCustom　　　　= $ff; {指定自定義線帽}
LineCapAnchorMask　　= $f0; {定用於檢查線帽是否為錨頭帽的掩碼}