SetTextStyle процедура се използва за промяна на шрифта на текста продукция, продукция дестинации и символ величина.
SetTextStyle процедура в Pascal.
№3 низ. В програмата, ние ще използваме една линия, така че трябва да се създаде променлива, която ще се използва като брояч за цикъла.
String №20. Задайте цвета на показаната текста.
В №21 ред напишете цикъл, и след това да напишете оператора 3 да бъдат изпълнени в цикъл (линия №23, №24, №25). Позволете ми да ви напомня, че ако трябва да се изпълняват в поредица от повече от един оператор, те трябва да бъдат затворени в къдрава скоба започне ... край (линия №22 и №26).
В съответствие №23 напише първото твърдение. Тя SetTextStyle процедура. Настоящата процедура определя шрифта на текста, който по посока на Изведеният текст, както и стойността на буквите. Първият параметър на процедурата определя шрифта на текста продукция (в този пример, първият параметър ще се променлива стойност на «аз» и благодарение цикъл варира от 0 до 10).
Вторият параметър описва посоката на изхода на текста. Този параметър може да отнеме само две стойности - 0 или 1. Ако трябва да е 0 (както е в нашия пример), а след това ще се изпише текстът от ляво на дясно. Ако има един, а след това ще се изпише текстът с главата надолу.
Третият параметър определя размера на символа. Това може да отнеме стойности от 1 до 10 (1 - най-малкия размер, 10 - най-големият размер). Таблицата по-долу показва, шрифтовете и съответните им константи.
Първият шрифт в таблицата е околната среда по подразбиране във Free Pascal. Трябва също така да се каже, че това е единственият шрифта, който можете да използвате в стандартен монтаж компилатор Free Pascal. Независимо от това, което сте посочили в шрифта SetTextStyle на процедура, текстът ще се появи само точка DefaultFont шрифт. За да бъде в състояние да показва текст други шрифтове трябва да бъдат заредени в папката на програмата. За да направите това, изтеглете файла с шрифтове. разопакова го и поставя в папка C: \ FPC \ 2.2.2 \ бин \ i386-win32 \.
По този начин, в папка C: \ FPC \ 2.2.2 \ бин \ i386-win32 \ вие ще имате 10 файла с .CHR разширение.
Сега ние можем да използваме 11 различни шрифтове (едната - стандарт, както и 10 - взети от компилатора Turbo Pascal).
В съответствие №24 покаже думата «паскал». Благодарение на цикъла на тази дума, че ще бъдат показани 11 пъти. Освен това, всички 11 думи се показват една след друга, като процедура OutText показва текст на екрана и се движи курсора до края на текста.
String №25. Всички 11 думи ще бъдат показани със закъснение от 1 секунда.
Допълнение към материала.
Имайте предвид, че ако започнете програма от околната среда Free Pascal (Ctrl + F9), шрифтовете трябва да са в една папка бин \ i386-win32. Ако, обаче, първо ще се състави програма, и след това изпълнете компилиран EXE-файл, шрифтовете трябва да са в същата папка, програма (файл EXE). Т.е. Ако прехвърлите програмата за друга директория (или на друг компютър), а след това със същия шрифт файловете, които искате да прехвърлите.
DefaultFont (0) шрифт е включен в модула Графика и може да се използва по всяко време. Този шрифт е матрица, така че промяна на размера на символите, които се появяват в този шрифт, значително се отразява на качеството на текста.
Шрифтовете от 1 до 10 са вектор и промяна на размера на текста, неговото качество не е засегната.
Fonts 0 до 4 имат постоянен, което може да се използва в процедура SetTextStyle вместо числови константи. Например, SetTextStyle низ (3,0,4) може да се запише като SetTextStyle (SansSerifFont, 0,4). Шрифтовете от 5 до 10, не са постоянни, така че само числова константа могат да се прилагат за използването им.
DefaultFont шрифта (0) не е файл, тъй като то вече е включено в устройството Графика. Шрифтовете от 1 до 10 са файловете, така че да се използват тези шрифтове, съответстващи на файлове трябва да са в папка C: \ FPC \ 2.2.2 \ бин \ i386-win32.
Свързани статии