DrawPoly

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

GetLineSettings

GraphResult

SetColor

SetLineStyle

SetWriteMode

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.