Changeset 458 for trunk/Components

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/Components/MultiColumnListBox.pas (modified) (5 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;