Порядок выполнения
Часть
Постановка задачи
Разработать приложение, реализующее основные функции текстового редактора:
- форматирование шрифта для выделенного контекста;
- копирование и перемещение выделенного контекста;
- выравнивание абзацев;
- поиск и замена в тексте;
- открытие и сохранение текстового файла;
Все функции приложения должны быть доступны через главное меню и панель инструментов.
- Создать новый проект и сохранить его под именем MainEditor.
- Создать на форме меню:
· установить на форме компонент MainMenu (Standard);
· присвоить ему имя mmMain. Каждому пункту меню задать информативное имя:
Файл (miFile) Новый(miNewFile) Открыть(miOpenFile) Сохранить(miSaveFile) | Правка(miEdit) Копировать (miCopy) Вырезать(miCut) Вставить(miPaste) Найти(miFind) Заменить(miReplace) |
Формат (miFormat) Шрифт (miFont) Абзац (miPar) | Вставка (miIns) Дата (miData) Время (miTime) |
Выход(miExit)
- Создать панель инструментов:
· расположить на форме компонент 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 и ввести следующий код:
if chBold.Checked Then
document.Font.Style := document.Font.Style +[fsBold]
Else
document.Font.Style := document.Font.Style -[fsBold];
- Сохранить проект и проверить его работу:
· ввести произвольный текст;
· изменить размер шрифта и начертание Полужирный.
- Самостоятельно ввести код для объектов chItalic и chUnderline (использовать константы fsItalic, fsUnderline), проверить работу приложения.
- Для объекта cobFontColor выбрать событие OnChange и ввести следующий код:
document.font.Color := cobFontColor.Selected
10.Сохранить и проверить работу программы.