build/windows: Fix buttons bar glitch on Installer /SILENT mode

This commit is contained in:
Bruno Lopes 2025-04-25 13:10:34 -03:00
parent 1d2add6606
commit fa6854a896
No known key found for this signature in database

View file

@ -736,6 +736,7 @@ var
procedure UpdateWizardImages(); procedure UpdateWizardImages();
var TopBitmap,BottomBitmap: TFileStream; var TopBitmap,BottomBitmap: TFileStream;
begin begin
if not WizardSilent then begin
//Automatically scaled splash image //Automatically scaled splash image
WelcomeBitmapTop := TBitmapImage.Create(WizardForm.WelcomePage); WelcomeBitmapTop := TBitmapImage.Create(WizardForm.WelcomePage);
with WelcomeBitmapTop do with WelcomeBitmapTop do
@ -800,6 +801,7 @@ begin
WizardForm.WizardBitmapImage.Width := WizardForm.ClientWidth; WizardForm.WizardBitmapImage.Width := WizardForm.ClientWidth;
WizardForm.WizardBitmapImage.Height := WizardForm.ClientHeight; WizardForm.WizardBitmapImage.Height := WizardForm.ClientHeight;
end; end;
end;
procedure PrepareWelcomePage(); procedure PrepareWelcomePage();
begin begin