Changeset 458 for trunk/ConfigApps/MainFormUnit.pas

Timestamp:

Feb 17, 2023, 2:14:04 PM (2 years ago)

Author:

ataylor

Message:

Update ConfigApps to use dynamic font size & scaling, version set to 1.2.1.
Added SetColumnWidth method to MultiColumnListBox control.

File:

• trunk/ConfigApps/MainFormUnit.pas (modified) (4 diffs)

trunk/ConfigApps/MainFormUnit.pas

@@ -7 +7 @@
 
 const
-  AppVersion = 'V1.2.0'; // $SS_REQUIRE_NEW_VERSION$
+  AppVersion = 'V1.2.1'; // $SS_REQUIRE_NEW_VERSION$
 
 type
@@ -49 +49 @@
     LngDirectoryDoesNotExist: String;
     LngSaveAnyway: String;
+    Procedure MainFormOnSetupShow (Sender: TObject);
     Procedure ParametersEditOnChange (Sender: TObject);
     Procedure RestoreButtonOnClick (Sender: TObject);
@@ -183 +184 @@
                                   '' );
 end;
+
+Procedure TMainForm.MainFormOnSetupShow (Sender: TObject);
+Begin
+  ScaleForm( self, 7, 14 );
+  ItemsListBox.SetColumnWidth( 0, trunc( Width * 0.3 ));
+End;
 
 Procedure TMainForm.ParametersEditOnChange (Sender: TObject);
@@ -354 +361 @@
   Bottom := ( Screen.Height - Height ) div 2;
 
+  ItemsListBox.ItemHeight := Font.Height + 2;
+  ItemsListBox.HeaderHeight := Font.Height + 2;
+
 end;