Changeset 56 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 26, 2016, 2:13:41 PM (8 years ago)

Author:

chronos

Message:

• Added: Show how many new acronyms were imported.

File:

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

trunk/Forms/UFormMain.pas

@@ -110 +110 @@
     procedure LastOpenedList1Change(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
+    procedure ListViewAcronymsResize(Sender: TObject);
     procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -140 +141 @@
 
 resourcestring
-  SAddedCount = 'Imported %d acronyms';
+  SAddedCount = 'Imported %d acronyms. Added %d new.';
   SProcessImportSources = 'Process import sources';
 
@@ -277 +278 @@
 begin
   ImportTotalItemCount := 0;
+  AcronymDb.AddedCount := 0;
   JobProgressView1.AddJob(SProcessImportSources, ProcessImportsJob);
   JobProgressView1.Start;
-  ShowMessage(Format(SAddedCount, [ImportTotalItemCount]));
+  ShowMessage(Format(SAddedCount, [ImportTotalItemCount, AcronymDb.AddedCount]));
   UpdateAcronymsList;
   UpdateInterface;
@@ -393 +395 @@
     Item.SubItems.Add(Categories.GetString);
   end;
+end;
+
+procedure TFormMain.ListViewAcronymsResize(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
 end;