Создание области для отображения и редактирования текстов:
Разместите на форме компонент RichEdit, в который будем загружать текстовый файл, очистите его в свойстве Lines.
Установите значение Client в свойстве Align компонента, обеспечив тем самым заполнение компонентом всей незанятой части главного интерфейсного окна.
При установке свойства WordWrap в True происходит разбиение текста на строки по ширене компонента.
Свойство ScrollBars позволяет установить стандартные полосы «прокрутки» текстов: ssVertical – только вертикальная полоса, ccHorizontal - только горизонтальная полоса, ssBoth – обе полосы.
Создание контекстного меню:
Разместите на форме компонент PopupMenu и добавим в опции команды Вырезать, Копировать, Вставить, Выделить все.
Для привязки контекстного меню к компоненту RichEdit занесем в свойство PopupMenu этого компонента имя контекстного меню PopupMenu1.
Реализация команды меню Формат
Формат шрифта компонента RichEdit будем менять с помощью компонента FontDialog (страница Dialogs). Поместите данный компонент на форму. Обработайте событие OnClick для меню Формат/Шрифт следующим образом:
{если в диалоговом окне выбраны параметры шрифта и нажата кнопка OK, то}
if FontDialog1.Execute then
{параметры, выбранные в FontDialog, присваиваем RichEdit}
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
Реализация команды меню Справка
По нажатию на команду меню Справка, должно появляться окно, содержащее информацию о проекте, для этого:
Выберите команду File/ New/ Other;
В появившемся окне New Items на закладке Forms выберите Aboutbox;
Сохраните модуль формы в папке “Блокнот”;
Оформите элементы формы так, чтобы на ней отображалась информация о разработчике (ваши ФИО, группа, специальность, название программы, её назначение);
Например так:
В обработке события OnClick по команде Справка введите AboutBox.Show;
В модуле Unit1 формы “Блокнот” внесите в раздел uses имя модуля формы Uses 2;
Реализация команд меню Правка
Работа с буфером обмена производиться с помощью методов компонента RichEdit.
Метод CopyToCIipboard предназначен для копирования выделенного фрагмента текста в Системный буфер обмена.
Метод CutToCIipboard предназначен для удаления из текста выделенного фрагмента и переноса его в Системный буфер обмена.
Метод PasteFromClipboard предназначен для вставки текста, содержащегося в Системном буфере обмена, по месту текстового курсора.
Обработайте событие OnClick для компонентов: 1) меню Правка/Копировать, 2) кнопки панели инструментов Копировать, 3) пункта контекстного меню Копировать следующим образом:
{копируем выделенный фрагмент в буфер обмена}
RichEdit1.CopyToClipboard;
{снимаем выделение фрагмента}
RichEdit1.HideSelection:= true;
Обработайте событие OnClick для компонентов: 1) меню Правка/Вставить, 2) кнопки панели инструментов Вставить, 3) пункта контекстного меню/ Вставить следующим образом:
RichEdit1.PasteFromClipboard;
Обработайте событие OnClick для компонентов: 1) меню Правка/ Вырезать, 2) кнопки панели инструментов Вырезать, 3) пункта контекстного меню Вырезать следующим образом:
RichEdit1.CopyToClipboard;
RichEdit1.ClearSelection;
Обработайте событие OnClick для пункта контекстного меню Выделить все следующим образом:
RichEdit1.SelectAll;