diff options
| -rw-r--r-- | src/corelib/fpg_main.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index 8532f959..a8df0e16 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -395,7 +395,7 @@ function fpgGetNamedFontList: TStringlist; // Timers rountines procedure fpgInitTimers; -procedure fpgCheckTimers; +function fpgCheckTimers: Boolean; procedure fpgResetAllTimers; function fpgClosestTimer(ctime: TDateTime; amaxtime: integer): integer; function fpgGetTickCount: DWord; @@ -541,13 +541,14 @@ begin fpgTimers := TList.Create; end; -procedure fpgCheckTimers; +function fpgCheckTimers: Boolean; var i: integer; ctime: TDateTime; begin ctime := now; i := fpgTimers.Count; + Result := i > 0; while i > 0 do begin dec(i); |