Высокоуровневые методы информатики и программирования. Сивохин А.В - 60 стр.

     OrlovPanel2
     Для OrlovPanel1 в свойстве Align задать alTop, а для панели OrlovPanel2 —
alClient. Установить на этой панели компоненту TRichEdit со свойствами: Name =
OrlovRichEdit и Align = alClient.


      Создать меню с помощью компоненты TMenu и задать имя OrlovFileMenu.
Для элементов меню и команд задать названия и имена: Для элемента “Файлы” и
miFile
                    “Очистить” и miClear
                    “Сохранить” и miSave
                    “Сохранить как” и miSaveAs
                    “Редактировать” и miEdit
                    “Выход” и miExit
      для “Работа с текстовыми файлами”– miTextFile
          “Писать”– miWrite
          “Читать”– miRead
      для “Работа с типизованными файлами”– miTypeFile
          “Писать”– miTypeWrite
          “Читать”– miTypeRead
      Записать в модуль следующие обработчики:
     а) для команды “Очистить”:
     OrlovRichEdit.Clear.
     б) для команды “Открыть”:
     If                         OrlovOpenDialog.Execute                   then
OrlovRichEdit.Lines.LoadFormFile(OrlovOpenDialog.FileName);
     в) для команды “Сохранить”:
     OrlovRichEdit.Lines.SaveToFile(OrlovOpenDialog.FileName);
     г) для команды “Сохранить как”:
     If                         OrlovSaveDialog.Execute                   then
OrlovRichEdit.Lines.SaveToFile(OrlovSaveDialog.FileName);
     д) для команды “Редактировать”:

37