Модуль Graph

GetX - Возвращает 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);
Ограничения:

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

print
?01 { Пример программы для функции GetX }
02
03 Uses Graph;
04
05 Var Gd, Gm : Integer;
06 X, Y : Integer;
07
08 Begin
09 Gd:=Detect;
10 InitGraph(Gd, Gm, '');
11 If GraphResult grOk Then Halt(1);
12 OutText('Starting here. ');
13 X:=GetX;
14 Y:=GetY;
15 OutTextXY(20, 10, 'Now over here...');
16 OutTextXY(X, Y, 'Now back over here.');
17 ReadLn;
18 CloseGraph;
19 End.