У попередніх прикладах ми виводили текст англійськими літерами. При спробі вивести текст російськими буквами в графічному режимі у нас виникнуть певні проблеми. Замість тексту на екрані ми побачимо незрозумілі кракозябри. Справа в тому, що графічний режим Паскаля не підтримує кирилицю. У деяких випадках російськомовні повідомлення виводяться шрифтом DefaultFont, однак він не відрізняється великими образотворчими можливостями. Для того щоб вирішити проблему російських шрифтів в Паскалі, можна використовувати модифіковані шрифти.
Для того щоб можна було виводити російські букви необхідно встановити російські шрифти. Для цього завантажуємо архів з (в архіві їх буде 8 штук). Потім розпаковуємо архів в папку з вашою програмою C: \ FPC \ 2.2.2 \ bin \ i386-win32. Погоджуємося на заміну файлів. Таким чином, з 10 файлів, які ми завантажили в папку C: \ FPC \ 2.2.2 \ bin \ i386-win32 в минулому уроці, 8 файлів ми замінили. У таблиці нижче показано, які шрифти помінялися на російські.
Таким чином, тепер ми можемо виводити на екран російськомовні повідомлення за допомогою шрифтів 1,2,3,4,6,8 і 9. Для наочності напишемо програму, яка виводить пропозицію «Мова програмування Паскаль».
Російські шрифти в Паскаль.
Program Graphika19; 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 (11); settextstyle (1,0,6); outtext ( 'Мова'); settextstyle (2,0,6); outtext ( 'програмування'); settextstyle (3,0,6); outtext ( 'Паскаль'); readln; closegraph; end.
У рядку №20 вказуємо колір для виведених слів.
У рядку №21 - №26 виводимо на екран російські слова за допомогою шрифтів №1, №2 та №3.
Доповнення до матеріалу.
Ми помістили шрифти в папку bin \ i386-win32. Однак при такому розкладі вони будуть працювати тільки в середовищі Free Pascal (тобто якщо ми запустимо програми з компілятора Free Pascal). Однак, якщо ми запустимо програму за допомогою скомпільованої файлу graphika19.exe (наприклад, при перенесенні програми на інший комп'ютер), то шрифти працювати не будуть. В цьому випадку слід помістити всі шрифти в папку з самою програмою.
Попередня стаття: Процедура SetTextStyle.
Зміст: Уроки Паскаль. Графіка.
Наступна стаття: процедура SetTextJustify .
