const
        cm_FilePrint  = 105;
        cm_FileSetup  = 107;
        cm_Pen        = 200;
        cm_About      = 201;
        cm_PalShow    = 301;
        cm_PalHide    = 302;

    Заметим, что число элементов меню в файле STEPS.INC не определено. Это связано с тем, что ObjectWindows в файле IWINDOWS.INC определяет для вас некоторые общие команды меню, включая cm_FileOpen, cm_FileNew, cm_FileSave и cm_FileSaveAs.

    Чтобы продолжить работу с программой Steps, используйте пакет разработчика ресурсов или компилятор ресурсов для создания ресурса меню и сохраните его в файле с расширением .RES - STEPS.RES. Формат файла ресурса в исходном виде вы можете посмотреть в файле STEPS.RC. Вы можете также использовать файл STEPS.RES, который можно найти на дистрибутивных дисках. Имея файл STEPS.RES, вы можете включить его с помощью директивы компилятора $R:

     {$R STEPS.RES}

    Директива компилятора $R в конце компиляции и компоновки автоматически добавляет заданный файл ресурса к выполняемому файлу. Ресурсы можно добавить или удалить из выполняемых файлов, а существующие ресурсы можно модифицировать.

    Примечание: О модификации ресурсов, уже скомпонованных с выполняемыми файлами, рассказывается в "Руководстве пользователя по пакету разработчика ресурсов".

    На Рис. 3.1 показан внешний вид этого меню (идентификатор ресурса 100). Оно включает в себя пункты File (Файл), Options (Параметры) и Palette (Палитра), а меню File содержит элементы New (Новый), Open (Открытие), Save (Сохранение), Save As (Сохранение под именем), Print (Печать), Printer Setup (Установка принтера) и Exit (Выход). Элементы верхнего уровня, у которых есть подэлементы, не имеют идентификаторов меню, а их вывод не вызывает никаких действий кроме вывода подэлементов.

    Примечание: Не путайте идентификатор ресурса меню с идентификаторами меню отдельных элементов (пунктов) меню.

Рис. 3.1 Программа Steps с ресурсом меню.

    Вместо хранения всего объекта файлового диалогового окна в виде поля его порождающего окна, вам следует построить новый объект файлового диалогового окна, когда он потребуется. Вместо данных, которые вам следует хранить вместо данных этого диалогового окна, вы должны сохранять имя и маску файла. На практике хорошо придерживаться следующего: вместо хранения всех объектов, которые вам могут не потребоваться, храните просто данные, необходимые для инициализации объектов, когда они потребуются.

    Построение файлового диалогового блока требует трех параметров: порождающего окна, шаблона ресурса и имя или маску файла (в зависимости от того, используется файловое окно для открытия или закрытия файла). Шаблон ресурса определяет, какое из стандартных файловых диалоговых окон вы хотите использовать. Стандартные файловые диалоговые ресурсы определяются идентификаторами ресурсов sd_FileOpen и sd_FileSave. Параметр имени файла используется для передачи используемой по умолчанию маски файла диалогу открытия файла (а также для возврата выбранного имени файла) и для передачи используемого по умолчанию имени для сохранения файла.

    Параметр шаблона ресурса определяет, будет ли файловый диалоговый блок использоваться для открытия или для сохранения файла. Если диалоговый ресурс имеет блок списка файлов с идентификатором управляющего элемента id_FList, диалоговый блок используется для открытия файлов; отсутствие такого блока списка указывает на диалоговое окно для сохранения файлов.

    Определение типа TStepsWindow должно теперь выглядеть следующим образом:

     
     TStepWindow = object(TWindow)
        .
        .
        .
       FileName: array[0...fsPathName] of Char;
        .
        .
        .

    Примечание: Для работы с константой fsPathName нужно использовать модуль WinDos.

    Для создания экземпляра объекта справочного окна вы можете использовать конструктор Init типа TStepWindow. Теперь вам потребуется добавить к нему код для инициализации FileName:

     StrCopy(FileName, '*.PTS');

    Расширение .PTS используется для файлов, содержащих точки вашего графического изображения.

    CMFileOpen и CMFileSaveAs следует переписать следующим образом:

     procedure TStepWindow.CMFileOpen(var Msg: TMessage);
     begin
        if Application^.ExecDialog(New(PFileDialog,
           Init(@Self, PChar(sd_FileOpen), FileName))) = id_Ok
        then MessageBox(HWindow, FileName, 'Открыть файл:',
             mb_Ok);
     end;

     procedure TStepWindow.CMFileSaveAs(var Msg: TMessage);
     begin
        if Application^.ExecDialog(New(PFileDialog,
           Init(@Self, PChar(sd_FileSave), FileName))) = id_Ok
        then MessageBox(HWindow, FileName, 'Сохранить файл:',
             mb_Ok);
     end;

    Полный исходный код программы Steps для данного шага вы можете найти в файле STEP04B.PAS.