Turbo Pascal Documentation

Функция GetX

Модуль Graph

     Функция: Возвращает Х-координату текущего указателя (СР).
     Описание: GetX
     Тип результата: Целый (integer).
     Примечания: Процедура GetХ зависит от области  просмот-
ра. Таким образом, ее значение всегда равно абсолютной Х-ко-
ординате СР, минус ViewPort.х1. В следующем примере:

1 SetViewPort(0,0,GetMaxX,GetMaxY,True);
2 MoveTo(5,5);
3 SetViewPort(10,10,100,100,True);
4 MoveTo(5,5);

     - в строке 1 СР перемещается в точку с абсолютными ко-
ординатами (0,0), и процедура GetХ также возвращает значение 0;
     - в строке 2 СР перемещается в точку с абсолютными  ко-
ординатами (5,5), и процедура GetХ также возвращает значение 5;
     - в строке 3 СР перемещается в точку с абсолютными ко-
ординатами (10,10), но процедура GetХ возвратит значение 0;
     - в строке 4 СР перемещается в точку с абсолютными ко-
ординатами (15,15), но процедура GetХ возвратит значение 5.
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetViewSettings, GetY,
InitGraph, MoveTo, SetViewPort.
     Пример:

  uses Graph;
  var
    GraphDriver, GraphMode : integer;
    x, y : integer;
  begin
    GraphDiver := Detect;
    InitGraph(GraphDriver,GraphMode,'');
    if Graphesult <> grOk then
        Halt(1);
    OutText('Начнем здесь.');
    x := GetX;
    y := GetY;
    OutText(20,10,'Теперь перейдем сюда...');
    OutText(x,y,'А теперь вернемся назад.');
    Readln;
    CloseGraph;
  end.