POChecker: added total translated/untranslated/fuzzy strings statistics to result report and Graphical Statistics form.

Regenerated translations and updated Russian translation.

git-svn-id: trunk@52401 -

components/pochecker/graphstat.pp

@@ -199,9 +199,6 @@ end;
 procedure TGraphStatForm.FormCreate(Sender: TObject);
 begin
   Caption := sGrapStatFormCaption;
-  TranslatedLabel.Caption := sTranslated;
-  UntranslatedLabel.Caption := sUnTranslated;
-  FuzzyLabel.Caption := sFuzzy;
   POEditorMenuItem.Caption := sOpenFileInSystemPOEditor;
   ExtEditorMenuItem.Caption := sOpenFileInExternalEditor;
   IDEEditorMenuItem.Caption := sOpenFileInIDEEditor;
@@ -336,7 +333,7 @@ begin
       Bmp := CreateBitmap(AStat);
       AddToListView(AStat, Bmp);
 
-      //if there are many icns to draw, occasionally update the ListView as visual feedback
+      //if there are many icons to draw, occasionally update the ListView as visual feedback
       if (((Index + 1) mod 25) = 0) then
       begin
         ListView.EndUpdate;

components/pochecker/languages/pocheckerconsts.cs.po

@@ -213,8 +213,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -409,12 +409,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Nalezeno celkem %d chyb / varování."
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Celkem nalezeno varování: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -439,7 +451,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/languages/pocheckerconsts.de.po

@@ -213,9 +213,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr "Störende Dateien finden"
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Ungeklärt"
+msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -409,13 +409,25 @@ msgstr "Folgende %s verwaiste .po-Datei(en) gefunden:"
 msgid "Total errors found: %d"
 msgstr "Insgesamt %d Fehler gefunden"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Insgesamt %d Warnungen gefunden"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Übersetzt"
+msgstr ""
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -437,7 +449,7 @@ msgstr "Alle abwählen"
 msgid "Unselect all files"
 msgstr "Alle Dateien abwählen"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Nicht übersetzt"
+msgstr ""
 

components/pochecker/languages/pocheckerconsts.es.po

@@ -211,9 +211,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Confuso"
+msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -407,13 +407,25 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Total de errores encontrados: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Total de avisos encontrados: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Traducido"
+msgstr ""
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -435,7 +447,7 @@ msgstr "&Deseleccionar Todo"
 msgid "Unselect all files"
 msgstr "Deseleccionar todos los ficheros"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Sin traducción"
+msgstr ""
 

components/pochecker/languages/pocheckerconsts.fr.po

@@ -213,9 +213,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr "Trouver des fichiers gênants"
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Flou"
+msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -409,13 +409,25 @@ msgstr "Le(s) %s fichier(s) .po orphelin(s) détecté(s) :"
 msgid "Total errors found: %d"
 msgstr "Total des erreurs : %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Total des avertissements : %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Traduit"
+msgstr ""
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -437,7 +449,7 @@ msgstr "Tout &désélectionner"
 msgid "Unselect all files"
 msgstr "Désélectionner tous les fichiers"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Non traduit"
+msgstr ""
 

components/pochecker/languages/pocheckerconsts.hu.po

@@ -213,9 +213,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr "Aggasztó fájlok keresése"
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Bizonytalan"
+msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -409,13 +409,25 @@ msgstr "A következő %s elárvult .po fájl található:"
 msgid "Total errors found: %d"
 msgstr "Összes megtalált hiba: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Összes figyelmeztetés: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Lefordítva"
+msgstr ""
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -437,7 +449,7 @@ msgstr "Kijelölések törlése"
 msgid "Unselect all files"
 msgstr "Kijelölés megszüntetése"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Nincs lefordítva"
+msgstr ""
 

components/pochecker/languages/pocheckerconsts.it.po

@@ -215,9 +215,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Incerto"
+msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -411,13 +411,25 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Totale errori trovati: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Totale avvertimenti: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Tradotte"
+msgstr ""
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -439,7 +451,7 @@ msgstr "&Deseleziona tutto"
 msgid "Unselect all files"
 msgstr "Deseleziona"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Non tradotte"
+msgstr ""
 

components/pochecker/languages/pocheckerconsts.ja.po

@@ -211,8 +211,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -407,12 +407,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "エラー／警告の総数：%d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "警告の総数：%d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -437,7 +449,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/languages/pocheckerconsts.lt.po

@@ -211,8 +211,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -401,12 +401,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Viso rasta klaidų/perspėjimų: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Viso rasta perspėjimų: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -429,7 +441,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/languages/pocheckerconsts.po

