Changeset 477 for Common


Ignore:
Timestamp:
Nov 23, 2015, 4:30:59 PM (9 years ago)
Author:
chronos
Message:
  • Added: Check if text is entered to column filter.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/UListViewSort.pas

    r463 r477  
    7373    procedure UpdateFromListView(ListView: TListView);
    7474    function TextEntered: Boolean;
     75    function TextEnteredColumn(Index: Integer): Boolean;
    7576    function GetColValue(Index: Integer): string;
    7677    property StringGrid: TStringGrid read FStringGrid1 write FStringGrid1;
     
    142143    end;
    143144  end;
     145end;
     146
     147function TListViewFilter.TextEnteredColumn(Index: Integer): Boolean;
     148begin
     149  Result := FStringGrid1.Cells[Index, 0] <> '';
    144150end;
    145151
Note: See TracChangeset for help on using the changeset viewer.