Отцентрировать экран загрузки в Inno Setup

Delphi , Программа и Интерфейс , Инсталяция

При разработке установщика с помощью Inno Setup часто возникает потребность показать экран загрузки (сплэш-скрин) в центре экрана. В этом руководстве мы рассмотрим, как отцентрировать экран загрузки в Inno Setup.

Проблема

При создании сплэш-скрина с помощью Inno Setup пользователь может столкнуться с проблемой, когда экран загрузки отображается в левом верхнем углу экрана, а не в центре, как ожидалось. Чтобы решить эту проблему, нужно добавить несколько строк кода, которые позволят отцентрировать сплэш-скрин.

Код для отцентрирования сплэш-скрина

Ниже приведен пример кода, который отцентрирует сплэш-скрин в Inno Setup:

[Files]
Source: "C:\Users\MINHLUAN\Desktop\program\DatabaseClassic02.bmp"; \
  DestName: "Splash.bmp"; Flags: dontcopy nocompression

[Code]
var
  Splash: TSetupForm;

function InitializeSetup: Boolean;
var
  BitmapImage1: TBitmapImage;
begin
  Splash := CreateCustomForm;
  Splash.BorderStyle := bsNone;

  BitmapImage1 := TBitmapImage.Create(Splash);
  BitmapImage1.AutoSize := True;
  BitmapImage1.Align := alClient;
  BitmapImage1.Left := 0;
  BitmapImage1.Top := 0;
  BitmapImage1.Stretch := True;
  BitmapImage1.Parent := Splash;

  ExtractTemporaryFile('Splash.bmp');
  BitmapImage1.Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\Splash.bmp');

  Splash.Position := poScreenCenter; // Добавляем эту строку кода

  Splash.Show;

  BitmapImage1.Refresh;

  Sleep(5000);

  Result := True;
end;

procedure InitializeWizard;
begin
  Splash.Close;
end;

В этом примере мы создаем форму Splash и добавляем на нее изображение сплэш-скрина с помощью TBitmapImage. Чтобы отцентрировать сплэш-скрин, мы добавляем строку кода Splash.Position := poScreenCenter;. Эта строка кода устанавливает posizione формы Splash в центр экрана.

Альтернативный ответ

Если по какой-то причине использование poScreenCenter не подходит, можно также рассчитать координаты левого верхнего угла сплэш-скрина, чтобы отцентрировать его на экране. Для этого можно использовать следующий код:

Splash.Left := (Screen.Width - Splash.Width) div 2;
Splash.Top := (Screen.Height - Splash.Height) div 2;

Этот код вычисляет координаты левого верхнего угла сплэш-скрина, чтобы он был в центре экрана, и устанавливает их для свойства Left и Top формы Splash.

Заключение

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

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

В данном тексте рассматривается проблема отцентрирования экрана загрузки (сплэш-скрина) в Inno Setup и предлагаются способы решения этой проблемы с помощью кода на Pascal.

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

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

:: Главная :: Инсталяция ::