Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция GetX.

  • Объявление:

    Function GetX : Integer;

  • Описание:

    Возвращает X-координату текущего указателя (CP).

  • Замечания:

    Значение 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.

  • Ограничения:

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

  • Пример:

    { Пример программы для функции GetX }
    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.



Вернуться к оглавлению справочника