Правила форума
SetUserCharSize (процедура) (модуль Graph)Язык:
Русский
English
SetUserCharSize (процедура) (модуль Graph)
Изменяет ширину и высоту символов для векторных шрифтов.
Объявление
Procedure SetUserCharSize(MultX, DivX, MultY, DivY : Word);
Режим
Real, Protected
Замечания
MultX:DivX - коэффициент умножения по ширине для активного шрифта, MultY:DivY - коэффициент умножения по высоте для активного шрифта.
Например, чтобы сделать текст вдвое шире, установите значение MultX равное 2, а DivX равное 1 (2 Div 1 = 2).
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры SetUserCharSize }
{ Иллюстрирует, как менять ширину и высоту текста }
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
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.
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
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.
::
::
::
