Delphi GDI+学习记录（5）: 复合画笔

Delphi GDI+学习记录（5）: 复合画笔2012-03-20 cnblogs 万一//复合画笔

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;