Martijn Laan 6 år sedan
förälder
incheckning
e0881950a9
1 ändrade filer med 4 tillägg och 2 borttagningar
  1. 4 2
      Projects/Wizard.pas

+ 4 - 2
Projects/Wizard.pas

@@ -721,8 +721,6 @@ begin
     end;
     end;
   end;
   end;
   InitializeFont;
   InitializeFont;
-  Constraints.MinHeight := Height;
-  Constraints.MinWidth := Width;
   if shWindowVisible in SetupHeader.Options then
   if shWindowVisible in SetupHeader.Options then
     CenterInsideControl(MainForm, True)
     CenterInsideControl(MainForm, True)
   else
   else
@@ -760,6 +758,10 @@ begin
     end;
     end;
     ClientWidth := SaveClientWidth;
     ClientWidth := SaveClientWidth;
     ClientHeight := SaveClientHeight;
     ClientHeight := SaveClientHeight;
+    if shWizardResizable in SetupHeader.Options then begin
+      Constraints.MinHeight := Height;
+      Constraints.MinWidth := Width;
+    end;
   end;
   end;
 
 
   { Position the buttons, and scale their size }
   { Position the buttons, and scale their size }