Правила форума
GetX (функция) (модуль Graph)Язык:
Русский
English
GetX (функция) (модуль Graph)
Возвращает X-координату текущего указателя (CP).
Объявление
Function GetX : Integer;
Режим
Real, Protected
Замечания
Значение 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.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{Getx.PAS}
uses Graph;
var
Gd, Gm : Integer;
X, Y : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
X, Y : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
