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

       

Операторы Bold, Italic, Underline и Strikethrough


 
Italic [On]                           курсив
Bold [On]                           полужирный
Underline [On]                    подчеркивание текста
Strikethrough [On]              перечёркивание текста
 
Перечисленные операторы доступны также и в виде соответствующих функций.
 
Bold                                  Bold()
Underline                            Underline()
Strikethrough                      Strikethrough()
Italic                                   Italic()
 


Пример.
 
Проверить, отформатирована ли выделенная область полужирным шрифтом, и если нет. то она форматировать её. Поместив вместо оператора bold, любую из приведенных выше пар оператор – функция, вы получите макрокоманду, демонстрирующую их работу.
 
Sub MAIN
A = Bold()
If A < 1 Then
MsgBox "Выделить полужирным."
Bold
Else
MsgBox "Текст отформатирован полужирным."
End If
End Sub
 
WordUnderline [On] – подчёркивание слов (пробелы между ними не подчёркиваются).
DoubleUnderline [On] – двойное подчеркивание текста.
DottedUnderline [On] – подчеркивание текста пунктирной линией.
Этим операторам соответствуют функции Italic(), Bold(), Underline(), WordUnderline(), DoubleUnderline() и DottedUnderline().
Гораздо более интересны операторы и функции, позволяющие менять сам шрифт и его атрибуты (размер, цвет, кернинг и т. д.):
Оператор Font$ имя$
[, размер] – применяет заданный шрифт указанного размера к выделенному тексту.
FontSizeSelect – если панель Форматирование присутствует на экране, то указатель перемещается в окошко с размерами шрифтов. Если этой панели на экране нет, то появляется диалоговое окно Шрифт, в котором маркер устанавливается на окно размера шрифта.
Функция FontSize()
– возвращает размер шрифта выделенного текста.
 
Пример.
 
Эта макрокоманда возвращает размер шрифта для выделенного участка и позволяет пользователю изменить этот размер.
 
Sub MAIN
fs = FontSize()
MsgBox “Шрифт ” + Str$(fs) + “пунктов”

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 они делают это независимо от того, поддерживается ли новый размер шрифта выбранным устройством печати или нет.
 

Содержание раздела