程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi GDI+學習記錄(5): 復合畫筆

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

編輯:Delphi

//復合畫筆

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved