GetLineSettings

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 16:20, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Created page with "Vrací aktuální styl čáry, vzorek čáry a tloušťku čáry, jak byly nastaveny procedurou SetLineStyle. ;Deklarace procedure GetLineSettings(var LineInfo: LineSett...")
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.