добавит файл ресурсов SAMPLE.RES к выполняемому файлу. Каждая программа на языке Паскаль может иметь только один файл ресурсов (хотя этот файл ресурсов может включать другие файлы ресурсов). Все эти файлы должны быть файлами .RES и хранить ресурсы в двоичном формате. Директива компилятора $R позволяет вам задать отдельный файл .RES.

    - Использовать компилятор ресурсов.

    Код PChar(100) переводит целое значение 100 в тип PChar, совместимый с Windows тип строки. LoadMenu загружает ресурс меню с идентификатором 100 в новый объект окна. Ресурс может иметь символьное имя (строку), например, 'SampleMenu', а не числовой идентификатор. В этом случае предыдущий код будет выглядеть следующим образом:

     constructor SampleMainWindow.Init(AParent: PWindowsObject;
                                       ATitle: PChar);
     begin
       TWindow.Init(AParent, ATitle);
       Attr.Menu:=LoadMenu(HInstance, 'SampleMenu');
       .
       .
     end;

    Дополнительная информация по созданию объектов окна содержится в Главе 10, "Объекты окна".

    Для обработки выбора варианта меню просто определяется метод для окна, которое владеет этим меню, используя специальное расширение заголовка определения метода идентификатором cm_First:

     procedure HandleMenu101(var Msg: TMessage);
                                         virtual cm_First+101;

    Обратите внимание на то, что 101 представляет собой выбранного варианта меню (а не самого ресурса меню). Каждый пункт меню имеет уникальный целочисленный идентификатор. В этом методе задача состоит в организации соответствующей реакции на выбор пункта меню. Обычно вы будете определять символьные константы для команд вашего меню.

    Часто вы будете определять оперативные клавиши для быстрого выбора вариантов меню. Например, Shift+Ins обычно используется для быстрого выбора команды Paste. Оперативные клавиши генерируют основанные на команде сообщения, которые идентичны сообщениям, генерируемым выбором пункта меню. Для привязки метода реакции на выбор в меню с соответствующей оперативной клавишей нужно убедиться в том, что определенное в ресурсе значение оперативной клавиши идентично идентификатору элемента меню.

     
     Adlg := New(PSampleDialog, Init(@Self, PChar(120)));

    Дополнительная информация по созданию объектов диалога содержится в Главе 11, "Объекты диалоговых блоков".

    Однако, между курсором и пиктограммой имеется одно отличие. Оно состоит в том, что курсор задается для одного окна, а пиктограмма представляет все приложение. Следовательно, пиктограмма устанавливается в типе объекта только для основного окна. У этого правила имеется одно исключение: для приложений, которые следуют правилам многодокументального интерфейса (MDI), каждое дочернее окно MDI имеет свою собственную пиктограмму. Для использования одного из уже имеющихся курсоров или пиктограмм Windows, передайте 0 в HInstance и используйте значение idc_ (например, idc_IBeam) для курсора и значение idi_ (например, idi_Hand) для пиктограммы. Например:

     procedure SampleWindow.GetWindowClass(var AWndClass:
                                           TWndClass);
     begin
      TWindow.GetWindowClass(AWndClass);
      AWndClass.hCursor := LoadCursor(HInstance, idc_IBeam);
      AWndClass.hIcon := LoadIcon(HInstance, idi_Hand);
     end;

    Дополнительную информацию по регистрационным атрибутам окна можно найти в Главе 10, "Объекты окна".

• Параметр StringID - это номер идентификатора строки (например, 601) в таблице строк. Это число можно заменить константой.

• Параметр @TextItem - это указатель на массив символов (PChar), который принимает строку.

