再學GDI+[50]: 路徑 - GetPathPoints、GetPathTypes、TPathData(3)

窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 276
　ClIEntWidth = 303
　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 StringGrid1: TStringGrid
　　Left = 88
　　Top = 40
　　Width = 154
　　Height = 120
　　TabOrder = 0
　　OnSelectCell = StringGrid1SelectCell
　end
end

路徑中的點類型枚舉:PathPointType = (
　PathPointTypeStart　　　　= $00, {路徑起始點}
　PathPointTypeLine　　　　 = $01, {直線點}
　PathPointTypeBezIEr　　　 = $03, {默認貝塞爾線點}
　PathPointTypePathTypeMask = $07, {遮蓋點}
　PathPointTypeDashMode　　 = $10, {虛線點}
　PathPointTypePathMarker　 = $20, {路徑標記}
　PathPointTypeCloseSubpath = $80, {子路徑結束點}
　PathPointTypeBezIEr3　　　= $03　{立體貝塞爾線點}
);
TPathPointType = PathPointType;