Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

Логические операции с целыми числами.

Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.

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

Линейные процессы вычислений.

Простейший алгоритм представляет собой цепочку блоков (операторов) от начального блока до конечного. Каждый блок должен быть выполнен один единственный раз. Это линейный алгоритм. Он отражает ...

ЗАПИСИ. ТИП ДАННЫХ RECORD.

В описании данных и связей между ними используют понятия: запись логическая и запись физическая. Физическое описание данных определяет способ их хранения во внешней памяти ЭВМ. Логическое описание ...

Процедура SetTextJustify используется для выравнивания текста относительно текущего указателя или относительно заданных координат.

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





Program Graphika20;
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 (7,0,4);
moveto (getmaxx div 2, getmaxy div 2);
settextjustify (1,1);
outtext ('pascal ');
settextjustify (2,1);
outtextxy (150,150,'pascal ');
readln;
closegraph
end.



В строке №20 устанавливаем цвет для выводимых символов.

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

В строке №22 перемещаем текущий указатель в центр экрана. Для этого указываем координаты: getmaxx div 2 (т.е. максимальная координата по оси X, деленная пополам) и getmaxy div 2 (т.е. максимальная координата по оси Y, деленная пополам). При разрешении экрана 1366?768 текущий указатель переместится в точку с координатами 683,384.

Cтрока №23. Записываем процедуру SetTextJustify. Эта процедура выравнивает текс относительно текущего указателя. Данная процедура имеет 2 параметра. Первый параметр определяет выравнивание текста по горизонтали (в нашем примере – 1). Второй параметр определяет выравнивание текста по вертикали (в нашем примере – 1). Оба этих параметра могут принимать 3 различных значения. В таблице снизу указаны значения параметров, для процедуры SetTextJustify.

Procedura SetTextJustify, parametrih.

Таким образом, текст, который выводится в строке №24, будет выровнен посередине экрана.

В строке №25 записываем процедуру SetTextJustify и указываем для нее параметры (2,1). Т.е. текст, который выводится в строке №26, будет располагаться левее текущего указателя при горизонтальном выравнивании и посередине текущего указателя при вертикальном выравнивании.

Строка №26. Выводим на экран текст. Этот текст имеет координаты 150,150. Т.е. первая буква текста должна вывестись в этих координатах. Однако, благодаря процедуре SetTextJustify, текст будет выведен правее точки с координатами 150,150.

Procedura SetTextJustify

После запуска программы, на экран выведется 2 слова. (На скриншоте снизу пересечение стрелочек определяют положение текущего указателя и положение текста относительно текущего указателя).

Procedura SetTextJustify.


Предыдущая статья:  Русские шрифты в графическом режиме.

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

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


   ГлавнаяПаскальГрафика в ПаскальГрафика в Паскаль.