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

Timestamp:

Mar 31, 2010, 5:06:56 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added functions to Templates, and Images tab

File:

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

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

@@ -307 +307 @@
   fImages in 'fImages.pas' {frmImages},
   UploadImages in 'UploadImages.pas' {UploadForm},
-  UploadProgress in 'UploadProgress.pas' {UploadProgressForm},
+  frmImageTransferProgress in 'TMG_Extra\frmImageTransferProgress.pas' {ImageTransferForm},
   fProbLex in 'fProbLex.pas' {frmPLLex},
   fTIUView in 'fTIUView.pas' {frmTIUView},
@@ -323 +323 @@
   EditTextU in 'TMG_Extra\EditTextU.pas' {EditTextForm},
   ORNet in '..\CPRS-Lib\ORNet.pas',
-  fTMGPrintingAnimation in 'TMG_Extra\fTMGPrintingAnimation.pas';
+  fTMGPrintingAnimation in 'TMG_Extra\fTMGPrintingAnimation.pas',
+  uTMGOptions in 'uTMGOptions.pas',
+  fPtLabelPrint in 'TMG_Extra\fPtLabelPrint.pas' {frmPtLabelPrint},
+  uEvaluate in 'uEvaluate.pas';
 
 {$R *.TLB}
@@ -337 +340 @@
     Application.Initialize;
     frmSplash := nil;
-    if ParamSearch('SPLASH') <> 'OFF' then
-    begin
+    if ParamSearch('SPLASH') <> 'OFF' then begin
       frmSplash := TfrmSplash.Create(Application);  // show splash screen
       frmSplash.Show;                               //         "
@@ -348 +350 @@
     Application.CreateForm(TdmodShared, dmodShared);
   Application.CreateForm(TfrmFrame, frmFrame);
-  if frmframe.TMGAbort = False then begin   //kt 3/25/09
+  //kt <--- frmImages etc created here
+    Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
+    if frmframe.TMGAbort = False then begin   //kt 3/25/09
       Application.CreateForm(TfrmSearchStop, frmSearchStop);
-      Application.CreateForm(TfrmImages, frmImages);
       Application.CreateForm(TUploadForm, UploadForm);
-      Application.CreateForm(TUploadProgressForm, UploadProgressForm);
+      Application.CreateForm(TImageTransferForm, ImageTransferForm);
       Application.CreateForm(TfrmODAllergy, frmODAllergy);
       Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
@@ -364 +367 @@
       Application.CreateForm(TEditTextForm, EditTextForm);
       Application.CreateForm(TfrmTMGPrinting,frmTMGPrinting);
-      //kt Application.CreateForm(TfrmWebTab, frmWebTab);
       frmSplash.Free;                               // close & free splash screen
       Application.Run;