Changeset 27 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Jun 7, 2016, 3:56:46 PM (8 years ago)

Author:

chronos

Message:

• Modified: Now import format supports multiple more generic rules for parsing source content.
• Added: Show total and filtered number of acronyms in acronyms list.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (4 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -27 +27 @@
     MenuItem7: TMenuItem;
     PopupMenuAcronym: TPopupMenu;
+    StatusBar1: TStatusBar;
     procedure AAddExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
@@ -41 +42 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
+    MeaningCount: Integer;
     procedure FilterList(List: TListObject);
     procedure UpdateAcronymsList;
@@ -211 +213 @@
   FormMain.AcronymDb.Acronyms.Sort(AcronymComparer);
   FormMain.AcronymDb.AssignToList(ListViewSort1.List);
+  MeaningCount := ListViewSort1.List.Count;
   FilterList(ListViewSort1.List);
 end;
@@ -247 +250 @@
   ListViewSort1.Refresh;
   UpdateInterface;
+  StatusBar1.Panels[0].Text := 'Total: ' + IntToStr(MeaningCount);
+  StatusBar1.Panels[1].Text := 'Filtered: ' + IntToStr(ListViewAcronyms.Items.Count);
 end;