Виведення тексту

Виведення тексту в графічному режимі виконується тільки засобами модуля graph. Зверніть увагу — процедури модулів system і crt для виводу на екран не працюють коректно в графічному режимі, хоча і не видають ніяких помилок при виконанні. Це пояснюється різними принципами формування зображення в текстовому і графічному режимах. Не використовуйте в графічному режимі процедури write, writeln, clrscr, gotoxy і ін.

Процедури для виводу тексту приведені в таблиці.

Таблиця: вивід тексту.

Процедура	Призначення
OutText(Text)	Виводить на екран рядок Text, починаючи з покажчика. Поточний покажчик переміщається в кінець рядка.
OutTextXY(X, У, Text)	Виводить на екран рядок Text, починаючи з точки (X, У). Положення поточного покажчика не змінюється.
SetTextStyle(Font, Direction, CharSize)	Встановлюється шрифт, напрям тексту (горизонтальний або вертикальний), розмір символів (коефіцієнт збільшення початкового розміру шрифту Font).
SetTextJustify(Horiz, Vert)	Способи вирівнювання тексту відносно заданої точки (X, У) для процедури OutTextXY.
TextWidth(Stroka)	Функція повертає ширину рядка тексту на екрані в пікселях, використовуючи встановлений шрифт.
TextHeight(Stroka)	Аналогічна функція, але повертає висоту рядка тексту.

При виводі тексту необхідно пам'ятати, що всі шрифти, окрім DefauitFont (з номером 0), зберігаються в окремих файлах з розширенням chr. Стандартні варіанти цих файлів не містять російських букв, проте в даний час розповсюджуються перероблені файли з шрифтами, підтримуючі російський алфавіт. Більш того, є можливість створення своїх власних файлів з шрифтами, які реєструються в програмі за допомогою функції installUserFont, як параметр, який передається імені файлу з новим шрифтом (без розширення chr).

Таблиця: стандартні шрифти.

Позначення шрифту	Значення (номер)	Файл
DefaultFont	0	Ні
TriplexFont	1	Tripp.chr
SmallFont	2	Litt.chr
SansSerifFont	3	Sans.chr
GothicFont	4	Goth.chr

Для того, щоб вивести в графічному режимі змінні числового типу, можна скористатися стандартною процедурою str, яка дозволить перетворити числове значення в рядок тексту, а потім вивести отриманий рядок за допомогою процедур OutText або OutTextXY.

Приклад виводу тексту.

uses graph;

var gd,gm:integer;

begin

gd:=detect;

initgraph(gd, gm, ' ');

settextstyle(DefaultFont,HorizDir,3);

settextjustify(CenterText,CenterText);

setcolor(red);

outtextxy(320,240,' Текст в центрі екрану'); end.

Поняття модуля

Бібліотечний модуль оформляється як окремо компільована програмна одиниця, що містить різні елементи розділу описів і, можливо, деякі оператори. До складу модуля входять описи констант, змінних, типів, процедур, функцій. На практиці часто користуються терміном модуль, опускаючи прикметник.

Процедури і функції, що містяться в модулі, підключаються до програми, яка їх використовує, на етапі компоновки. Зберігається модуль як в початковому, так і у вигляді, що відкомпілювався (файли з розширеннями .pas і .tpu відповідно).

Тепер, нарешті, можна дати відповідь на питання, що краще всього робити з тими підпрограмами універсального призначення, які могли б використовуватися неодноразово при вирішенні різних задач. Зручно оформити такі процедури і функції (а також необхідні для їх роботи типи, константи, змінні) у вигляді окремих модулів.

По ходу роботи будь-який програміст звичайно накопичує для себе цілу колекцію таких корисних модулів — свою особисту бібліотеку. А це означає, що йому доведеться писати менше коду для нових програм, адже він може багато разів використовувати свої старі розробки.