· расположить на форме компонент ToolBar (Win32), присвоить имя tlbMain, для свойства EdgeBorders добавить значение ebBotton True;
· щелкнуть на созданной панели правой кнопкой мыши и выполнить NewButton, установить кнопке следующие свойства:
Hint создать файл
MenuItem miNewFile
Name btnNewFile
ShowHint True
· аналогичным образом создать еще кнопки и изменить им свойства: Открыть, Сохранить, Копировать, Вырезать, Вставить, Найти, Заменить;
· для добавления изображений командам и кнопкам добавить на форму компонент ImageList (Win32);
· дважды щелкнуть по компоненту, появится редактор, щелкните по кнопке Add и указать размещение требуемых графических файлов Program Files\Common Files\Borland Shared\Images\Buttons, добавить соответствующий файл, в момент добавления на экране появится запрос о разбиении одной пиктограммы на две, ответьте утвердительно.
Связать набор пиктограмм с панелью инструментов и основным меню: для компонентов mmMain и tlbMain для свойства Images из списка выбрать ImageList1.
Изменить значения свойства ImageIndex для соответствующих пунктов меню и кнопок панели инструментов.
Добавить на панель инструментов компонент ColorBox (Additional) для выбора цвета шрифта, изменить значения свойств:
Name cobFontColor, Selected clBlack,
Style cbExtendedColors False
cbSystemColors False
Добавить на панель инструментов компонент SpinEditor (Samples) для ввода размеров шрифта, изменить значения свойств:
Name - sdFontSize, MaxValue 70, MinValue 8)
Добавить на панель инструментов три компонента CheckBox (Standard) для изменения начертания шрифта, изменить значения свойств для каждого:
Name chBold, chItalic, chUnderLine
Caption Ж К Ч
На форме установить компонент RichEdit (Win32), изменить значения свойств для этого объекта:
Name Document, ScrollBars ssBoth
Для объекта sdFontSize выбрать событие OnChange и ввести следующий код:
document.Font.Size:=sdFontSize.Value ;
Для объекта chBold выберите событие OnClick и ввести следующий код:
7. Проверить работу приложения и внести соответствующие изменения для других элементов форматирования.
8. Добавить на панель инструментов комбинированный список, задать ему имя cbFontName, для свойства Items ввести несколько значений, например: Times New Roman
Courier New
Garamond
Arial
Comic Sans MS
9. Самостоятельно написать код, позволяющий изменять тип шрифта выделенного фрагмента.
10. Для выравнивания абзацев добавить на панель инструментов еще три кнопки, задать им имена btnLeft, btnCenter, btnRight и соответствующее изображение и ввести код в соответствии с назначением:
document.Paragraph.Alignment := TaLeftJustify;
document.Paragraph.Alignment := TaRightJustify;
document.Paragraph.Alignment := TaCenter;
11. Проверить работу приложения.
12. Для форматирования абзацев маркированным списком добавить на панель инструментов еще одну кнопку, задать имя btnSpisok, изменить изображение и ввести для нее код:
document.Paragraph.Numbering :=nsBullet;
13. Проверьте работу приложения. Самостоятельно изменить работу приложения, чтобы была возможность отменять маркированный список при повторном щелчке.
Часть
1. Добавить на форму компонент FontDialog(Dialogs)., присвоить имя fontD_1 Для пункта меню Формат/Шрифт ввести следующий код:
If fontd_1.Execute Then
Begin
Document.SelAttributes.Name :=FONTd_1.Font.Name ;
Document.SelAttributes.Size :=FONTd_1.Font.Size ;
End;
2. Самостоятельно дополнить код, чтобы все выбранные атрибуты шрифта были применены к выделенному тексту.
3. Добавить на форму компонент ColorDialog(Dialogs)., присвоить имя ColorD_1. Добавить в пункт меню Формат подпункт Цвет.
4. Самостоятельно ввести код для изменения цвета шрифта выделенного текста.
5. Проверить работу приложения.
6. Добавить компоненты FindDialog и ReplaceDialog, изменить имена fd_1 и rd_1 соответственно.
7. Для пункта меню Правка/Найти ввести код:
If fd_1.Execute Then Begin End;
8. Для объекта Fd_1 выбрать событие OnFind и ввести код:
FinStr:=fd_1.FindText ;
k:=pos(FinStr,document.Text );
If k<>0 Then
Begin
document.SelStart :=k -1; ;//начало выделения текста
document.SelLength :=length(finstr); //выделение текста
document.SetFocus;
End
Else ShowMessage('Текст не найден);
9. Для пункта меню Правка/Заменить ввести код:
If rd_1.Execute Then Begin End;
10. Для объекта rd_1 выбрать событие OnReplace и ввести код:
FinStr:=rd_1.FindText ;
k:=pos(FinStr,document.Text );
If k<>0 Then
Begin
document.SelStart :=k -1
document.SelLength :=length(finstr);
document.SelText :=rd_1.replaceText;.// замена
End
Else ShowMessage('Текст не найден’);
11. Добавить на форму компонент SaveDialog (Dialogs), присвоить имя sd_1, а свойству Filter значение - Документ|*.Txt. Самостоятельно ввести программу для сохранения содержимого текстового окна в файл.
12. Добавить на форму компонент OpenDialog (Dialogs), присвоить имя od_1, а свойству Filter значение - Документ|*.Txt. Самостоятельно ввести программу для открытия файла и вывода его содержимого в текстовое окно.
13. Проверить работу приложения. Результат показать преподавателю.
