fixed issue ID: 3030971 from SourceForge.

When the date/time changes to an earlier date while an fpGUI
application is running, all timers stopped firing. Under Windows
all timers are reset.

TODO:
Found out what happens under Linux and how we can detected a
date/time change.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index e9b0aaba..2fe5f200 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -387,6 +387,7 @@ function  fpgGetNamedFontList: TStringlist;
 // Timers rountines
 procedure fpgInitTimers;
 procedure fpgCheckTimers;
+procedure fpgResetAllTimers;
 function  fpgClosestTimer(ctime: TDateTime; amaxtime: integer): integer;
 function  fpgGetTickCount: DWord;
 
@@ -512,6 +513,14 @@ begin
   end;
 end;
 
+procedure fpgResetAllTimers;
+var
+  i: integer;
+begin
+  for i := 0 to fpgTimers.Count-1 do
+    TfpgTimer(fpgTimers[i]).Reset;
+end;
+
 function fpgClosestTimer(ctime: TDateTime; amaxtime: integer): integer;
 var
   i: integer;