Проблема стилизации VCL форм в DLL при использовании Delphi XE2 и Inno Setup: Поиск и решение

Delphi , Файловая система , DLL и PlugIns

Иногда разработчики, использующие Delphi для создания установщиков с помощью Inno Setup, сталкиваются с проблемой стилизации VCL форм, созданных в виде динамических библиотек (DLL). В частности, при использовании Delphi XE2 и Inno Setup, пользовательские формы, отображаемые в процессе установки, могут не отображаться в стилизованном виде, несмотря на применение стилей VCL. В данной статье мы рассмотрим, как решить эту проблему, используя примеры кода на Object Pascal.

Описание проблемы

Разработчик, использующий Inno Setup в Unicode-режиме вместе с набором DLL, созданных в Delphi XE2, столкнулся с проблемой стилизации VCL форм, которые отображаются во время мастера установки. Несмотря на успешное применение стилей VCL ко всем элементам, созданным непосредственно Inno Setup, формы из DLL стилизовались не полностью. Фон формы, фон списка и цвет шрифта изменялись, но заголовки списка, полосы прогресса и края формы оставались в старом стиле.

Пример некорректного стилизации формы

Возможное решение проблемы

Для стилизации форм, созданных в DLL, необходимо экспортировать функцию из DLL, которую Inno Setup сможет использовать для передачи названия файла стиля...

Решение для Inno Setup

[Code]
#define public VclStyleFile "Carbon (2).vsf"

procedure DllLoadStyle(const StyleFilename: WideString);
  external 'DllLoadStyle@MyDLL.dll stdcall';

function InitializeSetup: Boolean;
begin
  ExtractTemporaryFile('{#VclStyleFile}');
  LoadVCLStyleW(ExpandConstant('{tmp}\{#VclStyleFile}'));
  DllInit; // Предполагается, что ваш DLL требует инициализации / инстанцирования формы
  DllLoadStyle(ExpandConstant('{tmp}\{#VclStyleFile}'));
  // ... Дополнительный код ...
end;

Решение для Delphi DLL

uses
  Vcl.Themes,

procedure DllLoadStyle(const StyleFilename: WideString); stdcall;
begin
  TStyleManager.SetStyle(TStyleManager.LoadFromFile(StyleFilename))
end;

exports
  DllLoadStyle;

Комментарии к решению

При вызове функции ExpandConstant в ExtractTemporaryFile нет необходимости расширять препроцессорные переменные, если они не содержат в своем значении некоторые константы Inno Setup, которые необходимо расширить. Функция ExpandConstant в вызове ExtractTemporaryFile не выполняет никаких действий. Это просто пример того, как можно неверно интерпретировать документацию или руководства.

Заключение

Для полной стилизации VCL форм в DLL при использовании Delphi XE2 и Inno Setup, необходимо экспортировать функцию из DLL, которая будет принимать путь к файлу стиля и применять его. Это позволит Inno Setup передать необходимые данные для стилизации всем элементам интерфейса, включая формы, созданные в виде динамических библиотек.

Создано по материалам из источника по ссылке.

Проблема заключается в некорректной стилизации VCL форм, созданных в виде DLL и используемых в Inno Setup с Delphi XE2, что приводит к неполному применению стилей элементов формы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DLL и PlugIns ::