Changeset 472 for trunk/NewView/GlobalSearchForm.pas

Timestamp:

Mar 2, 2023, 1:58:25 AM (2 years ago)

Author:

ataylor

Message:

Fix various outstanding problems with dialog layout & scaling.

File:

• trunk/NewView/GlobalSearchForm.pas (modified) (3 diffs)

trunk/NewView/GlobalSearchForm.pas

@@ -301 +301 @@
 Procedure TGlobalSearchForm.GlobalSearchFormOnSetupShow (Sender: TObject);
 Begin
-  ScaleForm( self, 8, 16 );
+  ScaleForm( self, 9, 16 );
+
   // Fix scaling issues on some controls
-  if SearchTextLabel1.Top > (SearchLocationComboBox.Top + 2) then
-    SearchTextLabel1.Top := SearchLocationComboBox.Top + 2;
+  SearchLocationComboBox.Top := SelectDrivesButton.Top + 3;
+  SearchTextLabel1.Top := SelectDrivesButton.Top + 5;
   Bevel.Bottom := ClientHeight - ResultsLabel.Top + 4;
-  Led.Height := ResultsLabel.Height;
+  Led.Height := 15;
   Led.Width := Led.Height;
-  Led.Top := ResultsLabel.Top;
+  Led.Bottom := ResultsLabel.Bottom + 1;
+  Led.Right := ResultsOutline.Right - 1;
+
+  SearchTextLabel1.XAlign := xaLeft;
+  SearchTextLabel1.YAlign := yaTop;
+
+  Bevel.XStretch := xsFrame;
+  Bevel.YAlign := yaTop;
+
+  LED.XAlign := xaRight;
+  LED.YAlign := yaTop;
 
   SearchButton.Align := alFixedRightTop;
@@ -726 +737 @@
   SearchButton.YAlign := yaTop;
 
-  SearchTextLabel1.XAlign := xaLeft;
-  SearchTextLabel1.YAlign := yaTop;
-
   SearchLocationComboBox.XStretch := xsFrame;
   SearchLocationComboBox.YAlign := yaTop;
@@ -734 +742 @@
   SelectDrivesButton.XAlign := xaRight;
   SelectDrivesButton.YAlign := yaTop;
-
-  Bevel.XStretch := xsFrame;
-  Bevel.YAlign := yaTop;
-
-  LED.XAlign := xaRight;
-  LED.YAlign := yaTop;
 
   ResultsLabel.XAlign := xaLeft;