ge-aerospace/inno-installers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace Application.ProcessMessages with WizardForm.Refresh

Browse Source 
Application is not available in Inno Setup Pascal Script.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
cproudlock
2026-03-03 17:12:19 -05:00
parent 1eb687c3ca
commit 5a3955b413
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
PrinterInstaller/PrinterInstaller.iss
View File

@@ -897,7 +897,7 @@ begin
WizardForm.ProgressGauge.Position := GaugeStep; WizardForm.ProgressGauge.Position := GaugeStep;
WizardForm.StatusLabel.Caption := Msg; WizardForm.StatusLabel.Caption := Msg;
WizardForm.FileNameLabel.Caption := ''; WizardForm.FileNameLabel.Caption := '';
Application.ProcessMessages; WizardForm.Refresh;
end; end;
// ─── Main installation ─────────────────────────────────────────────────────── // ─── Main installation ───────────────────────────────────────────────────────
@@ -1220,7 +1220,7 @@ begin
WizardForm.ProgressGauge.Position := WizardForm.ProgressGauge.Max; WizardForm.ProgressGauge.Position := WizardForm.ProgressGauge.Max;
WizardForm.StatusLabel.Caption := 'Installation complete.'; WizardForm.StatusLabel.Caption := 'Installation complete.';
WizardForm.FileNameLabel.Caption := ''; WizardForm.FileNameLabel.Caption := '';
Application.ProcessMessages; WizardForm.Refresh;
// Save log // Save log
InstallLog.SaveToFile(LogPath); InstallLog.SaveToFile(LogPath);