[delphi][GDI+] 学习记录(5): 复合画笔

  • A+
所属分类:[开发技巧]

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

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: