Функция GetY

Модуль Graph

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

Объявление:

 Function GetY : Integer;

Режим: 

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

См. также: