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

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

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

Процедура OutText.

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

    Procedure OutText(TextString : String);

  • Описание:

    Посылает строку на устройство вывода в позиции текущего указателя.

  • Замечания:

    Отображает TextString в позиции текущего указателя (CP), используя текущие установки выравнивания.

    Строка TextString усекается на границе области просмотра, если она слишком длинная. Если активен один из штриховых шрифтов, то строка TextString усекается на границе экрана, если она слишком длинная.

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

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

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

    CP модифицируется процедурой OutText только в том случае, если текст выводится горизонтально с левым выравниванием. Направление вывода устанавливается с помощью SetTextStyle, а выравнивание текста устанавливается с помощью SetTextJustify.

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

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

  • Пример:

    { Пример программы для процедуры OutText }
    Uses Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    OutText('Easy to use');
    ReadLn;
    CloseGraph;
    End.



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