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.