Delphi GDI+學習記錄(5): 復合畫筆

//復合畫筆

var
　g: TGPGraphics;
　p: TGPPen;
　arr: array[0..9] of Single; {10 個元素可以分成 5 條線, 每條線需要起點和終點}
begin
　g := TGPGraphics.Create(Canvas.Handle);
　p := TGPPen.Create(MakeColor(255,255,0,0),100); {筆寬定為 100 好算帳}
　arr[0] := 0.00; {第一條線起點}
　arr[1] := 0.01; {第一條線終點}
　arr[2] := 0.10;
　arr[3] := 0.11;
　arr[4] := 0.20;
　arr[5] := 0.21;
　arr[6] := 0.30;
　arr[7] := 0.31;
　arr[8] := 0.40; {第五條線起點}
　arr[9] := 0.41; {第五條線終點}
　{數組參數是寬度的百分比, 必須 >=0、<=1}
　p.SetCompoundArray(@arr,Length(arr)); g.DrawLine(p, 11, 66, 333, 66);
　{這是畫了一個五線譜}
　p.Free;
　g.Free;
end;