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

Timestamp:

Jul 26, 2016, 11:22:43 PM (8 years ago)

Author:

chronos

Message:

• Modified: Update new packages files.

File:

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

trunk/Packages/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;