@@ -192,8 +192,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -376,12 +376,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr ""
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr ""
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -404,7 +416,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/languages/pocheckerconsts.pt_BR.po

@@ -210,8 +210,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -400,12 +400,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Total de erros / avisos encontrados: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Total de avisos encontrados: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -428,7 +440,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/languages/pocheckerconsts.ru.po

@@ -213,9 +213,9 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr "Найти проблемные файлы"
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
-msgstr "Неточные переводы"
+msgstr "Неточные переводы (всего: %s)"
 
 #: pocheckerconsts.sgrapstatformcaption
 msgid "Graphical summary"
@@ -409,13 +409,25 @@ msgstr "Найдены файлы переводов PO (%s шт.) без соо
 msgid "Total errors found: %d"
 msgstr "Всего найдено ошибок: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr "Всего неточных переводов: %s"
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr "Всего переведённых строк: %s"
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr "Всего непереведённых строк: %s"
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Всего найдено предупреждений: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
-msgstr "Переведённые строки"
+msgstr "Переведённые строки (всего: %s)"
 
 #: pocheckerconsts.stranslation
 msgid "Translation"
@@ -437,7 +449,7 @@ msgstr "&Снять выбор"
 msgid "Unselect all files"
 msgstr "Снять выбор файлов"
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
-msgstr "Непереведённые строки"
+msgstr "Непереведённые строки (всего: %s)"
 

components/pochecker/languages/pocheckerconsts.uk.po

@@ -208,8 +208,8 @@ msgstr ""
 msgid "Find troublesome files"
 msgstr ""
 
-#: pocheckerconsts.sfuzzy
+#: pocheckerconsts.sfuzzystringstotal
-msgid "Fuzzy"
+msgid "Fuzzy strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.sgrapstatformcaption
@@ -398,12 +398,24 @@ msgstr ""
 msgid "Total errors found: %d"
 msgstr "Знайдено всього помилок / попереджень: %d"
 
+#: pocheckerconsts.stotalfuzzystrings
+msgid "Total fuzzy strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaltranslatedstrings
+msgid "Total translated strings: %s"
+msgstr ""
+
+#: pocheckerconsts.stotaluntranslatedstrings
+msgid "Total untranslated strings: %s"
+msgstr ""
+
 #: pocheckerconsts.stotalwarnings
 msgid "Total warnings found: %d"
 msgstr "Знайдено всього попереджень: %d"
 
-#: pocheckerconsts.stranslated
+#: pocheckerconsts.stranslatedstringstotal
-msgid "Translated"
+msgid "Translated strings (total: %s)"
 msgstr ""
 
 #: pocheckerconsts.stranslation
@@ -426,7 +438,7 @@ msgstr ""
 msgid "Unselect all files"
 msgstr ""
 
-#: pocheckerconsts.suntranslated
+#: pocheckerconsts.suntranslatedstringstotal
-msgid "Untranslated"
+msgid "Untranslated strings (total: %s)"
 msgstr ""
 

components/pochecker/pocheckerconsts.pas

@@ -30,6 +30,9 @@ resourcestring
 
   sTotalErrors = 'Total errors found: %d';
   sTotalWarnings = 'Total warnings found: %d';
+  sTotalUntranslatedStrings = 'Total untranslated strings: %s';
+  sTotalFuzzyStrings = 'Total fuzzy strings: %s';
+  sTotalTranslatedStrings = 'Total translated strings: %s';
   sNoErrorsFound = 'No errors found';
   sCurrentTest = 'Test: %s on %s';
   sNoTestSelected = 'There are no tests selected.';
@@ -44,9 +47,9 @@ resourcestring
 
   //Graphical summary form
   sGrapStatFormCaption = 'Graphical summary';
-  sTranslated = 'Translated';
+  sTranslatedStringsTotal = 'Translated strings (total: %s)';
-  sUntranslated = 'Untranslated';
+  sUntranslatedStringsTotal = 'Untranslated strings (total: %s)';
-  sFuzzy = 'Fuzzy';
+  sFuzzyStringsTotal = 'Fuzzy strings (total: %s)';
   sStatHint = '%3d Translated (%3.1f%%)' + LineEnding +
               '%3d UnTranslated (%3.1f%%)' + LineEnding +
               '%3d Fuzzy (%3.1f%%)' + LineEnding +

components/pochecker/pocheckermain.pp

@@ -583,6 +583,7 @@ var
   TestTypes: TPoTestTypes;
   TestOptions: TPoTestOptions;
   ErrorCount, WarningCount: integer;
+  TotalTranslatedCount, TotalUntranslatedCount, TotalFuzzyCount: Integer;
   SL: TStrings;
   ResultDlg: TResultDlgForm;
   mr: TModalResult;
