程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> WinAPI: PolyPolyline - 繪制多組線段

WinAPI: PolyPolyline - 繪制多組線段

編輯:Delphi

//聲明: 
PolyPolyline( 
 DC: HDC;  {設備環境句柄} 
 var Points; {點數組} 
 var nPoints;{數組, 數組元素是每個組的頂點數} 
 p4: Integer {分組數, 也就是 nPoints 的元素數} 
): BOOL; 
 
 
//舉例: 
procedure TForm1.FormPaint(Sender: TObject); 
var 
 ps: array[0..9] of TPoint; 
 pn: array[0..1] of Integer; 
begin 
 {組1:} 
 ps[0].X := 50; 
 ps[0].Y := 50; 
 ps[1].X := 100; 
 ps[1].Y := 50; 
 ps[2].X := 125; 
 ps[2].Y := 75; 
 ps[3].X := 100; 
 ps[3].Y := 100; 
 ps[4].X := 50; 
 ps[4].Y := 100; 
 ps[5].X := 25; 
 ps[5].Y := 75; 
 {組2:} 
 ps[6].X := 200; 
 ps[6].Y := 25; 
 ps[7].X := 300; 
 ps[7].Y := 25; 
 ps[8].X := 300; 
 ps[8].Y := 125; 
 ps[9].X := 200; 
 ps[9].Y := 125; 
 
 pn[0] := 6; {組1有6個頂點} 
 pn[1] := 4; {組2有4個頂點} 
 
 PolyPolyline(Canvas.Handle, ps, pn, 2); 
end; 
 
 
//效果圖: 

WinAPI: PolyPolyline - 繪制多組線段

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