Ignore:
Timestamp:
Nov 1, 2017, 12:58:42 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Translate status bar text.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.pas

    r153 r161  
    161161  SAddedCount = 'Imported %d acronyms. Added %d new.';
    162162  SProcessImportSources = 'Process import sources';
     163  SAcronymsCount = 'Acronyms count: %d';
     164  SMeaningsCount = 'Meanings count: %d';
    163165
    164166
     
    683685  Caption := Title;
    684686  if Assigned(Core.AcronymDb) then begin
    685     StatusBar1.Panels[0].Text := 'Acronyms count: ' +
    686       IntToStr(Core.AcronymDb.Acronyms.Count);
    687     StatusBar1.Panels[1].Text := 'Meanings count: ' +
    688       IntToStr(Core.AcronymDb.GetMeaningsCount);
     687    StatusBar1.Panels[0].Text := Format(SAcronymsCount, [
     688      Core.AcronymDb.Acronyms.Count]);
     689    StatusBar1.Panels[1].Text := Format(SMeaningsCount, [
     690      Core.AcronymDb.GetMeaningsCount]);
    689691  end else begin
    690692    StatusBar1.Panels[0].Text := '';
Note: See TracChangeset for help on using the changeset viewer.