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

WinAPI: PolylineTo - 繪制一組連續線段(更新當前位置)

編輯:Delphi

//聲明: 
PolylineTo( 
 DC: HDC;    {設備環境句柄} 
 var Points;  {點數組} 
 Count: Integer {數組元素個數} 
): BOOL; 
 
 
//如果不給 PolylineTo 指定起點, 將默認 0 點位起點 
procedure TForm1.FormPaint(Sender: TObject); 
var 
 ps: array[0..5] of TPoint; 
begin 
 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; 
 
 PolylineTo(Canvas.Handle, ps, 6); 
end; 
 
 
//效果圖: 

WinAPI: PolylineTo - 繪制一組連續線段(更新當前位置)

//給 PolylineTo 指定起點 
procedure TForm1.FormPaint(Sender: TObject); 
var 
 ps: array[0..4] of TPoint; 
begin 
 MoveToEx(Canvas.Handle, 50,50, nil); 
  
 ps[0].X := 100; 
 ps[0].Y := 50; 
 ps[1].X := 125; 
 ps[1].Y := 75; 
 ps[2].X := 100; 
 ps[2].Y := 100; 
 ps[3].X := 50; 
 ps[3].Y := 100; 
 ps[4].X := 25; 
 ps[4].Y := 75; 
 
 PolylineTo(Canvas.Handle, ps, 5); 
end; 
 
 
//效果圖: 

WinAPI: PolylineTo - 繪制一組連續線段(更新當前位置)

//PolylineTo 更新當前位置 
procedure TForm1.FormPaint(Sender: TObject); 
var 
 ps: array[0..4] of TPoint; 
begin 
 MoveToEx(Canvas.Handle, 50,50, nil); 
  
 ps[0].X := 100; 
 ps[0].Y := 50; 
 ps[1].X := 125; 
 ps[1].Y := 75; 
 ps[2].X := 100; 
 ps[2].Y := 100; 
 ps[3].X := 50; 
 ps[3].Y := 100; 
 ps[4].X := 25; 
 ps[4].Y := 75; 
 
 PolylineTo(Canvas.Handle, ps, 5); 
 
 {PolylineTo 更新當前位置, 繼續畫} 
 LineTo(Canvas.Handle, 50,50); 
end; 
 
 
//效果圖: 

WinAPI: PolylineTo - 繪制一組連續線段(更新當前位置)

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