随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253

//复合画笔
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;

posted on 2007-12-27 14:45  万一  阅读(...)  评论(... 编辑 收藏