Функция GetX()

Модуль GRAPH

Возвращает X-координату текущего указателя (CP).

Объявление:

Function GetX : Integer;

Режим:

Real, Protected

Замечание:

Значение GetX является относительным к размеру активной области просмотра, что иллюстрируется данными примерами. CP перемещается в точку (0, 0), и GetX возвращает значение 0: SetViewPort(0, 0, GetMaxX, GetMaxY, True); CP перемещается в точку (5, 5), и GetX возвращает значение 5: MoveTo(5, 5); CP перемещается в точку (10, 10), но GetX возвращает значение 0: SetViewPort(10, 10, 100, 100, True); CP перемещается в точку (15, 15), но GetX возвращает значение 5: MoveTo(5, 5);

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для функции GetX }

Uses Graph;

Var Gd, Gm : Integer;
      X, Y : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 OutText('Starting here. ');
 X:=GetX;
 Y:=GetY;
 OutTextXY(20, 10, 'Now over here...');
 OutTextXY(X, Y, 'Now back over here.');
 ReadLn;
 CloseGraph;
End.