"Delphi. Учимся на примерах" - читать интересную книгу автора (Парижский Сергей Михайлович)

Глава 1 Интерфейс в стиле Windows XP

Как известно, интерфейс программ, написанных на Delphi и запускаемых в операционной системе (ОС) Windows XP, при любом стиле оформления будет иметь одинаковый вид. В этой главе будет показано как написать программу, которая будет отображаться в стиле XP.

С помощью любого редактора создайте текстовый файл и введите в нем следующий текст:

lt;?xml version="1.0" encoding="UTF-8" standalone="yes"?gt;

lt;assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"gt;

 lt;assemblyIdentity name="Microsoft.Windows.ApplicationName" processorArchitecture="x86" version="1.0.0.0" type="win32"/gt;

 lt;descriptiongt;ApplicationDescriptionlt;/descriptiongt;

 lt;dependencygt;

  lt;dependentAssemblygt;

    lt;assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /gt;

  lt;/dependentAssemblуgt;

 lt;/dependencygt;

lt;/assemblygt;

Сохраните этот файл под именем с:\xp_style.txt. Затем создайте еще один текстовый файл следующего содержания:

1 24 C:\xp_style.txt

Сохраните этот файл под именем xp_style.rc в каталоге С:\Program file\Delphi\Bin.

Теперь запустим программу C: \Program File\Delphi\Bin\ brcc32.exe, передав ей в качестве параметра имя файла хрstyle.re. Для этого следует перейти в режим командной строки, выполнив команду системного меню Пуск#8594;Выполнить, а затем в диалоговом окне Запуск программы введя команду cmd и нажав клавишу lt;Entergt;. В режиме командной строки с помощью команды cd перейдем в каталог С:\Program file\Delphi\Bin и выполним следующую команду:

brcc32.exe xp_style.rc

В результате в каталоге C:\Program file\Delphi\Bin должен появиться ресурсный файл xpstyle.res, который следует подключать к приложению в том случае, когда его требуется оформить в стиле Windows XP.

Проверим, так ли это, создав программу в стиле XP. Откройте диалоговое окно настройки свойств Рабочего стола и выберите тему Windows XP (если она еще не выбрана).

Создайте в Delphi новый проект и разместите на форме компонент Edit категории Standard. Присвойте его свойству Text следующее значение: Все компоненты и сама форма в стиле Windows ХР. Ниже разместите кнопку (компонент Button категории Standard), при нажатии которой будет появляться информационное окно (оно тоже должно быть в стиле XP). Обработчик события OnClick для кнопки:

procedure TForm1.Button1Click(Sender: TObject);

begin

 ShowMessage(Edit1.Text);

end;

Теперь при нажатии кнопки будет появляться окно, содержащее текст, извлеченный из поля для ввода. Запустим программу на выполнение. Как видим, внешний вид интерфейса никак не изменился, не смотря на то, что выбрана тема Windows XP.

Для того чтобы решить эту проблему найдите в программном модуле раздел implementation (сейчас в нем указано только подключение файла формы *.dfm при помощи директивы {$R *.dfm}). Для того чтобы подключить наш файл ресурсов, следует в разделе implementation добавить строку

{$R xp_style.res}

Теперь можно запустить программу и насладиться интерфейсом ХР (рис. 1.1).

Рис. 1.1. Элементы формы отображаются в стиле Windows XP

Введите в поле какой-либо текст и нажмите кнопку — должно появиться информационное окно, которое также будет отображаться в стиле Windows XP (рис. 1.2). При этом, размер exe-файла увеличился всего лишь на несколько сотен байт.

Рис. 1.2. Информационное окно также отображается в стиле Windows XP