Changeset 1679 for cprs/trunk/CPRS-Chart/uInit.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/uInit.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/uInit.pas

@@ -22 +22 @@
 function TimedOut: boolean;
 procedure ShutDownTimeOut;
+procedure SuspendTimeout;
+procedure ResumeTimeout;
 
 implementation
@@ -44 +46 @@
   timTimeout: TCPRSTimeoutTimer = nil;
   FTimedOut: boolean = FALSE;
+  uSuspended: boolean = False;
 
 function TimeoutKeyHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; StdCall; forward;
@@ -150 +153 @@
 end;
 
-
 { TCPRSTimeoutTime }
 
@@ -164 +166 @@
 { when the timer expires, the application is closed after warning the user }
 begin
+  if uSuspended then
+  begin
+    ResetTimeout;
+    exit;
+  end;
   Enabled := False;
   if(assigned(FUserCondition)) then
@@ -177 +184 @@
 end;
 
+procedure SuspendTimeout;
+begin
+  uSuspended := True;
+end;
+
+procedure ResumeTimeout;
+begin
+  if assigned(timTimeout) then
+    timTimeout.ResetTimeout;
+  uSuspended := False;
+end;
+
 initialization