Changeset 177 for trunk/Packages/Common/UListViewSort.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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;