1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
GetX
,Created page with "Vrací souřadnici X aktuální pozice (CP). ;Deklarace function GetX: Integer; ;Režim :Reálný, Chráněný ;Poznámky :Hodnota GetX je relativní vůči rozměrům akt..."
Vrací souřadnici X aktuální pozice (CP).
;Deklarace
function GetX: Integer;
;Režim
:Reálný, Chráněný
;Poznámky
:Hodnota GetX je relativní vůči rozměrům aktivního výřezu, jak ilustrují následující příklady.
SetViewPort(0, 0, GetMaxX, GetMaxY, True);
Přemístí CP do absolutní pozice (0, 0) a GetX vrátí hodnotu 0.
MoveTo(5, 5);
Přemístí CP do absolutní pozice (5, 5) a GetX vrátí hodnotu 5.
SetViewPort(10, 10, 100, 100, True);
Přemístí CP do absolutní pozice (10, 10), ale GetX vrátí hodnotu 0.
MoveTo(5, 5);
Přemístí CP do absolutní pozice (15, 15), ale GetX vrátí hodnotu 5.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetViewSettings]]
:[[GetY]]
:[[InitGraph]]
:[[MoveTo]]
:[[SetViewPort]]
Vzorový příklad
{Getx.PAS}
{Vzorový příklad pro funkci GetX.}
uses Graph;
var
Gd, Gm: Integer;
X, Y: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
OutText('Začínáme zde. ');
X := GetX;
Y := GetY;
OutTextXY(20, 10, 'Nyní jsme zde...');
OutTextXY(X, Y, 'Nyní opět zpátky zde.');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
;Deklarace
function GetX: Integer;
;Režim
:Reálný, Chráněný
;Poznámky
:Hodnota GetX je relativní vůči rozměrům aktivního výřezu, jak ilustrují následující příklady.
SetViewPort(0, 0, GetMaxX, GetMaxY, True);
Přemístí CP do absolutní pozice (0, 0) a GetX vrátí hodnotu 0.
MoveTo(5, 5);
Přemístí CP do absolutní pozice (5, 5) a GetX vrátí hodnotu 5.
SetViewPort(10, 10, 100, 100, True);
Přemístí CP do absolutní pozice (10, 10), ale GetX vrátí hodnotu 0.
MoveTo(5, 5);
Přemístí CP do absolutní pozice (15, 15), ale GetX vrátí hodnotu 5.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetViewSettings]]
:[[GetY]]
:[[InitGraph]]
:[[MoveTo]]
:[[SetViewPort]]
Vzorový příklad
{Getx.PAS}
{Vzorový příklad pro funkci GetX.}
uses Graph;
var
Gd, Gm: Integer;
X, Y: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
OutText('Začínáme zde. ');
X := GetX;
Y := GetY;
OutTextXY(20, 10, 'Nyní jsme zde...');
OutTextXY(X, Y, 'Nyní opět zpátky zde.');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]
