diff options
-rw-r--r-- | examples/apps/fpcunit/fpg_guitestrunner.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/apps/fpcunit/fpg_guitestrunner.pas b/examples/apps/fpcunit/fpg_guitestrunner.pas index cafc92be..a2fded47 100644 --- a/examples/apps/fpcunit/fpg_guitestrunner.pas +++ b/examples/apps/fpcunit/fpg_guitestrunner.pas @@ -189,7 +189,7 @@ end; procedure TGUITestRunnerForm.EndTest(ATest: TTest); begin - inc(pbName1.Position, 1); + pbName1.Position := pbName1.Position + 1; pbName1.Invalidate; fpgApplication.ProcessMessages; end; |