1 578
editací
Změny
Created page with "Vrací aktuální výřez (viewport) a parametry ořezávání. ;Deklarace procedure GetViewSettings(var ViewPort: ViewPortType); ;Režim :Reálný, Chráněný ;Poznámky..."
Vrací aktuální výřez (viewport) a parametry ořezávání.
;Deklarace
procedure GetViewSettings(var ViewPort: ViewPortType);
;Režim
:Reálný, Chráněný
;Poznámky
:[[GetViewSettings]] vrací proměnnou typu [[ViewPortType]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[ClearViewPort]]
:[[SetViewPort]]
Vzorový příklad
{Getvwset.PAS}
{Vzorový příklad pro proceduru GetViewSettings.}
uses Graph;
var
Gd, Gm: Integer;
ViewPort: ViewPortType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
GetViewSettings(ViewPort);
with ViewPort do
begin
Rectangle(0, 0, X2 - X1, Y2 - Y1);
if Clip then
OutText('Ořezávání je aktivní.')
else
OutText('Dnes žádné ořezávání.');
end;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure GetViewSettings(var ViewPort: ViewPortType);
;Režim
:Reálný, Chráněný
;Poznámky
:[[GetViewSettings]] vrací proměnnou typu [[ViewPortType]].
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[ClearViewPort]]
:[[SetViewPort]]
Vzorový příklad
{Getvwset.PAS}
{Vzorový příklad pro proceduru GetViewSettings.}
uses Graph;
var
Gd, Gm: Integer;
ViewPort: ViewPortType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
GetViewSettings(ViewPort);
with ViewPort do
begin
Rectangle(0, 0, X2 - X1, Y2 - Y1);
if Clip then
OutText('Ořezávání je aktivní.')
else
OutText('Dnes žádné ořezávání.');
end;
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]