@@ -601,7 +602,7 @@ begin
   try
     PoFamilyList.TestTypes := TestTypes;
     PoFamilyList.TestOptions := TestOptions;
-    PoFamilyList.RunTests(ErrorCount, WarningCount, SL);
+    PoFamilyList.RunTests(ErrorCount, WarningCount, TotalTranslatedCount, TotalUntranslatedCount, TotalFuzzyCount, SL);
     //debugln('RunSelectedTests: ', Format(sTotalErrors, [ErrorCount]));
     //debugln('                  ', Format(sTotalWarnings, [WarningCount]));
     if (ErrorCount > 0) or (WarningCount > 0) or
@@ -609,8 +610,15 @@ begin
     begin
       SL.Add(Format(sTotalErrors, [ErrorCount]));
       SL.Add(Format(sTotalWarnings, [WarningCount]));
+      SL.Add(Format(sTotalUntranslatedStrings, [IntToStr(TotalUntranslatedCount)]));
+      SL.Add(Format(sTotalFuzzyStrings, [IntToStr(TotalFuzzyCount)]));
+      SL.Add('');
+      SL.Add(Format(sTotalTranslatedStrings, [IntToStr(TotalTranslatedCount)]));
       ResultDlg := TResultDlgForm.Create(nil);
       try
+        ResultDlg.FTotalTranslated := TotalTranslatedCount;
+        ResultDlg.FTotalUntranslated := TotalUntranslatedCount;
+        ResultDlg.FTotalFuzzy := TotalFuzzyCount;
         ResultDlg.Log.Assign(SL);
         FreeAndNil(SL);                 //No need to keep 2 copies of this data
         if (pttCheckStatistics in TestTypes) then

components/pochecker/pofamilies.pp

@@ -72,7 +72,7 @@ Type
     procedure CheckStatistics(ErrorCnt: Integer);
 
   public
-    procedure RunTests(out ErrorCount, WarningCount: Integer; ErrorLog: TStrings);
+    procedure RunTests(out ErrorCount, WarningCount, TranslatedCount, UntranslatedCount, FuzzyCount: Integer; ErrorLog: TStrings);
 
     property Master: TPOFile read FMaster;
     property Child: TPOFile read FChild;
@@ -792,7 +792,7 @@ Pre conditions:
   * Master and a matching Child must be assigned at start ot testing
   * If a Child is assigned it must be child of Master
 }
-procedure TPoFamily.RunTests(out ErrorCount, WarningCount: Integer; ErrorLog: TStrings);
+procedure TPoFamily.RunTests(out ErrorCount, WarningCount, TranslatedCount, UntranslatedCount, FuzzyCount: Integer; ErrorLog: TStrings);
 var
   SL: TStringList;
   CurrErrCnt, CurrWarnCnt, ThisErrCnt: Integer;
@@ -804,6 +804,9 @@ begin
   FPoFamilyStats.Clear;
   ErrorCount := NoError;
   WarningCount := NoError;
+  TranslatedCount := 0;
+  UntranslatedCount := 0;
+  FuzzyCount := 0;
   if (not Assigned(FMaster)) and (not Assigned(FChild)) then
   begin
     {$ifdef DebugSimplePoFiles}
@@ -919,8 +922,10 @@ begin
         ThisErrCnt := ThisErrCnt + CurrErrCnt;
       end;
 
-
       //Always run this as the last test please
+      TranslatedCount := FChild.NrTranslated;
+      UntranslatedCount := FChild.NrUntranslated;
+      FuzzyCount := FChild.NrFuzzy;
       if (pttCheckStatistics in FTestTypes) then
       begin
         CheckStatistics(ThisErrCnt);

components/pochecker/pofamilylists.pp

@@ -36,7 +36,7 @@ type
     destructor Destroy; override;
     procedure Add(PoFamily: TPofamily);
     function Count: Integer;
-    procedure RunTests(out ErrorCount, WarningCount: Integer; ErrorLog: TStrings);
+    procedure RunTests(out ErrorCount, WarningCount, TotalTranslatedCount, TotalUntranslatedCount, TotalFuzzyCount: Integer; ErrorLog: TStrings);
     property Items[Index: Integer]: TPoFamily read GetItem; // write SetItem;
     property PoFamilyStats: TPoFamilyStats read FPoFamilyStats;
     property TestTypes: TPoTestTypes read FTestTypes write FTestTypes;
@@ -116,10 +116,11 @@ begin
   Result := FList.Count;
 end;
 
