Changeset 161 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 1, 2017, 12:58:42 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Translate status bar text.

File:

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

trunk/Forms/UFormMain.pas

@@ -161 +161 @@
   SAddedCount = 'Imported %d acronyms. Added %d new.';
   SProcessImportSources = 'Process import sources';
+  SAcronymsCount = 'Acronyms count: %d';
+  SMeaningsCount = 'Meanings count: %d';
 
 
@@ -683 +685 @@
   Caption := Title;
   if Assigned(Core.AcronymDb) then begin
-    StatusBar1.Panels[0].Text := 'Acronyms count: ' +
-      IntToStr(Core.AcronymDb.Acronyms.Count);
-    StatusBar1.Panels[1].Text := 'Meanings count: ' +
-      IntToStr(Core.AcronymDb.GetMeaningsCount);
+    StatusBar1.Panels[0].Text := Format(SAcronymsCount, [
+      Core.AcronymDb.Acronyms.Count]);
+    StatusBar1.Panels[1].Text := Format(SMeaningsCount, [
+      Core.AcronymDb.GetMeaningsCount]);
   end else begin
     StatusBar1.Panels[0].Text := '';