1. Создание полноценного текстового редактора файлов формата RTF.
1) Создайте папку под новый проект.
2) Создайте новый проект и сохраните его в созданную папку.
3) Оформите внешний вид окна: задайте заголовок «Текстовый редактор» (Caption), размеры (Width, Height), позицию / положение (Position / Top, Left), стиль границ (BorderStyle) и кнопки заголовка (BorderIcons) формы.
4) Разместите на форме следующие компоненты и задайте им свойства:
Оформите форму следующим образом:
5) Выполнить двойной щелчок на ActionManager. Появится диалоговое окно, в котором необходимо добавить следующие стандартные действия (Ctrl+Ins): все пункты из ветвей «Edit», «Format».
После добавления окно редактирования ActionManager будет иметь следующий вид:
В список изображений добавятся иконки добавленных действий:
6) В окне ActionManager выполните настройки добавленных действий и категорий: задайте названия действий (свойство Caption), названия категорий (свойство Category) и всплывающие подсказки (свойство Hint) на русском языке.
7) Перетащите категории «Правка» и «Формат» из окна ActionManager на панель главного меню ActionMainMenuBar. Также перетащите действия из окна ActionManager на панели инструментов ActionToolBar: действия категории «Правка» на панель «Стандартная», действия категории «Формат» на панель «Форматирование».
8) В окне ActionManager переключитесь на вкладку «Toolbars» и для обеих панелей инструментов установите в комбинированном списке «Caption options» значение «None» - отменяет вывод названий действий на кнопках.
9) Перетаскиванием кнопки «Drag to create Separators», разместите разделители кнопок панелей и пунктов меню на панелях инструментов и в главном меню (как в примере приложение «RTF_Editor.exe»):
10) Откройте двойным щелчком контекстное меню PopupActionBar (или через пункт контекстного меню «Menu Designer…») и настройте контекстное меню путем выбора для пунктов соответствующих действий в свойстве Action.
11) Запустите программу на выполнение и проверьте работоспособность реализованных действий (главного и контекстного меню, панелей инструментов).
12) Добавьте в ImageList иконки для действий: открытия файла, сохранения файла, выбора цвета и шрифта, выхода.
13) Разместите на форме следующие компоненты и задайте им свойства:
Получите форму следующего вида:
13) Откройте окно менеджера действий ActionManager и добавьте следующие пользовательские действия (Ins):
14) Перетащите категорию «Файл» из окна ActionManager на панель главного меню ActionMainMenuBar. Также перетащите на панель главного меню ActionMainMenuBar действия «О программе…».
15) Перетащите действия из окна ActionManager на панели инструментов ActionToolBar:
- действия категории «Файл» на панель «Стандартная»,
- действия «Шрифт…» и «Цвет…» категории «Формат» на панель «Форматирование».
16) Перетаскиванием кнопки «Drag to create Separators», разместите разделители кнопок панелей и пунктов меню на панелях инструментов и в главном меню (как в примере приложение «RTF_Editor.exe»):
17) Сохраните проект и запустите программу на исполнение.
2. Разработать программу, позволяющую задавать:
- цвет фона поля ввода TEdit с помощью компонента TColorBox;
- цвет фона многострочного поля ввода TMemo с помощью компонента TColorBox;
- цвет фона формы с помощью диалога выбора цвета TColorDialog;
- шрифт формы и всех ее элементов с помощью диалога выбора шрифта TFontDialog.
Для выбора шрифта достаточно использовать свойства Font самой формы и диалога выбора шрифта. Причем при задании шрифта форме, все элементы формы получают указанный шрифт, если для них установлено свойство «шрифт родителя» ParentFont=True.
1) Создайте папку под новый проект.
2) Создайте новый проект и сохраните его в созданную папку.
3) Оформите внешний вид окна: задайте заголовок «Текстовый редактор» (Caption), размеры (Width, Height), позицию / положение (Position / Top, Left), стиль границ (BorderStyle) и кнопки заголовка (BorderIcons) формы.
4) Разместите на форме следующие компоненты и задайте им свойства:
| Название | Компонент | Значения свойств |
| Список изображений | ImageList (Win32) | Name = ilMain |
| Менеджер действий | ActionManager (Additional) | Name = amMain Images = ilMain |
| Главное меню для действий | ActionMainMenuBar | Name = ammMain Caption = ' Главное меню' ShowHint = True |
| Контейнер панелей инструментов | CoolBar (Win32) | Name = clbMain AutoSize = True |
| Панель инструментов для действий (в CoolBar) | ActionToolBar (Additional) | Name = atbStandard Caption = 'Стандартная' ShowHint = True |
| Панель инструментов для действий (в CoolBar) | ActionToolBar (Additional) | Name = atbFormat Caption = 'Форматирование' ShowHint = True |
| Контекстное меню для действий | PopupActionBar (Additional) | Name = pamMain Images = ilMain |
| Поле редактирования форматированного текста | RichEdit (Win32) | Name = redMain Align = alClient PopupMenu = pamMain Lines = '' |
Оформите форму следующим образом:
8) В окне ActionManager переключитесь на вкладку «Toolbars» и для обеих панелей инструментов установите в комбинированном списке «Caption options» значение «None» - отменяет вывод названий действий на кнопках.
9) Перетаскиванием кнопки «Drag to create Separators», разместите разделители кнопок панелей и пунктов меню на панелях инструментов и в главном меню (как в примере приложение «RTF_Editor.exe»):
12) Добавьте в ImageList иконки для действий: открытия файла, сохранения файла, выбора цвета и шрифта, выхода.
13) Разместите на форме следующие компоненты и задайте им свойства:
| Название | Компонент | Значения свойств |
| Диалог открытия файла | TOpenDialog (Dialogs) | Name = odMain DefaultExt = 'rtf' Filter = ' RTF документы (*.rtf)|*.rtf|Все файлы (*.*)|*.*' |
| Диалог сохранения файла | TSaveDialog (Dialogs) | Name = sdMain DefaultExt = 'rtf' Filter = ' RTF документы (*.rtf)|*.rtf|Все файлы (*.*)|*.*' |
| Диалог выбора шрифта | TFontDialog (Dialogs) | Name = fdMain |
| Диалог выбора цвета | TColorDialog (Dialogs) | Name = cdMain Options = [cdFullOpen] |
Получите форму следующего вида:
| Действие | Значения свойств | Обработчик |
| Выход | Name = acClose Category = 'Файл' Caption = 'Выход' Hint = 'Выход' ImageIndex = иконка ShortCut = Ctrl+Q | procedure TfrmMain.acCloseExecute(Sender: TObject); begin Close end; |
| Открытия файла | Name = acOpen: TAction Category = 'Файл' Caption = 'Открыть' Hint = 'Открыть' ImageIndex = иконка ShortCut = Ctrl+O | procedure TfrmMain.acOpenExecute(Sender: TObject); begin if odMain.Execute then if FileExists(odMain.FileName) then redMain.Lines.LoadFromFile(odMain.FileName) else ShowMessage('Файл не найден!'); end; |
| Сохранение файла | Name = acSave Category = 'Файл' Caption = 'Сохранить' Hint = 'Сохранить' ImageIndex = иконка ShortCut = Ctrl+S | procedure TfrmMain.acSaveExecute(Sender: TObject); begin if sdMain.Execute then redMain.Lines.SaveToFile(sdMain.FileName); end; |
| Выбор шрифта… | Name = acFont Category = 'Формат' Caption = 'Шрифт...' Hint = 'Шрифт...' ImageIndex = иконка | procedure TfrmMain.acFontExecute(Sender: TObject); begin if fdMain.Execute then begin redMain.SelAttributes.Name := fdMain.Font.Name; redMain.SelAttributes.Color := fdMain.Font.Color; redMain.SelAttributes.Size := fdMain.Font.Size; redMain.SelAttributes.Style := fdMain.Font.Style; end; end; |
| Выбор цвета… | Name = acColor Category = 'Формат' Caption = 'Цвет...' Hint = 'Цвет...' ImageIndex = иконка | procedure TfrmMain.acColorExecute(Sender: TObject); begin if cdMain.Execute then redMain.SelAttributes.Color := cdMain.Color; end; |
| О программ… | Name = acAbout: TAction Caption = 'О программе...' Hint = 'О программе...' | procedure TfrmMain.acAboutExecute(Sender: TObject); begin MessageDlg('RTF Editor'+#10#13+'Автор: Баночкин Ф.Б.', mtInformation, [mbOk], 0); end; |
14) Перетащите категорию «Файл» из окна ActionManager на панель главного меню ActionMainMenuBar. Также перетащите на панель главного меню ActionMainMenuBar действия «О программе…».
15) Перетащите действия из окна ActionManager на панели инструментов ActionToolBar:
- действия категории «Файл» на панель «Стандартная»,
- действия «Шрифт…» и «Цвет…» категории «Формат» на панель «Форматирование».
16) Перетаскиванием кнопки «Drag to create Separators», разместите разделители кнопок панелей и пунктов меню на панелях инструментов и в главном меню (как в примере приложение «RTF_Editor.exe»):
- цвет фона поля ввода TEdit с помощью компонента TColorBox;
- цвет фона многострочного поля ввода TMemo с помощью компонента TColorBox;
- цвет фона формы с помощью диалога выбора цвета TColorDialog;
- шрифт формы и всех ее элементов с помощью диалога выбора шрифта TFontDialog.
Для выбора шрифта достаточно использовать свойства Font самой формы и диалога выбора шрифта. Причем при задании шрифта форме, все элементы формы получают указанный шрифт, если для них установлено свойство «шрифт родителя» ParentFont=True.
Комментариев нет:
Отправить комментарий