Changeset 458

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.

Location:

trunk

Files:

• Components/MultiColumnListBox.pas (modified) (5 diffs)
• ConfigApps/ConfigApps.scu (modified) ( previous)
• ConfigApps/MainFormUnit.pas (modified) (4 diffs)

trunk/Components/MultiColumnListBox.pas

@@ -38 +38 @@
     function GetParentColor: boolean;
     function GetParentShowHint: boolean;
-    function GetThePopupMenu: TPopupMenu; 
+    function GetThePopupMenu: TPopupMenu;
     function GetShowHint: boolean;
 //    procedure SetEnabled(NewState:Boolean); override;
@@ -117 +117 @@
     property Selected[ Index: longint ]: boolean read GetSelected write SetSelected;
 
+    procedure SetColumnWidth( const Index: Integer;
+                              const NewWidth: Integer );
+
     property Parent;
 
@@ -176 +179 @@
 uses
   StringUtilsUnit;
-  
+
 { TMultiColumnListBox }
 
@@ -455 +458 @@
 end;
 
+procedure TMultiColumnListBox.SetColumnWidth( const Index: Integer;
+                                              const NewWidth: Integer );
+begin
+  FHeader.Sections[ Index ].Width := NewWidth;
+  Layout;
+  Invalidate;
+end;
+
 procedure TMultiColumnListBox.Notification( AComponent: TComponent;
                                             Operation: TOperation);
@@ -603 +614 @@
 begin
   FHeader.Height := Value;
+  Layout;
 end;
 

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;