wince: port win32 fix #13755 (have not tested though)

git-svn-id: trunk@13776 -

lcl/interfaces/wince/winceproc.pp

@@ -1084,32 +1084,32 @@ begin
   case Application.ApplicationType of
   { Under Desktop or Handheld mode we get an application which
     looks similar to a desktop one, with sizable windows }
-  atDesktop,atHandheld:
-    begin
-      case Style of
-      bsSizeable, bsSizeToolWin:
-        Result := Result or (WS_OVERLAPPED or WS_THICKFRAME or WS_CAPTION);
-      bsSingle, bsToolWindow:
-        Result := Result or (WS_OVERLAPPED or WS_BORDER or WS_CAPTION);
-      bsDialog:
-        Result := Result or (WS_POPUP or WS_BORDER or WS_CAPTION);
-      bsNone:
-        Result := Result or WS_POPUP;
+    atDesktop, atHandheld:
+      begin
+        case Style of
+        bsSizeable, bsSizeToolWin:
+          Result := Result or (WS_OVERLAPPED or WS_THICKFRAME or WS_CAPTION);
+        bsSingle, bsToolWindow:
+          Result := Result or (WS_OVERLAPPED or WS_BORDER or WS_CAPTION);
+        bsDialog:
+          Result := Result or (WS_POPUP or WS_BORDER or WS_CAPTION);
+        bsNone:
+          Result := Result or WS_POPUP;
+        end;
       end;
-    end;
-  { Under PDA or Smartphone modes most windows are enlarged to fit the screen
-    Dialogs and borderless windows are exceptions }
-  atPDA,atSmartphone,atDefault:
-    begin
-      case Style of
-      bsDialog:
-        Result := Result or (WS_POPUP or WS_BORDER or WS_CAPTION);
-      bsNone:
-        Result := Result or WS_POPUP;
-      else
-        Result := WS_VISIBLE;
+    { Under PDA or Smartphone modes most windows are enlarged to fit the screen
+      Dialogs and borderless windows are exceptions }
+    atPDA, atSmartphone, atDefault:
+      begin
+        case Style of
+        bsDialog:
+          Result := Result or (WS_POPUP or WS_BORDER or WS_CAPTION);
+        bsNone:
+          Result := Result or WS_POPUP;
+        else
+          Result := WS_VISIBLE;
+        end;
       end;
-    end;
   end;
 end;
 

lcl/interfaces/wince/wincewsforms.pp

@@ -218,6 +218,8 @@ var
 begin
   BorderStyle := GetDesigningBorderStyle(AForm);
   Flags := BorderStyleToWin32Flags(BorderStyle);
+  if AForm.Parent <> nil then
+    Flags := (Flags or WS_CHILD) and not WS_POPUP;
   FlagsEx := BorderStyleToWin32FlagsEx(BorderStyle);
   if (AForm.FormStyle in fsAllStayOnTop) then
     FlagsEx := FlagsEx or WS_EX_TOPMOST;