Zobrazení zdroje stránky GetLineSettings

Vrací aktuální styl čáry, vzorek čáry a tloušťku čáry, jak byly nastaveny procedurou [[SetLineStyle]].

;Deklarace
 procedure GetLineSettings(var LineInfo: LineSettingsType);

;Režim
:Reálný, Chráněný

;Omezení
:Je nutno být v grafickém režimu.

;Viz také
:[[DrawPoly]]

:[[SetLineStyle]]


Vzorový příklad

 {Getlnset.PAS}
 {Vzorový příklad pro proceduru GetLineSetting.}
 uses Graph;
 var
   Gd, Gm: Integer;
   OldStyle: LineSettingsType;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, ' ');
   if GraphResult <> grOk then
     Halt(1);
   Line(0, 0, 100, 0);
   GetLineSettings(OldStyle);
   SetLineStyle(DottedLn, 0, ThickWidth);   { Nový styl }
   Line(0, 10, 100, 10);
   with OldStyle do          { Obnovení starého stylu čáry }
     SetLineStyle(LineStyle, Pattern, Thickness);
   Line(0, 20, 100, 20);
   Readln;
   CloseGraph;
 end.
[[Category:Graph]]
[[Category:Procedúry Graph]]