Ход работы. 1. Сначала заменим компонент TextBox более многофункциональным компонентом Rich TextBox

1. Сначала заменим компонент TextBox более многофункциональным компонентом Rich TextBox. Для этого удалите компонент TextBox с формы и выберите команду Project → Components.

2. В открывшемся окне поставьте галочку напротив строки Microsoft Rich TextBox Control 6.0 (SP3).

3. Разместите компонент Rich TextBox на форме вместо прежнего компонента TextBox.

4. Чтобы не менять в программном коде предыдущее имя, измените свойство Name у компонента Rich TextBox на Text1.

5. Выберите команду Tools → Menu Editor (Редактор → Отладка) и дополните ранее созданное меню пунктом Формат, структура которого приведена на Рис.15.6. Названия пунктов приведены в Таблице 15.6.

Таблица 15.6

Название (Caption)	Уровень (← →)	Имя (Name)
Формат		mnuФормат
Шрифт		itmШрифт
Цвет		itmЦвет
Шрифт		subШрифт
Фон		subФон

6. Разместите на Форме компонент Common Dialog. В процессе работы он будет невидим.

7. Присвойте у компонента Common Dialog свойству Name значение CDlg1.

8. Выберите у компонента Common Dialog свойство Custom, и затем вкладку Font.

9. В полях FontName, FontSize, Min и Max установите параметры шрифта, которые будут использоваться по умолчанию. В поле Flags установить значение 2, определяющее тип шрифтов.

10. Выберите пункт меню Формат → Шрифт и напишите для обработчика этой команды следующий программный код (необходимые комментарии приведены в кавычках):

Private Sub itmШрифт_Click()

CDlg1.ShowFont 'Показываем диалоговое окно настроек шрифта

Text1.Font.Size = CDlg1.FontSize 'Присваиваем размеру шрифта в компоненте

'Text1 значение размера шрифта, которое

'будет указано в диалоговом окне настроек

Text1.Font.Name = CDlg1.FontName 'Устанавливаем тип шрифта

Text1.Font.Bold = CDlg1.FontBold 'Полужирное начертание шрифта

Text1.Font.Italic = CDlg1.FontItalic 'Курсивное начертание шрифта

Text1.Font.Underline = CDlg1.FontUnderline 'Подчеркнутый текст

Text1.Font.Strikethrough = CDlg1.FontStrikethru 'Зачеркнутый текст