Язык WordBasic - практический подход


Операторы Bold, Italic, Underline и Strikethrough - часть 2


FontSizeSelect
End Sub
 
Функция Font$() – возвращает имя шрифта выделенного текста. Если этот текст оформлен несколькими шрифтами, то возвращается пустая строка.
Font$(номер-шрифта) – возвращает имя шрифта, номер которого в списке шрифтов, доступных для выбранного, принтера равен номеру-шрифта. Число таких шрифтов можно получить с помощью функции CountFonts(). Следующий макрос возвращает полный список шрифтов.
 
Sub MAIN
      For i=1 To CountFonts()
      Insert Font$(i)
      InsertPara
End SUB
 
GrowFont – увеличивает размер шрифта выделенного текста до следующего размера, поддерживаемого выбранным принтером. Если в выделенном тексте используются шрифты разного размера, то каждый из них увеличивается до следующего доступного размера. Если выделенного текста нет, то новый размер шрифта будет применяться к добавляемому тексту. ShrinkFont – симметричный к GrowFont оператор, аналогичным образом уменьшающий размер шрифта.
Операторы GrowFontOnePoint и ShrinkFontOnePoint позволяют соответственно увеличивать и уменьшать размер шрифта выделенного текста на один пункт. Однако в отличие от GrowFont и ShrinkFont они делают это независимо от того, поддерживается ли новый размер шрифта выбранным устройством печати или нет.
 



Начало  Назад  Вперед