Ñîçäàíèå PolyPolygon èñïîëüçóÿ ìàññèâ òî÷åê? |
Previous Top Next |
Polygon - ìåòîä êîìïîíåíòà TCanvas ïîëó÷àåò â êà÷åñòâå ïàðàìåòðà äèíàìè÷åñêèé ìàññèâ òî÷åê. Ôóíêöèÿ PolyPolygon() èç Windows GDI ïîëó÷àåò óêàçàòåëü íà ìàññèâ òî÷åê.
Code: |
procedure TForm1.Button1Click(Sender: TObject); var ptArray: array[0..9] of TPOINT; PtCounts: array[0..1] of integer; begin PtArray[0] := Point(0, 0); PtArray[1] := Point(0, 100); PtArray[2] := Point(100, 100); PtArray[3] := Point(100, 0); PtArray[4] := Point(0, 0); PtCounts[0] := 5; PtArray[5] := Point(25, 25); PtArray[6] := Point(25, 75); PtArray[7] := Point(75, 75); PtArray[8] := Point(75, 25); PtArray[9] := Point(25, 25); PtCounts[1] := 5; PolyPolygon(Form1.Canvas.Handle,PtArray, PtCounts, 2); end; |
©Drkb::03911