paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, Translations unit: calculate translation statistics based on actual file contents, ignoring any corrections made when reading it

Browse Source 
git-svn-id: trunk@61303 -
This commit is contained in:
maxim 2019-05-30 23:45:14 +00:00
parent fc4ab0cea8
commit 81b06ad0e5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/translations.pas
View File

@ -1032,10 +1032,11 @@ begin
for i:=0 to Items.Count-1 do
begin
Item := TPOFileItem(FItems[i]);
if Item.Translation = '' then
// statistics are calculated with respect to actual translation file contents
if (Item.Translation = '') or (Item.VirtualTranslation = true) then
Inc(FStatistics.Untranslated)
else
if Pos(sFuzzyFlag, Item.Flags)<>0 then
if Item.InitialFuzzyState = true then
Inc(FStatistics.Fuzzy)
else
Inc(FStatistics.Translated);