setuchsz.pas

 {Setuchsz.PAS}
 
 { Пример программы для процедуры SetUserCharSize }
 
 { Иллюстрирует, как менять ширину и высоту текста }
 
 Uses Graph;
 
 Var Driver, Mode : Integer;
 
 Begin
  Driver := Detect;
  InitGraph(Driver, Mode, '');
  If GraphResult <> grOk Then Halt(1);
  { Выводим текст  }
  SetTextStyle(TriplexFont, HorizDir, 4);
  OutText('Norm');
  SetUserCharSize(1, 3, 1, 1);
  OutText('Short ');
  SetUserCharSize(3, 1, 1, 1);
  OutText('Wide');
  ReadLn;
  CloseGraph;
 End.