Changeset 100 for trunk/Forms/UFormImportSources.pas

Timestamp:

Aug 31, 2016, 9:57:15 AM (8 years ago)

Author:

chronos

Message:

• Added: Resize ListView filter column width according ListView column width.
• Fixed: Row height in ListView to respect visual styles.

File:

• trunk/Forms/UFormImportSources.pas (modified) (3 diffs)

trunk/Forms/UFormImportSources.pas

@@ -56 +56 @@
       Selected: Boolean);
     procedure ListViewFilter1Change(Sender: TObject);
+    procedure ListViewSort1ColumnWidthChanged(Sender: TObject);
     function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
@@ -128 +129 @@
 end;
 
+procedure TFormImportSources.ListViewSort1ColumnWidthChanged(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListView1);
+end;
+
 function TFormImportSources.ListViewSort1CompareItem(Item1, Item2: TObject
   ): Integer;
@@ -235 +241 @@
 var
   NewImportSource: TImportSource;
-  I: Integer;
 begin
   if Assigned(ListView1.Selected) then begin