1 578
editací
Změny
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..."
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]]
;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]]