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.