paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@58710 -
This commit is contained in:
maxim 2018-08-14 22:24:29 +00:00
parent c03952b491
commit f2caf1009a
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 try
if All=true then if All=true then
StatusLabel.Caption := Format(sProcessingTranslationFamilyOf, [ StatusLabel.Caption := Format(sProcessingTranslationFamilyOf, [
IntToStr(i), IntToStr(PoFamilyList.Count)]) IntToStr(i + 1), IntToStr(PoFamilyList.Count)])
else else
StatusLabel.Caption := sProcessingTranslationFamily; StatusLabel.Caption := sProcessingTranslationFamily;
StatusLabel.Repaint; StatusLabel.Repaint;
@ -411,7 +411,7 @@ begin
StatusLabel.Visible := True; StatusLabel.Visible := True;
for Index := 0 to FPoFamilyStats.Count - 1 do for Index := 0 to FPoFamilyStats.Count - 1 do
begin begin
StatusLabel.Caption := Format(sCreatingIconXofY,[Index, Cnt]); StatusLabel.Caption := Format(sCreatingIconXofY,[Index + 1, Cnt]);
StatusLabel.Repaint; StatusLabel.Repaint;
AStat := FPoFamilyStats.Items[Index]; AStat := FPoFamilyStats.Items[Index];
Bmp := CreateBitmap(AStat); Bmp := CreateBitmap(AStat);