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

Timestamp:

Jan 18, 2022, 10:45:33 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated to build under Lazarus 2.2.0.
• Modified: Updated Common package to version 0.9.

File:

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

trunk/Packages/Common/UListViewSort.pas

@@ -81 +81 @@
     FOnChange: TNotifyEvent;
     FStringGrid1: TStringGrid;
+    procedure DoOnChange;
     procedure GridDoOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure GridDoOnResize(Sender: TObject);
@@ -90 +91 @@
     function TextEnteredColumn(Index: Integer): Boolean;
     function GetColValue(Index: Integer): string;
+    procedure Reset;
     property StringGrid: TStringGrid read FStringGrid1 write FStringGrid1;
   published
@@ -152 +154 @@
 { TListViewFilter }
 
+procedure TListViewFilter.DoOnChange;
+begin
+  if Assigned(FOnChange) then FOnChange(Self);
+end;
+
 procedure TListViewFilter.GridDoOnKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
-  if Assigned(FOnChange) then
-    FOnChange(Self);
+  DoOnChange;
 end;
 
@@ -227 +233 @@
     Result := StringGrid.Cells[Index, 0]
     else Result := '';
+end;
+
+procedure TListViewFilter.Reset;
+var
+  I: Integer;
+begin
+  with StringGrid do
+  for I := 0 to ColCount - 1 do
+    Cells[I, 0] := '';
+  DoOnChange;
 end;