Процедура SetUserCharSize

Модуль GRAPH

Изменяет ширину и высоту символов для векторных шрифтов.

Объявление:

Procedure SetUserCharSize(MultX, DivX, MultY, DivY : Word);

Режим:

Protected,  Real

Замечание:

MultX:DivX - коэффициент умножения по ширине для активного шрифта,
MultY:DivY - коэффициент умножения по высоте для активного шрифта.

Например, чтобы сделать текст вдвое шире, установите значение MultX равн 2, а DivX равное 1 (2 Div 1 = 2).

Нужно быть в графическом режиме.

Пример:

{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.