Fix folder tree view size.

jrsoftware · Dec 11, 2024 · e512d47 · e512d47
1 parent 72dd250
commit e512d47
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Projects/Src/Setup.SelectFolderForm.pas b/Projects/Src/Setup.SelectFolderForm.pas
@@ -107,6 +107,10 @@ constructor TSelectFolderForm.Create(AOwner: TComponent);
   FFolderTreeView.SetBounds(16, 64, 317, 229);
   FFolderTreeView.Anchors := [akLeft, akTop, akRight, akBottom];
   FFolderTreeView.Visible := False;
+  { The form needs its handle allocated before the Parent assignment,
+    otherwise the control's width and height get reduced later. Looks like
+    a Delphi 11 bug; the problem is seen in IS 6.3 but not 6.2.2. }
+  HandleNeeded;
   FFolderTreeView.Parent := Self;
   PathEdit.BringToFront;     { for MSAA }
   BrowseLabel.BringToFront;  { for MSAA }