Changeset 56 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Show how many new acronyms were imported.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (2 diffs)
• UFormAbout.lrt (modified) (1 diff)
• UFormImportSources.pas (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormAbout.lfm

@@ -29 +29 @@
     Align = alTop
     BorderSpacing.Around = 20
-    Caption = 'Simple tool for quick search of meaning for various acronyms and abbreviations.'
+    Caption = 'Simple tool for quick searching of meaning for various acronyms and abbreviations.'
     ParentColor = False
     WordWrap = True
@@ -73 +73 @@
     EmailContact = 'robie@centrum.cz'
     AppName = 'Acronym Decoder'
-    ReleaseDate = 42565
+    ReleaseDate = 42577
     RegistryKey = '\Software\'
     RegistryRoot = rrKeyCurrentUser

trunk/Forms/UFormAbout.lrt

@@ -1 +1 @@
 TFORMABOUT.CAPTION=About
 TFORMABOUT.LABELAPPNAME.CAPTION=Acronym Decoder
-TFORMABOUT.LABELDESCRIPTION.CAPTION=Simple tool for quick search of meaning for various acronyms and abbreviations.
+TFORMABOUT.LABELDESCRIPTION.CAPTION=Simple tool for quick searching of meaning for various acronyms and abbreviations.
 TFORMABOUT.BUTTONCLOSE.CAPTION=Close
 TFORMABOUT.LABELCONTENT.CAPTION=   

trunk/Forms/UFormImportSources.pas

@@ -162 +162 @@
 begin
   if Assigned(ListView1.Selected) then begin
+    FormMain.AcronymDb.AddedCount := 0;
     JobProgressView1.AddJob(SProcessSelectedSource, ProcessImportJob);
     JobProgressView1.Start;
-    ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount]));
+    ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount, FormMain.AcronymDb.AddedCount]));
   end;
 end;

trunk/Forms/UFormMain.lfm

@@ -66 +66 @@
       ViewStyle = vsReport
       OnData = ListViewAcronymsData
+      OnResize = ListViewAcronymsResize
       OnSelectItem = ListViewAcronymsSelectItem
     end

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;