Changeset 145 for trunk/Forms/UFormCategories.pas

Timestamp:

Jan 24, 2017, 1:55:43 PM (7 years ago)

Author:

chronos

Message:

• Added: Allow to disable selected acronym categories so acronyms without any enabled category won't be shown in main acronym search filter.

File:

• trunk/Forms/UFormCategories.pas (modified) (10 diffs)

trunk/Forms/UFormCategories.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UAcronym;
+  ActnList, Menus, UAcronym, UListViewSort;
 
 type
@@ -15 +15 @@
   TFormCategories = class(TForm)
     AAdd: TAction;
+    AEnable: TAction;
+    ADisable: TAction;
     ASelectAll: TAction;
     ARemove: TAction;
@@ -20 +22 @@
     ActionList1: TActionList;
     ListViewCategories: TListView;
+    ListViewSort1: TListViewSort;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     PopupMenuCategory: TPopupMenu;
     ToolBar1: TToolBar;
@@ -30 +36 @@
     ToolButton3: TToolButton;
     procedure AAddExecute(Sender: TObject);
+    procedure ADisableExecute(Sender: TObject);
+    procedure AEnableExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
@@ -36 +44 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListViewCategoriesChange(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
     procedure ListViewCategoriesData(Sender: TObject; Item: TListItem);
     procedure ListViewCategoriesDblClick(Sender: TObject);
@@ -41 +51 @@
     procedure ListViewCategoriesSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
     { private declarations }
@@ -73 +85 @@
   UpdateList;
   Core.ScaleDPI1.ScaleControl(ToolBar1, Core.ScaleDPI1.DesignDPI);
+end;
+
+procedure TFormCategories.ListViewCategoriesChange(Sender: TObject;
+  Item: TListItem; Change: TItemChange);
+begin
+  if Assigned(Item) and (Change = ctState) then begin
+    TAcronymCategory(Item.Data).Enabled := Item.Checked;
+    Core.AcronymDb.Modified := True;
+  end;
 end;
 
@@ -87 +108 @@
     end else ShowMessage(Format(SCategoryAlreadyExists, [S]));
   end;
+end;
+
+procedure TFormCategories.ADisableExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := ListViewCategories.Items.Count - 1 downto 0 do
+  if ListViewCategories.Items[I].Selected then begin
+    TAcronymCategory(ListViewCategories.Items[I].Data).Enabled := False;
+    Core.AcronymDb.Modified := True;
+  end;
+  UpdateList;
+end;
+
+procedure TFormCategories.AEnableExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := ListViewCategories.Items.Count - 1 downto 0 do
+  if ListViewCategories.Items[I].Selected then begin
+    TAcronymCategory(ListViewCategories.Items[I].Data).Enabled := True;
+    Core.AcronymDb.Modified := True;
+  end;
+  UpdateList;
 end;
 
@@ -145 +190 @@
 procedure TFormCategories.ListViewCategoriesData(Sender: TObject; Item: TListItem);
 begin
-  if Item.Index < Core.AcronymDb.Categories.Count then
-  with TAcronymCategory(Core.AcronymDb.Categories[Item.Index]) do begin
+  if Item.Index < ListViewSort1.List.Count then
+  with TAcronymCategory(ListViewSort1.List[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := Core.AcronymDb.Categories[Item.Index];
+    Item.Data := ListViewSort1.List[Item.Index];
     Item.SubItems.Add(IntToStr(AcronymMeanings.Count));
+    Item.Checked := Enabled;
   end;
 end;
@@ -170 +216 @@
 end;
 
+function TFormCategories.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(TAcronymCategory(Item1).Name, TAcronymCategory(Item2).Name);
+      1: Result := CompareInteger(TAcronymCategory(Item1).AcronymMeanings.Count, TAcronymCategory(Item2).AcronymMeanings.Count);
+    end;
+    if ListViewSort1.Order = soDown then Result := -Result;
+  end else Result := 0;
+end;
+
+procedure TFormCategories.ListViewSort1Filter(ListViewSort: TListViewSort);
+begin
+  Core.AcronymDb.Categories.AssignToList(ListViewSort1.List);
+end;
+
 procedure TFormCategories.UpdateList;
 begin
+  ListViewSort1.Refresh;
   ListViewCategories.Items.Count := Core.AcronymDb.Categories.Count;
   ListViewCategories.Refresh;