Процедура SetTextStyle

Модуль GRAPH

Устанавливает стиль вывода текста в графическом режиме.

Объявление:

Procedure SetTextStyle(Font, Direction : Word; CharSize : Word);

Режим:

Protected,  Real

Замечание:

Устанавливает текущий: Шрифт
Стиль
Размер символов

Пример:

 
 { Пример программы для процедуры SetTextStyle }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
    Y, Size : Integer;
 
 Begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  Y := 0;
  For Size:=1 To 4 Do
   Begin
    SetTextStyle(DefaultFont, HorizDir, Size);
    OutTextXY(0, Y, 'Size = ' + Chr(Size + 48));
    Inc(Y, TextHeight('H') + 1);
   End;
  CloseGraph;
 End.