Функция GetX

Модуль Graph

Возвращает X-координату CP

Объявление:

 Function GetX : Integer;
 

Режим: 

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

Пример:

  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.

См. также: