Функция GetY
Модуль Graph
Возвращает Y-координату CP.
Объявление:
Режим:
Замечания:
Значение 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.
См. также: