fpgCheckTimers is now a function.

A boolean return value of True means that there are active timers.

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);