diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-17 08:50:54 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-17 08:50:54 +0000 |
| commit | dc4b8e37d0aba7e659f4e807cc494c6ce71eee59 (patch) | |
| tree | 004b55945c9f6a2f53dae4f42b033f57d5464f59 /examples/apps | |
| parent | 9be9eaa5dd300201a6139ebb02c2d48b835739af (diff) | |
| download | fpGUI-dc4b8e37d0aba7e659f4e807cc494c6ce71eee59.tar.xz | |
* Minor fix to get GUI Test Runner to compile with FPC 2.3.1
Diffstat (limited to 'examples/apps')
| -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; |