lcl: add lcModalWindow flag to the TLCLCapatibility enum. Windows has this flag set to 0 and other widgetsets which supports native modal forms to 1 (todo: make wince modal handling the same as on win32)

git-svn-id: trunk@18630 -

lcl/include/customform.inc

@@ -2079,7 +2079,10 @@ begin
   Screen.FFocusedForm := Self;
   Screen.MoveFormToFocusFront(Self);
   Screen.MoveFormToZFront(Self);
-  DisabledList := Screen.DisableForms(Self);
+  if WidgetSet.GetLCLCapability(lcModalWindow) = 0 then
+    DisabledList := Screen.DisableForms(Self)
+  else
+    DisabledList := nil;
   ModalResult := 0;
 
   try

lcl/include/interfacebase.inc

@@ -67,7 +67,8 @@ begin
     lcCanDrawOutsideOnPaint,
     lcNeedMininimizeAppWithMainForm,
     lcApplicationTitle,
-    lcFormIcon:
+    lcFormIcon,
+    lcModalWindow:
       Result := 1;
   else
     Result := 0;

lcl/interfacebase.pp

@@ -74,7 +74,8 @@ type
     lcNeedMininimizeAppWithMainForm,
                              // When main form is minimized, then minimize also app
     lcApplicationTitle,      // Can change application title in runtime
-    lcFormIcon               // Forms have icon
+    lcFormIcon,              // Forms have icon
+    lcModalWindow
   );
 
   { TWidgetSet }

lcl/interfaces/win32/win32object.inc

@@ -457,6 +457,7 @@ function TWin32WidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
 begin
   case ACapability of
     lcAsyncProcess: Result := 1;
+    lcModalWindow: Result := 0;
   else
     Result := inherited;
   end;