Changeset 819 for cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr

Timestamp:

Jul 2, 2010, 7:54:17 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed crash on non-login

File:

• cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr

@@ -9 +9 @@
   TntSystem,
   TntSysUtils,
+  DKLang,  //kt NOTE: Keep this before any app form so it will do it's finalizaton section AFTER forms unload.
   fPage in 'fPage.pas' {frmPage},
   fHSplit in 'fHSplit.pas' {frmHSplit},
@@ -356 +357 @@
     Application.HelpFile := 'cprs.hlp';
     Application.CreateForm(TdmodShared, dmodShared);
-  Application.CreateForm(TfrmFrame, frmFrame);
-  Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
-  //kt <--- frmImages etc created here
+    Application.CreateForm(TfrmFrame, frmFrame);
+    //kt <--- frmImages etc created here
     if frmframe.TMGAbort = False then begin   //kt 3/25/09
+      Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
       Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
       Application.CreateForm(TfrmSearchStop, frmSearchStop);