Otevřít hlavní menu

MoveTo

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.