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

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

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

Процедура GetTextSettings.

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

    Procedure GetTextSettings(Var TextInfo : TextSettingsType);

  • Описание:

    Возвращает установки для вывода текста в графическом режиме.

  • Замечания:

    Возвращает текущий шрифт, направление, размер и выравнивание текста, установленные процедурами SetTextStyle и SetTextJustify.

  • Пример:

    { Пример программы для процедуры GetTextSettings }
    Uses Graph;
    Var Gd, Gm : Integer;
    OldStyle : TextSettingsType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    GetTextSettings(OldStyle);
    OutTextXY(0, 0, 'Old text style');
    SetTextJustify(LeftText, CenterText);
    SetTextStyle(TriplexFont, VertDir, 4);
    OutTextXY(GetMaxX div 2, GetMaxY div 2, 'New style');
    { Восстанавливаем старый стиль }
    With OldStyle Do
    Begin
    SetTextJustify(Horiz, Vert);
    SetTextStyle(Font, Direction, CharSize);
    End;
    OutTextXY(0, TextHeight('H'), 'Old style again');
    ReadLn;
    CloseGraph;
    End.



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