• Параметр SizeOf(TextItem) - это максимальное число символов, передаваемых в @TextItem. Максимальный размер ресурса строки 255 символов, поэтому передача буфера из 256 символов гарантирует полную передачу строки.

    LoadString возвращает число скопированных в буфер символов, или ноль, если ресурс не существует.

    Вы можете использовать ресурс строки для вывода текста в блоке сообщения. Например, вы можете вывести сообщение об ошибке. В данном примере вы определяете строку 'Program unavailable' в таблице строк и определяете константу ids_NoProgrm в качестве идентификатора строки. Для использования этого ресурса строки в блоке сообщения об ошибке, вы можете написать следующую процедуру:

     procedure TestDialog.RunErrorBox(ErrorNumber:
                                      Integer); virtual;
     var
       TextItem: array[0..255] of Char;
     begin
       LoadString(HInstance, ids_NoPrgrm, @TextItem, 20);
       MessageBox(HWindow, @TextItem, 'Error', mb_OK or
                  mb_IconExclamation);
     end;

    Данный пример загружает отдельную строку в блок сообщения об ошибке. Для загрузки списка строк в блок списка вызывается LoadString для загрузки каждой строки, затем вызывается AddString для добавления ее в блок списка.

    Другое использование ресурса строк применяется для элементов меню, которые добавляются в меню вашего исходного кода. В этом случае сначала получается ресурс строки с помощью LoadString. Затем эта строка передается как параметр в вызовы функций Window CreateMenu и AppendMenu. Например:

     procedure SampleWindow.Init(AParent: PWindpwsObject; ATitle:
                                 PChar);
     var
      TextItem: array[0..255] of Char;
     begin
        TWindow.Init(AParent, ATitle);
        Attr.Menu := LoadMenu(HInstance, PChar(100));
        LoadString(HInstance, 301, @TextItem, 20);
        AppendMenu(Attr.Menu, mf_String ormf_Enabled, 501,
                   @TextItem);
     end;

загружает ресурс побитового отображения с идентификатором 501 и записывает его описатель в переменную HMyBit. После загрузки побитового отображения оно останется в памяти до его явного удаления вами. В отличие от других ресурсов, оно остается в памяти даже после закрытия пользователем вашего приложения.

    В Windows имеется ряд заранее определенных графических изображений, которые используются как часть графического интерфейса Windows. Ваше приложение может загружать эти изображения (например, obm_DnArrow, obm_Close и obm_Zoom). Как и предопределенные пиктограммы и курсоры, предопределенные графические изображения могут быть загружены, если в вызове LoadBitmap вместо HInstance задать ноль:

     HMyBit:=LoadBitmap(0,  PChar(obm_Close));

    После загрузки графического образа ваше приложение может использовать его разными способами:

• Для рисования картинки на экране. Например, вы можете загрузить побитовое распределение в блок информации о приложении в качестве заставки.

• Для создания кисти, которую вы можете использовать для заполнения областей экрана или для создания фона окна. Создав кисть по графическому образу, вы можете закрасить ей область фона.

• Для отображения картинок вместо текста в элементах меню или элементах блока списка. Например, вы можете вместо слова 'Arrow' (стрелка) в пункте меню поместить изображение стрелки.

    Дополнительная информация относительно использования графики с побитовым отображением содержится в Главе 17.

    Если побитовое отображение не используется, то его нужно удалить из памяти. В противном случае занимаемая им память будет недоступна другим приложениям. Даже если вы не удаляете его после использования приложением, вы обязательно должны удалить его до прекращения работы приложения. Графический образ удаляется из памяти с помощью функции Windows DeleteObject:

     if DeleteObject(HMyBit) then         { успешно };

    После удаления графического изображения его описатель становится некорректным, и его нельзя использовать.

       TheBrush := CreateBrushInderect(@MyLogBrush);
     end;

    Для проверки образца, отобразим его в прямоугольнике:

     procedure MyWindow.Paint(PaintDC: HDC;
                              var PaintInfo: TPaintStruct);
     begin
       SelectObject(PaintDC, TheBrush);
       Rectangle(PaintDC, 20, 20, 200, 200);
     end;

    После использования кисти вы должны удалить и кисть, и графическое изображение:

     DeleteObject(HMyBit);
     DeleteObject(TheBrush);

    В приведенном выше коде 111 - это идентификатор команды варианта меню, который изменяется, а 211 это его новый идентификатор. Однако, вы можете использовать один и тот же идентификатор в обоих случаях.

Рис. 18.3. Меню, где в качестве одного из пунктов выбора использовано графическое изображение.