Changeset 73 for trunk/Forms/UFormImportSources.pas

Timestamp:

Aug 2, 2016, 11:21:21 AM (8 years ago)

Author:

chronos

Message:

• Added: Text filtering in list of import sources.
• Fixed: Now checkboxes in list of import sources are visible and working for enabling item.

File:

• trunk/Forms/UFormImportSources.pas (modified) (8 diffs)

trunk/Forms/UFormImportSources.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UAcronym, UJobProgressView;
+  ActnList, Menus, UAcronym, UJobProgressView, UListViewSort, SpecializedList,
+  LazUTF8;
 
 type
@@ -23 +24 @@
     JobProgressView1: TJobProgressView;
     ListView1: TListView;
+    ListViewFilter1: TListViewFilter;
+    ListViewSort1: TListViewSort;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -43 +46 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Change(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
+    procedure ListView1Click(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1Resize(Sender: TObject);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure ListViewFilter1Change(Sender: TObject);
+    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
     procedure ProcessImportJob(Job: TJob);
-    { private declarations }
+    procedure FilterList(List: TListObject);
   public
     ImportSources: TImportSources;
@@ -77 +87 @@
 procedure TFormImportSources.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < ImportSources.Count then
-  with TImportSource(ImportSources[Item.Index]) do begin
+  if Item.Index < ListViewSort1.List.Count then
+  with TImportSource(ListViewSort1.List[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := ImportSources[Item.Index];
+    Item.Data := ListViewSort1.List[Item.Index];
     Item.SubItems.Add(URL);
     Item.SubItems.Add(Categories.GetString);
@@ -96 +106 @@
 end;
 
+procedure TFormImportSources.ListView1Resize(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListView1);
+end;
+
 procedure TFormImportSources.ListView1SelectItem(Sender: TObject;
   Item: TListItem; Selected: Boolean);
@@ -102 +117 @@
 end;
 
+procedure TFormImportSources.ListViewFilter1Change(Sender: TObject);
+begin
+  UpdateList;
+end;
+
+function TFormImportSources.ListViewSort1CompareItem(Item1, Item2: TObject
+  ): Integer;
+begin
+  Result := 0;
+  if Assigned(Item1) and Assigned(Item2) and (ListViewSort1.Order <> soNone) then begin
+    with ListViewSort1 do
+    case Column of
+      0: Result := CompareString(TImportSource(Item1).Name, TImportSource(Item2).Name);
+      1: Result := CompareString(TImportSource(Item1).URL, TImportSource(Item2).URL);
+      2: Result := CompareString(TImportSource(Item1).Categories.GetString, TImportSource(Item2).Categories.GetString);
+      3: Result := CompareInteger(TImportSource(Item1).ItemCount, TImportSource(Item2).ItemCount);
+      4: Result := CompareTime(TImportSource(Item1).LastImportTime, TImportSource(Item2).LastImportTime);
+    end;
+    if ListViewSort1.Order = soDown then Result := -Result;
+  end else Result := 0;
+end;
+
+procedure TFormImportSources.ListViewSort1Filter(ListViewSort: TListViewSort);
+begin
+  ImportSources.AssignToList(ListViewSort1.List);
+  FilterList(ListViewSort1.List);
+end;
+
 procedure TFormImportSources.UpdateList;
 begin
-  ListView1.Items.Count := ImportSources.Count;
-  ListView1.Refresh;
+  ListViewSort1.Refresh;
   UpdateInterface;
 end;
@@ -118 +160 @@
 begin
   UpdateList;
+end;
+
+procedure TFormImportSources.ListView1Change(Sender: TObject; Item: TListItem;
+  Change: TItemChange);
+begin
+  if Assigned(Item) and (Change = ctState) then begin
+    TImportSource(Item.Data).Enabled := Item.Checked;
+  end;
+end;
+
+procedure TFormImportSources.ListView1Click(Sender: TObject);
+begin
+
 end;
 
@@ -200 +255 @@
 end;
 
+procedure TFormImportSources.FilterList(List: TListObject);
+var
+  I: Integer;
+  FoundCount: Integer;
+  EnteredCount: Integer;
+begin
+  EnteredCount := ListViewFilter1.TextEnteredCount;
+  for I := List.Count - 1 downto 0 do begin
+    if List.Items[I] is TImportSource then begin
+      with TImportSource(List.Items[I]) do begin
+         with ListViewFilter1 do
+         if Visible and (EnteredCount > 0) then begin
+           FoundCount := 0;
+           if Pos(UTF8LowerCase(StringGrid.Cells[0, 0]),
+             UTF8LowerCase(TImportSource(List.Items[I]).Name)) > 0 then Inc(FoundCount);
+           if Pos(UTF8LowerCase(StringGrid.Cells[1, 0]),
+             UTF8LowerCase(TImportSource(List.Items[I]).URL)) > 0 then Inc(FoundCount);
+           if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
+             UTF8LowerCase(TImportSource(List.Items[I]).Categories.GetString)) > 0 then Inc(FoundCount);
+           if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
+             UTF8LowerCase(IntToStr(TImportSource(List.Items[I]).ItemCount))) > 0 then Inc(FoundCount);
+           if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
+             UTF8LowerCase(DateTimeToStr(TImportSource(List.Items[I]).LastImportTime))) > 0 then Inc(FoundCount);
+           if FoundCount <> EnteredCount then List.Delete(I);
+         end;
+      end;
+    end else
+    if TImportSource(List.Items[I]) is TImportSource then begin
+      List.Delete(I);
+    end;
+  end;
+end;
+
 procedure TFormImportSources.ARemoveExecute(Sender: TObject);
 var