Как добавить фоновое изображение в Inno Setup: инструкция для установщика

Delphi , Графика и Игры , Изображения

и удалителя

Inno Setup — это бесплатный и мощный инструмент для создания установщиков для Windows-приложений. Одной из возможностей Inno Setup является добавление фонового изображения в интерфейс установщика, что может значительно улучшить внешний вид и пользовательский опыт. В этом руководстве мы рассмотрим, как добавить фоновое изображение не только на страницы установки, но и на страницы удаления.

Шаги для добавления фонового изображения на страницы установки

1. Сначала скрываем верхнюю панель установщика, чтобы фоновое изображение занимало всю доступную область:

procedure InitializeWizard;
begin
  WizardForm.MainPanel.Visible := False;
end;

1. Затем настраиваем размеры элементов управления на странице выбора директории:

procedure InitializeWizard;
begin
  // ... (скрытие верхней панели)
  WizardForm.DirEdit.Left := WizardForm.DirEdit.Left + WizardForm.InnerNotebook.Left;
  WizardForm.DirEdit.Top := WizardForm.DirEdit.Top + WizardForm.InnerNotebook.Top;
  WizardForm.DirBrowseButton.Left := WizardForm.DirBrowseButton.Left + WizardForm.InnerNotebook.Left;
  WizardForm.DirBrowseButton.Top := WizardForm.DirBrowseButton.Top + WizardForm.InnerNotebook.Top;
  // ... (дальше идут другие настройки)
end;

1. Скрываем не透сцентные метки и настраиваем размеры внешней и внутренней страниц, чтобы они занимали всю клиентскую область формы:

procedure InitializeWizard;
begin
  // ... (ранее добавленные настройки)
  WizardForm.OuterNotebook.Width := WizardForm.ClientWidth;
  WizardForm.OuterNotebook.Height := WizardForm.ClientHeight;
  WizardForm.InnerNotebook.Left := 0;
  WizardForm.InnerNotebook.Top := 0;
  WizardForm.InnerNotebook.Width := WizardForm.OuterNotebook.ClientWidth;
  WizardForm.InnerNotebook.Height := WizardForm.OuterNotebook.ClientHeight;
  // ... (дальше идут другие настройки)
end;

1. Перемещаем кнопки на передний план, чтобы они были поверх фонового изображения:

procedure InitializeWizard;
begin
  // ... (ранее добавленные настройки)
  WizardForm.BackButton.BringToFront();
  WizardForm.NextButton.BringToFront();
  WizardForm.CancelButton.BringToFront();
end;

1. Добавляем фоновое изображение, создавая новый экземпляр TBitmapImage и настраивая его свойства:

procedure InitializeWizard;
var
  BackImage: TBitmapImage;
begin
  // ... (ранее добавленные настройки)
  BackImage := TBitmapImage.Create(WizardForm);
  BackImage.Parent := WizardForm.SelectDirPage;
  BackImage.Top := 0;
  BackImage.Left := 0;
  BackImage.SetBounds(0, 0, WizardForm.InnerPage.ClientWidth, WizardForm.InnerPage.ClientHeight);
  BackImage.Stretch := True;
  BackImage.AutoSize := False;
  BackImage.Anchors := [akLeft, akTop, akRight, akBottom];
  BackImage.Bitmap.LoadFromFile(ExpandConstant('{src}\mybackground.bmp'));
end;

Шаги для добавления фонового изображения на страницы удаления

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

procedure InitializeUninstallProgressForm;
var
  BackImage: TBitmapImage;
begin
  UninstallProgressForm.MainPanel.Visible := False;
  UninstallProgressForm.OuterNotebook.Width := UninstallProgressForm.ClientWidth;
  UninstallProgressForm.OuterNotebook.Height := UninstallProgressForm.ClientHeight;
  UninstallProgressForm.InnerNotebook.Left := 0;
  UninstallProgressForm.InnerNotebook.Top := 0;
  UninstallProgressForm.InnerNotebook.Width := UninstallProgressForm.OuterNotebook.ClientWidth;
  UninstallProgressForm.InnerNotebook.Height := UninstallProgressForm.OuterNotebook.ClientHeight;
  UninstallProgressForm.CancelButton.BringToFront();
  BackImage := TBitmapImage.Create(UninstallProgressForm);
  BackImage.Parent := UninstallProgressForm.InstallingPage;
  BackImage.Top := 0;
  BackImage.Left := 0;
  BackImage.SetBounds(0, 0, UninstallProgressForm.InnerPage.ClientWidth, UninstallProgressForm.InnerPage.ClientHeight);
  BackImage.Stretch := True;
  BackImage.AutoSize := False;
  BackImage.Anchors := [akLeft, akTop, akRight, akBottom];
  BackImage.Bitmap.LoadFromFile(ExpandConstant('{unins111}\mybackground.bmp'));
  // Загружаем изображение из директории удаления
end;

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

Заключение

В данном руководстве мы рассмотрели, как добавить фоновое изображение в Inno Setup для установщика и удалителя. Это позволяет создать уникальный и запоминающийся внешний вид вашего установщика, который будет выделяться среди других. Используя предоставленные примеры кода, вы можете легко интегрировать фоновое изображение в свой установщик.

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

Как добавить фоновое изображение в интерфейс установщика и удалителя приложений, используя инструмент Inno Setup.

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

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

:: Главная :: Изображения ::