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

Timestamp:

Sep 11, 2008, 7:23:35 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Adding skin support

File:

• cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr (modified) (1 diff)

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

@@ -338 +338 @@
     Application.HelpFile := 'cprs.hlp';
     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.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;
+  {$IFDEF USE_SKINS}
+  if SkinManager <> nil then SkinManager.Active := false;  //turn off before destroying forms...
+  {$ENDIF}
 end.