Changeset 1679 for cprs/trunk/CPRS-Chart/uFormMonitor.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/uFormMonitor.pas (modified) (1 diff)

cprs/trunk/CPRS-Chart/uFormMonitor.pas

@@ -277 +277 @@
   try
     activeHandle := GetActiveFormHandle;
-    modal := ModalDelphiForm;
+    if (activeHandle <> 0) and (not assigned(FactiveForm)) then
+        modal := true    //assumes DLL created forms are modal
+      else
+      modal := ModalDelphiForm;
     FZOrderHandles.Clear;
     fTopOnList.Clear;