Changeset 177

Timestamp:

Mar 13, 2018, 6:26:30 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Update listview filter editor width if listview columns width changed.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• Packages/Common/UListViewSort.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -483 +483 @@
     Core.PersistentForm1.Load(Self);
     Core.ThemeManager.UseTheme(Self);
+    ListViewFilter1.UpdateFromListView(ListViewAcronyms);
     UpdateInterface;
     ListViewFilter1.StringGrid.Col := 1;

trunk/Packages/Common/UListViewSort.pas

@@ -142 +142 @@
 var
   I: Integer;
+  R: TRect;
 begin
   with FStringGrid1 do begin
-    Options := Options - [goEditing, goAlwaysShowEditor];
-    //Columns.Clear;
     while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1);
     while Columns.Count < ListView.Columns.Count do Columns.Add;
     for I := 0 to ListView.Columns.Count - 1 do begin
       Columns[I].Width := ListView.Columns[I].Width;
+      if Selection.Left = I then begin
+        R := CellRect(I, 0);
+        Editor.Left := R.Left + 2;
+        Editor.Width := R.Width - 4;
+      end;
     end;
-    Options := Options + [goEditing, goAlwaysShowEditor];
   end;
 end;