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

Timestamp:

Aug 12, 2009, 7:14:16 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

TMG Ver 1.1 Added HTML Support, better demographics editing

File:

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

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

@@ -314 +314 @@
   fPtAdd in 'TMG_Extra\fPtAdd.pas' {frmPtAdd},
   fPtDemoEdit in 'TMG_Extra\fPtDemoEdit.pas' {frmPtDemoEdit},
-  fWebTab in 'TMG_Extra\fWebTab.pas' {frmWebTab};
+  fWebTab in 'TMG_Extra\fWebTab.pas' {frmWebTab},
+  SubfilesU in 'TMG_Extra\SubfilesU.pas',
+  SelDateTimeU in 'TMG_Extra\SelDateTimeU.pas' {SelDateTimeForm},
+  SetSelU in 'TMG_Extra\SetSelU.pas' {SetSelForm},
+  FMErrorU in 'TMG_Extra\FMErrorU.pas' {FMErrorForm},
+  LookupU in 'TMG_Extra\LookupU.pas' {FieldLookupForm},
+  PostU in 'TMG_Extra\PostU.pas' {PostForm},
+  EditTextU in 'TMG_Extra\EditTextU.pas' {EditTextForm};
 
 {$R *.TLB}
@@ -339 +346 @@
     Application.CreateForm(TdmodShared, dmodShared);
     Application.CreateForm(TfrmFrame, frmFrame);
-    Application.CreateForm(TfrmSearchStop, frmSearchStop);
-    Application.CreateForm(TfrmImages, frmImages);
-    Application.CreateForm(TUploadForm, UploadForm);
-    Application.CreateForm(TUploadProgressForm, UploadProgressForm);
-    Application.CreateForm(TfrmODAllergy, frmODAllergy);
-    Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
-    Application.CreateForm(TfrmPtAdd, frmPtAdd);
-    Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
-    //kt Application.CreateForm(TfrmWebTab, frmWebTab);
-    frmSplash.Free;                               // close & free splash screen
-    Application.Run;
-  end;
+    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(TfrmODAllergy, frmODAllergy);
+      Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
+      Application.CreateForm(TfrmPtAdd, frmPtAdd);
+      Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
+      Application.CreateForm(TSelDateTimeForm, SelDateTimeForm);
+      Application.CreateForm(TSetSelForm, SetSelForm);
+      Application.CreateForm(TFMErrorForm, FMErrorForm);
+      Application.CreateForm(TFieldLookupForm, FieldLookupForm);
+      Application.CreateForm(TPostForm, PostForm);
+      Application.CreateForm(TEditTextForm, EditTextForm);
+      //kt Application.CreateForm(TfrmWebTab, frmWebTab);
+      frmSplash.Free;                               // close & free splash screen
+      Application.Run;
+    end;
+  end;   //kt 3/25/09
 end.