Sfoglia il codice sorgente

Fix folder tree view size.

Jordan Russell 9 mesi fa
parent
commit
e512d47644
1 ha cambiato i file con 4 aggiunte e 0 eliminazioni
  1. 4 0
      Projects/Src/Setup.SelectFolderForm.pas

+ 4 - 0
Projects/Src/Setup.SelectFolderForm.pas

@@ -107,6 +107,10 @@ begin
   FFolderTreeView.SetBounds(16, 64, 317, 229);
   FFolderTreeView.SetBounds(16, 64, 317, 229);
   FFolderTreeView.Anchors := [akLeft, akTop, akRight, akBottom];
   FFolderTreeView.Anchors := [akLeft, akTop, akRight, akBottom];
   FFolderTreeView.Visible := False;
   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;
   FFolderTreeView.Parent := Self;
   PathEdit.BringToFront;     { for MSAA }
   PathEdit.BringToFront;     { for MSAA }
   BrowseLabel.BringToFront;  { for MSAA }
   BrowseLabel.BringToFront;  { for MSAA }