1 Часть

Порядок выполнения

1. Создать новый проект и сохранить его под именем MainEditor.

2. Создать на форме меню:

• установить на форме компонент MainMenu (Standard);

• присвоить ему имя mmMain. Каждому пункту меню задать информативное имя:

Файл (miFile) Новый(miNewFile) Открыть(miOpenFile) Сохранить(miSaveFile)	Правка(miEdit) Копировать (miCopy) Вырезать(miCut) Вставить(miPaste) Найти(miFind) Заменить(miReplace)
Формат (miFormat) Шрифт (miFont) Абзац (miPar)	Вставка (miIns) Дата (miData) Время (miTime)

Выход(miExit)

3. Создать панель инструментов:

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

5. Связать набор пиктограмм с панелью инструментов и основным меню: для компонентов mmMain и tlbMain для свойства Images из списка выбрать ImageList1.

6. Изменить значения свойства ImageIndex для соответствующих пунктов меню и кнопок панели инструментов.

7. Добавить на панель инструментов компонент ColorBox (Additional) для выбора цвета шрифта, изменить значения свойств:

Name cobFontColor, Selected clBlack,

Style cbExtendedColors False

cbSystemColors False

8. Добавить на панель инструментов компонент SpinEditor (Samples) для ввода размеров шрифта, изменить значения свойств:

Name - sdFontSize, MaxValue 70, MinValue 8)

9. Добавить на панель инструментов три компонента CheckBox (Standard) для изменения начертания шрифта, изменить значения свойств для каждого:

Name chBold, chItalic, chUnderLine

Caption Ж К Ч

4. На форме установить компонент RichEdit (Win32), изменить значения свойств для этого объекта:

Name Document, ScrollBars ssBoth

5. Для объекта sdFontSize выбрать событие OnChange и ввести следующий код:

document.Font.Size:=sdFontSize.Value ;

6. Для объекта chBold выберите событие OnClick и ввести следующий код:

if chBold.Checked Then

document.Font.Style := document.Font.Style +[fsBold]

Else

document.Font.Style := document.Font.Style -[fsBold];

7. Сохранить проект и проверить его работу:

• ввести произвольный текст;

• изменить размер шрифта и начертание Полужирный.

8. Самостоятельно ввести код для объектов chItalic и chUnderline (использовать константы fsItalic, fsUnderline), проверить работу приложения.

9. Для объекта cobFontColor выбрать событие OnChange и ввести следующий код:

document.font.Color := cobFontColor.Selected

10. Сохранить и проверить работу программы.