Процедура SetUserCharSize.

Процедура SetUserCharSize используется для изменения величины символов в соответствии с заданными пропорциями. Данная процедура может применяться только к векторным шрифтам.  Увеличение или уменьшение размеров символов проводится по отношению к тем размерам, которые заданы в процедуре SetTextStyle.

 Использование процедуры SetUserCharSize для изменения величины текста.

Program Graphika21;
Uses Crt, Graph;
var i:integer;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:='';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
setcolor(3);
SetTextStyle(3,0,4);
OutText('Pascal ');
SetUserCharSize(3, 1, 1, 1);
OutText('Pascal ');
SetUserCharSize(1, 2, 1, 1);
OutText('Pascal ');
SetUserCharSize(1, 1, 3, 1);
OutText('Pascal ');
SetUserCharSize(1, 1, 1, 2);
OutText('Pascal ');
readln;
closegraph
end.

В строке №20 и №21 устанавливаем цвет,  тип шрифта, направление вывода и величину символов для выводимого слова.

В строке №22 выводим на экран сообщение (слово «pascal»).

В строке №23 записываем процедуру SetUserCharSize. Данная процедура изменяет размер букв в соответствии с заданными пропорциями. Данная процедура имеет 4 параметра. Первые 2 параметра определяют изменение величины текста по горизонтали. Например, если нам нужно увеличить текст по горизонтали  в 3 раза, то мы записываем первые 2 параметра так: 3,1 (увеличиваем текст 3 к 1). Третий и четвертый параметры определяют изменение величины текста по вертикали. В нашем примере эти параметры имеют значение 1,1. Т.е. текст не будет изменяться по вертикали. Выводим этот текст в строке №24.

В строке №25 мы уменьшаем текст по горизонтали в 2 раза. Для этого указываем в качестве первых 2-х параметров 1,2.  3-й и 4-й параметр имеют значения 1,1, т.е. текст не будет изменяться по вертикали. Выводим этот текст в строке №26.

В строке №27 увеличиваем текст по вертикали в 3 раза. Для этого указываем в качестве 3-его и 4-ого параметров значения 3,1. Первые 2 параметра имеют значения 1,1, т.е. величина текста не изменяется по горизонтали. Выводим этот текст в строке №28.

В строке №29 уменьшаем текст по вертикали в 2 раза, указав значения 1,2 в качестве 3-его и 4-го параметров. Выводим текст в строке №30.

Предыдущая статья : Процедура SetTextJustify.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура Str.