Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fPage.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fPage.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fPage.pas

@@ -46 +46 @@
 implementation
 
-uses ORFn, fFrame;
+uses ORFn, fFrame, uInit;
 
 {$R *.DFM}
@@ -152 +152 @@
   NextControl: TWinControl;
 begin
-  if Assigned(frmFrame) and frmFrame.Enabled and frmFrame.Visible then begin
+  if Assigned(frmFrame) and frmFrame.Enabled and frmFrame.Visible and not uInit.Timedout then begin
     NextControl := FindNextControl(nil, True, True, False);
     if NextControl <> nil then