Nakreslí obrys mnohoúhelníku aktuální barvou a stylem čáry.
- Deklarace
procedure DrawPoly(NumPoints: Word; var PolyPoints);
- Režim
- Reálný, Chráněný
- Poznámky
- NumPoints udává počet souřadnic v PolyPoints.
- Každá souřadnice se skládá ze dvou slov - z hodnoty X a hodnoty Y.
- Omezení
- Je nutno být v grafickém režimu.
- Viz také
- FillPoly
Vzorový příklad
{Drawpoly.PAS}
{Vzorový příklad pro funkci Drawpoly.}
uses Graph;
const
Triangle: array[1..4] of PointType =
((X: 50; Y: 100)
, (X: 100; Y:-100)
, (X: 150; Y: 150)
, (X: 50; Y: 100));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
Readln;
CloseGraph;
end.