Changeset 830 for cprs/trunk/CPRS-Chart/uFormMonitor.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/uFormMonitor.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/uFormMonitor.pas

@@ -20 +20 @@
 
 implementation
+
+const
+  TIMER_INTERVAL = 8;
+  TIMER_CHECKS_BEFORE_TIMEOUT = 1000 div TIMER_INTERVAL;
 
 type
@@ -368 +372 @@
   fTimer.Enabled := FALSE;
   FTimer.OnTimer := Timer;
-  FTimer.Interval := 10;
+  FTimer.Interval := TIMER_INTERVAL;
   FMenuPending := FALSE;
   FLastActiveFormHandle := 0;
@@ -573 +577 @@
 begin
   inc(FTimerCount);
-  if(FTimerCount > 20) then
+  if(FTimerCount > TIMER_CHECKS_BEFORE_TIMEOUT) then
   begin
     FTimer.Enabled := FALSE;