paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 06:19:47 +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
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);