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

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

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

опыт в ремонте автоматических коробок

Процедура OutTextXY.

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

    Procedure OutTextXY(X, Y : Integer; TextString : String);

  • Описание:

    Посылает строку на устройство вывода.

  • Замечания:

    Отображает TextString в позиции (X, Y). Строка TextString усекается на границе области просмотра, если она слишком длинная. Если один из штриховых шрифтов активен, то строка TextString усекается на границе экрана, если она слишком длинная. Если заданный по умолчанию (растровый шрифт активен, и строка слишком длинная, чтобы поместиться на экране, то текст не отображается вообще.

    Используйте OutText, чтобы вывести текст в текущей позиции указателя (CP). Используйте OutTextXY, чтобы вывести текст в любой другой точке экрана.

    Процедура OutTextXY использует набор шрифтов SetTextStyle. Чтобы поддерживать совместимость кода при использовании нескольких шрифтов, используйте TextWidth и TextHeight для определения размера строки.

    Процедура OutTextXY использует опции вывода, установленные SetTextJustify.

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

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

  • Пример:

    { Пример программы для процедуры OutTextXY }
    Uses Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    MoveTo(0, 0);
    OutText('Inefficient');
    ReadLn;
    OutTextXY(GetX, GetY, 'Also inefficient');
    ReadLn;
    ClearDevice;
    OutTextXY(0, 0, 'Perfect!'); { Заменяет верхнюю надпись }
    ReadLn;
    CloseGraph;
    End.



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