From e512d47644d19c46a38632bc0835165df8aa0937 Mon Sep 17 00:00:00 2001
From: Jordan Russell <jr-github@jrsoftware.org>
Date: Wed, 11 Dec 2024 03:22:41 -0600
Subject: [PATCH] Fix folder tree view size.

---
 Projects/Src/Setup.SelectFolderForm.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Projects/Src/Setup.SelectFolderForm.pas b/Projects/Src/Setup.SelectFolderForm.pas
index 8f0f92240..e836b2377 100644
--- 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 }