Set PopupMode=pmAuto in CreateCustomForm support function.

Only really matters when a custom form displays another custom form.
jrsoftware · Jan 12, 2025 · fdf652b · fdf652b
1 parent c21d344
commit fdf652b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Projects/Src/Setup.ScriptFunc.pas b/Projects/Src/Setup.ScriptFunc.pas
@@ -2,7 +2,7 @@
 
 {
   Inno Setup
-  Copyright (C) 1997-2024 Jordan Russell
+  Copyright (C) 1997-2025 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -291,6 +291,7 @@ procedure ScriptFuncLibraryRegister_R(ScriptInterpreter: TPSExec);
     begin
       var NewSetupForm := TSetupForm.CreateNew(nil);
       try
+        NewSetupForm.PopupMode := pmAuto;
         NewSetupForm.AutoScroll := False;
         NewSetupForm.BorderStyle := bsDialog;
         NewSetupForm.InitializeFont;