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

Merged revision(s) 58710 #f2caf1009a from trunk:

Browse Source 
PoChecker: fixed off-by-one errors when showing updating/drawing progress in Graphical Statistics window
........

git-svn-id: branches/fixes_1_8@58730 -
This commit is contained in:
maxim 2018-08-16 23:11:57 +00:00
parent 277fa29a97
commit b6d367d8c7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/pochecker/graphstat.pp
View File

@ -206,7 +206,7 @@ begin
try
if All=true then
StatusLabel.Caption := Format(sProcessingTranslationFamilyOf, [
IntToStr(i), IntToStr(PoFamilyList.Count)])
IntToStr(i + 1), IntToStr(PoFamilyList.Count)])
else
StatusLabel.Caption := sProcessingTranslationFamily;
StatusLabel.Repaint;
@ -411,7 +411,7 @@ begin
StatusLabel.Visible := True;
for Index := 0 to FPoFamilyStats.Count - 1 do
begin
StatusLabel.Caption := Format(sCreatingIconXofY,[Index, Cnt]);
StatusLabel.Caption := Format(sCreatingIconXofY,[Index + 1, Cnt]);
StatusLabel.Repaint;
AStat := FPoFamilyStats.Items[Index];
Bmp := CreateBitmap(AStat);