GetX

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.
Citováno z „https://trsek.com/pascal/index.php?title=GetX&oldid=835“