diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-08 08:24:43 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-08 08:24:43 +0000 |
| commit | 49177872a8b7c894b4980c263d60b2a5616f51b9 (patch) | |
| tree | 00c8b12497ffcdaae53927bcf4193559219b5288 /src/corelib | |
| parent | 4913622b3934d6b98677eeeeacad3a5286e5fd7a (diff) | |
| download | fpGUI-49177872a8b7c894b4980c263d60b2a5616f51b9.tar.xz | |
no comments
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpgfx.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas index 0aa582f3..11bf88d7 100644 --- a/src/corelib/fpgfx.pas +++ b/src/corelib/fpgfx.pas @@ -403,12 +403,12 @@ var begin ctime := now; i := 0; - - while i < fpgTimers.Count do + while i < fpgTimers.Count do begin if fpgTimers[i] = nil then fpgTimers.Delete(i) - else begin + else + begin TfpgTimer(fpgTimers[i]).CheckAlarm(ctime); Inc(i); end; @@ -673,7 +673,7 @@ begin // set the next alarm point if interval > 0 then while FNextAlarm <= ctime do - FNextAlarm := FNextAlarm + interval * ONE_MILISEC; + FNextAlarm := FNextAlarm + (interval * ONE_MILISEC); if Assigned(FOnTimer) then FOnTimer(self); |