Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Циклы и массивы

Арифметический цикл с рекуррентной зависимостью.

Многие циклические вычислительные процессы используют рекуррентные зависимости при решении различных математических задач.

Вложенный арифметический цикл. Часть 2.

Примеры использования различных операторов цикла. Вложенный цикл.

Процедура 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.

SetUserCharSize.

SetUserCharSize..


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

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

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


Добавить комментарий

   ГлавнаяПаскальГрафика в ПаскальПроцедура SetUserCharSize.