Changeset 45 for trunk/Forms/UFormAcronyms.pas

Timestamp:

Jul 15, 2016, 12:38:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: More translated strings.

File:

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

trunk/Forms/UFormAcronyms.pas

@@ -62 +62 @@
   SRemoveAcronym = 'Remove acronym';
   SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
+  STotal = 'Total';
+  SFiltered = 'Filtered';
 
 
@@ -248 +250 @@
   ListViewSort1.Refresh;
   UpdateInterface;
-  StatusBar1.Panels[0].Text := 'Total: ' + IntToStr(MeaningCount);
-  StatusBar1.Panels[1].Text := 'Filtered: ' + IntToStr(ListViewAcronyms.Items.Count);
+  StatusBar1.Panels[0].Text := STotal + ': ' + IntToStr(MeaningCount);
+  StatusBar1.Panels[1].Text := SFiltered + ': ' + IntToStr(ListViewAcronyms.Items.Count);
 end;