Změny

Skočit na navigaci Skočit na vyhledávání

MoveTo

Přidáno 1 131 bajtů, 4. 10. 2012, 17:28
Created page with "Přesune ukazatel aktuální pozice (CP) do (X, Y). ;Deklarace procedure MoveTo(X, Y: Integer); ;Režim :Reálný, Chráněný ;Poznámky :Ukazatel aktuální pozice (CP, ..."
Přesune ukazatel aktuální pozice (CP) do (X, Y).

;Deklarace
procedure MoveTo(X, Y: Integer);

;Režim
:Reálný, Chráněný

;Poznámky
:Ukazatel aktuální pozice (CP, current pointer) je obdoba textového kurzoru, s tím rozdílem, že CP není vidět. CP přemísťují tyto rutiny:

:[[ ClearDevice]]

:[[ ClearViewPort]]

:[[ GraphDefaults]]

:[[ InitGraph]]

:[[ LineRel]]

:[[ LineTo]]

:[[ MoveRel]]

:[[ MoveTo]]

:[[ OutText]]

:[[ SetGraphMode]]

:[[ SetViewPort]]


:Je-li aktivní výřez (viewport), CP je relativní vzhledem k tomuto výřezu (hodnoty X a Y se přičítají k hodnotám výřezu X1 a Y1). CP se nikdy na hranicích aktuálního výřezu neořezává.

;Viz také
:[[GetMaxX]]

:[[GetMaxY]]

:[[GetX]]

:[[GetY]]

:[[MoveRel]]


Vzorový příklad

{Moveto.PAS}
{Vzorový příklad pro proceduru MoveTo.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0); { Horní levý roh výřezu }
LineTo(GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
Citováno z „https://trsek.com/pascal/Speciální:Mobilní_rozdíl/858“

Navigační menu