Changeset 472

Timestamp:

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

Author:

ataylor

Message:

Fix various outstanding problems with dialog layout & scaling.

Location:

trunk/NewView

Files:

• FileDialogForm.pas (modified) (1 diff)
• GlobalSearchForm.pas (modified) (3 diffs)
• OptionsForm.pas (modified) (1 diff)
• ProductInformationFormUnit.pas (modified) (1 diff)
• VersionUnit.pas (modified) (1 diff)
• newview.scu (modified) ( previous)

trunk/NewView/FileDialogForm.pas

@@ -150 +150 @@
 Procedure TFileDialogForm.FileDialogFormOnSetupShow (Sender: TObject);
 Begin
-  ScaleForm( self, 10, 16 );
+  ScaleForm( self, 8, 16 );
 
   // ScaleForm seems to misposition the combo-boxes, so we fix that here

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;

trunk/NewView/OptionsForm.pas

@@ -146 +146 @@
 Procedure TOptionsForm.OptionsFormOnSetupShow (Sender: TObject);
 Begin
-  ScaleForm( self, 11, 16 );
+  ScaleForm( self, 9, 16 );
 End;
 

trunk/NewView/ProductInformationFormUnit.pas

@@ -63 +63 @@
 Procedure TProductInformationForm.ProductInformationFormOnSetupShow (Sender: TObject);
 Begin
-  ScaleForm( self, 11, 16 );
+  ScaleForm( self, 10, 16 );
 End;
 

trunk/NewView/VersionUnit.pas

@@ -17 +17 @@
 
 const
-  Version =        'V2.19.7a'; // $SS_REQUIRE_NEW_VERSION$
+  Version =        'V2.19.7b'; // $SS_REQUIRE_NEW_VERSION$
   BldLevelVersion = '2.19.7'; // Embedded for IBM BLDLEVEL tool
   CopyrightMsg = 'Copyright 2005 Aaron Lawrence; 2006-2019 Ronald Brill';