Процедура SetTextStyle

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

Объявление:

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

Режим: Protected, Real

Замечания:

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

Пример программы: settxtst.pas

Код примера

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

Сделать бесплатный сайт с uCoz