-procedure TPoFamilyList.RunTests(out ErrorCount, WarningCount: Integer;
+procedure TPoFamilyList.RunTests(out ErrorCount, WarningCount, TotalTranslatedCount, TotalUntranslatedCount, TotalFuzzyCount: Integer;
   ErrorLog: TStrings);
 var
   Index, ThisErrorCount, ThisWarningCount: Integer;
+  ThisTranslatedCount, ThisUntranslatedCount, ThisFuzzyCount: Integer;
   PoFamily: TPoFamily;
   //ThisLog: TStringList;
 begin
@@ -131,6 +132,9 @@ begin
   //ThisLog := TStringList.Create;
   ErrorCount := NoError;
   WarningCount := NoError;
+  TotalTranslatedCount := 0;
+  TotalUntranslatedCount := 0;
+  TotalFuzzyCount := 0;
   FPoFamilyStats.Clear;
   try
     for Index := 0 to FList.Count - 1 do
@@ -140,10 +144,13 @@ begin
       PoFamily.OnTestEnd := FOnTestEnd;
       PoFamily.TestTypes := FTesttypes;
       PoFamily.TestOptions := FTestOptions;
-      PoFamily.RunTests(ThisErrorCount, ThisWarningCount, ErrorLog);
+      PoFamily.RunTests(ThisErrorCount, ThisWarningCount, ThisTranslatedCount, ThisUntranslatedCount, ThisFuzzyCount, ErrorLog);
       PoFamily.PoFamilyStats.AddItemsTo(FPoFamilyStats);
       ErrorCount := ErrorCount + ThisErrorCount;
       WarningCount := WarningCount + ThisWarningCount;
+      TotalTranslatedCount := TotalTranslatedCount + ThisTranslatedCount;
+      TotalUntranslatedCount := TotalUntranslatedCount + ThisUntranslatedCount;
+      TotalFuzzyCount := TotalFuzzyCount + ThisFuzzyCount;
       //ThisLog.AddStrings(ErrorLog)
 
     end;

components/pochecker/resultdlg.pp

@@ -38,6 +38,11 @@ type
     procedure LoadConfig;
     procedure SaveConfig;
   public
+    // The following fields keep translation statistics calculated during tests performing.
+    // They will allow to not calculate these values again in GraphStat form.
+    FTotalTranslated: Integer;
+    FTotalUntranslated: Integer;
+    FTotalFuzzy: Integer;
     property Log: TStringList read FLog write FLog;
     property PoFamilyStats: TPoFamilyStats read FPoFamilyStats write FPoFamilyStats;
     property Settings: TPoCheckerSettings read FSettings write FSettings;
@@ -60,6 +65,9 @@ begin
   SaveBtn.Caption := sSaveCaption;
   CopyBtn.Caption := sCopyCaption;
   GraphStatBtn.Caption := sShowStatGraph;
+  FTotalTranslated := 0;
+  FTotalUntranslated := 0;
+  FTotalFuzzy := 0;
 end;
 
 procedure TResultDlgForm.FormClose(Sender: TObject;
@@ -107,6 +115,14 @@ begin
   try
     GraphStatForm.PoFamilyStats := Self.PoFamilyStats;
     GraphStatForm.Settings := Self.Settings;
+
+    GraphStatForm.TranslatedLabel.Caption := Format(sTranslatedStringsTotal, [
+      IntToStr(FTotalTranslated)]);
+    GraphStatForm.UnTranslatedLabel.Caption := Format(sUntranslatedStringsTotal
+      , [IntToStr(FTotalUntranslated)]);
+    GraphStatForm.FuzzyLabel.Caption := Format(sFuzzyStringsTotal, [IntToStr(
+      FTotalFuzzy)]);
+
     mr := GraphStatForm.ShowModal;
     if mr = mrOpenEditorFile then ModalResult := mr; // To inform pocheckermain
   finally
@@ -121,7 +137,7 @@ begin
     try
       LogMemo.Lines.SaveToFile(SaveDialog.FileName);
     except
-      on E: EStreamError do MessageDlg('Po-checker',Format(sSaveError,[SaveDialog.FileName]),mtError, [mbOk],0);
+      on E: EStreamError do MessageDlg('POChecker',Format(sSaveError,[SaveDialog.FileName]),mtError, [mbOk],0);
     end;
   end;
 end;
@@ -133,7 +149,7 @@ begin
     try
       LogMemo.Lines.SaveToFile(SaveDialog.FileName);
     except
-      MessageDlg('Po-checker',Format(sSaveError,[SaveDialog.FileName]), mtError, [mbOk], 0);
+      MessageDlg('POChecker',Format(sSaveError,[SaveDialog.FileName]), mtError, [mbOk], 0);
     end;
   end;
 end;