DrawPoly

Z Delphi & Pascal (česká wiki)
(přesměrováno z Drawpoly)
Skočit na navigaci Skočit na vyhledávání

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.