Процедура SetTextStyle використовується для зміни шрифту тексту, що виводиться, напрямки виведення, а також величини символів.
Процедура SetTextStyle в Паскаль.
Рядок №3. У програмі ми будемо використовувати цикл, тому що необхідно дати змінну, яка буде використовуватися в якості лічильника для циклу.
Рядок №20. Встановлюємо колір для тексту, що виводиться.
У рядку №21 записуємо цикл, і потім записуємо 3 оператора, які будуть виконуватися в циклі (рядок №23, №24, №25). Нагадаю, що якщо в циклі необхідно виконати більше одного оператора, то їх необхідно укласти в операторні дужки begin ... end (рядок №22 і №26).
У рядку №23 записуємо перший оператор. Це процедура SetTextStyle. Ця процедура визначає шрифт тексту, що виводиться, напрямок тексту, що виводиться, а також величину букв. Перший параметр цієї процедури визначає шрифт тексту, що виводиться (в нашому прикладі перший параметр буде приймати значення змінної «i» і завдяки циклу змінюватися від 0 до 10).
Другий параметр визначає напрям виведення тексту. Цей параметр може приймати тільки 2 значення - 0 або 1. Якщо стоїть 0 (як в нашому прикладі), то текст буде виводитися зліва направо. Якщо стоїть 1, то текст буде виводитися зверху вниз.
Третій параметр визначає величину символів. Він може приймати значення від 1 до 10 (1 - найменший розмір, 10 - найбільший розмір). Нижче наведено таблицю шрифтів і відповідних їм констант.
Перший шрифт в цій таблиці застосовується за умовчанням в середовищі Free Pascal. Також слід сказати, що це єдиний шрифт, яким ви можете користуватися в стандартній зборці компілятора Free Pascal. Незалежно від того, який шрифт ви вкажете в процедурі SetTextStyle, текст буде виводитися тільки крапковим шрифтом DefaultFont. Для того щоб можна було виводити текст іншими шрифтами, їх необхідно завантажити в папку з програмою. Для цього завантажуємо архів зі шрифтами. розпаковуємо його і засовуємо в папку C: \ FPC \ 2.2.2 \ bin \ i386-win32 \.
Таким чином, в папці C: \ FPC \ 2.2.2 \ bin \ i386-win32 \ у вас з'явиться 10 файлів з розширенням .CHR.
Тепер ми можемо використовувати 11 різних шрифтів (один - стандартний, і 10 - взятих з компілятора Turbo Pascal).
У рядку №24 виводимо на екран слово «pascal». Завдяки циклу це слово буде виведено на екран 11 разів. Причому всі 11 слів будуть виведені один за іншим, тому що процедура OutText виводить текст на екран і переносить покажчик в кінець цього тексту.
Рядок №25. Всі 11 слів будуть виводитися з затримкою в 1 секунду.
Доповнення до матеріалу.
Слід враховувати той факт, що якщо ви запускаєте програму з середовища Free Pascal (Ctrl + F9), то шрифти повинні знаходитися в папці bin \ i386-win32. Якщо ж ви спочатку компілюєте програму, а потім запускаєте скомпільований EXE-файл, то шрифти повинні знаходитися в одній папці з програмою (файлом EXE). Тобто якщо ви переносите програму в іншу дірректорію (або на інший комп'ютер), то і файли шрифтів теж необхідно перенести.
Шрифт DefaultFont (0) входить в модуль Graph і його можна використовувати в будь-який момент. Цей шрифт є матричним, тому зміна розмірів символів, що виводяться цим шрифтом, сильно позначається на якості тексту.
Шрифти з 1 по 10 є векторними і при зміні розмірів тексту, його якість не змінюється.
Шрифти з 0 по 4 мають константу, яку можна використовувати в процедурі SetTextStyle замість числової константи. Наприклад, рядок SetTextStyle (3,0,4) можна записати так SetTextStyle (SansSerifFont, 0,4). Шрифти з 5 по 10 не мають констант, тому для їх використання можна застосовувати тільки числову константу.
Шрифт DefaultFont (0) не має файлу, тому що він вже включений в модуль Graph. Шрифти з 1 по 10 мають файли, тому для використання цих шрифтів відповідні їм файли повинні знаходитися в папці C: \ FPC \ 2.2.2 \ bin \ i386-win32.