Changeset 477 for Common

Timestamp:

Nov 23, 2015, 4:30:59 PM (9 years ago)

Author:

chronos

Message:

• Added: Check if text is entered to column filter.

File:

• Common/UListViewSort.pas (modified) (2 diffs)

Common/UListViewSort.pas

@@ -73 +73 @@
     procedure UpdateFromListView(ListView: TListView);
     function TextEntered: Boolean;
+    function TextEnteredColumn(Index: Integer): Boolean;
     function GetColValue(Index: Integer): string;
     property StringGrid: TStringGrid read FStringGrid1 write FStringGrid1;
@@ -142 +143 @@
     end;
   end;
+end;
+
+function TListViewFilter.TextEnteredColumn(Index: Integer): Boolean;
+begin
+  Result := FStringGrid1.Cells[Index, 0] <> '';
 end;