Revert r63888 #54661a2a36. It breaks event handling of forms with parent. Issue #36127.

git-svn-id: trunk@64986 -

lcl/forms.pp

@@ -500,7 +500,6 @@ type
     FDelayedEventCtr: Integer;
     FDelayedOnChangeBounds, FDelayedOnResize: Boolean;
     FIsFirstOnShow, FIsFirstOnActivate: Boolean;
-    FIsFirstRestore, FWindowStateChanged: Boolean;
     function GetClientHandle: HWND;
     function GetEffectiveShowInTaskBar: TShowInTaskBar;
     function GetMonitor: TMonitor;

lcl/include/customform.inc

@@ -706,7 +706,7 @@ begin
   end;
   { call onShow() or onActivate() for the first time,
     after first OnResize() and OnChangeBounds() }
-  if (FDelayedOnResize or FDelayedOnChangeBounds) and FActive then
+  if FDelayedOnResize or FDelayedOnChangeBounds then
   begin
     if FIsFirstOnShow then
     begin
@@ -716,20 +716,18 @@ begin
     if FIsFirstOnActivate then
     begin
       FIsFirstOnActivate := False;
-      Activate;
+      if FActive then
+        Activate;
     end;
   end;
-  if not (FIsFirstOnShow or FIsFirstOnActivate) then
+  { delayed onResize() }
-  begin
+  if FDelayedOnResize then
-    { delayed onResize() }
+    inherited DoOnResize;
-    if FDelayedOnResize then
+  { delayed onChangeBounds() }
-      inherited DoOnResize;
+  if FDelayedOnResize or FDelayedOnChangeBounds then
-    { delayed onChangeBounds() }
+    inherited DoOnChangeBounds;
-    if FDelayedOnResize or FDelayedOnChangeBounds then
+  FDelayedOnChangeBounds := False;
-      inherited DoOnChangeBounds;
+  FDelayedOnResize := False;
-    FDelayedOnChangeBounds := False;
-    FDelayedOnResize := False;
-  end;
 end;
 
 procedure TCustomForm.WMWindowPosChanged(var Message: TLMWindowPosChanged);
@@ -1003,7 +1001,6 @@ begin
   if FIsFirstOnShow and (WindowState in [wsMaximized, wsFullScreen]) then
     Exit;
   FIsFirstOnShow := False;
-  FIsFirstRestore := WindowState in [wsMaximized, wsFullScreen];
   if Assigned(FOnShow) then FOnShow(Self);
 end;
 
@@ -1151,28 +1148,8 @@ begin
       if (OldState = wsMinimized) and (Application.MainForm = Self) and
          (WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) <> LCL_CAPABILITY_NO) then
         Application.Restore;
-    end;
+      if Assigned(OnWindowStateChange) then
-
+        OnWindowStateChange(Self);
-    if (OldState <> State) or FWindowStateChanged then
-    begin
-      { honor Position property on first restore when form was designed maximized }
-      if not (FIsFirstOnShow or FIsFirstOnActivate) then
-      begin
-        if FIsFirstRestore and (State = wsNormal) then
-        begin
-          { Need to check width/height before calling MoveToDefaultPosition.
-            QT5 triggers Resizing() twice: one for position change, and
-            another for size change. This check should not affect other
-            widgetsets. }
-          if (Width <> RestoredWidth) or (Height <> RestoredHeight) then
-            Exit;
-          MoveToDefaultPosition;
-          FIsFirstRestore := False;
-        end;
-        if Assigned(OnWindowStateChange) then
-          OnWindowStateChange(Self);
-      end;
-      FWindowStateChanged := False;
     end;
   end;
 end;
@@ -1853,10 +1830,7 @@ begin
     FWindowState := Value;
     //DebugLn(['TCustomForm.SetWindowState ',DbgSName(Self),' ',ord(FWindowState),' csDesigning=',csDesigning in ComponentState,' Showing=',Showing]);
     if (not (csDesigning in ComponentState)) and Showing then
-    begin
-      FWindowStateChanged := True;
       ShowWindow(Handle, ShowCommands[Value]);
-    end;
   end;
 end;
 
@@ -2056,8 +2030,6 @@ begin
   FDelayedOnResize := False;
   FIsFirstOnShow := True;
   FIsFirstOnActivate := True;
-  FIsFirstRestore := False;
-  FWindowStateChanged := False;
   GlobalNameSpace.BeginWrite;
   try
     CreateNew(AOwner, 1); // this calls BeginFormUpdate, which is ended in AfterConstruction

lcl/interfaces/gtk2/gtk2callback.inc

@@ -1162,8 +1162,6 @@ begin
           {$ENDIF}
           SizeMsg.SizeType := SIZE_MINIMIZED;
         end
-        else if (GDK_WINDOW_STATE_FULLSCREEN and state^.new_window_state)>0 then
-          SizeMsg.SizeType := SIZE_FULLSCREEN
         else if (GDK_WINDOW_STATE_MAXIMIZED and state^.new_window_state)>0 then
         begin
           // it can be both maximized + iconified and just loose iconified state
@@ -1176,8 +1174,7 @@ begin
         // don't bother the LCL if nothing changed
         case SizeMsg.SizeType of
           SIZE_RESTORED: if TheForm.WindowState=wsNormal then exit;
-          // Need to send LM_SIZE message to LCL if wsMinimized to trigger onWindowStateChange()
+          SIZE_MINIMIZED: if TheForm.WindowState=wsMinimized then exit;
-          //SIZE_MINIMIZED: if TheForm.WindowState=wsMinimized then exit;
           SIZE_MAXIMIZED: if TheForm.WindowState=wsMaximized then exit;
           SIZE_FULLSCREEN: if TheForm.WindowState=wsFullScreen then exit;
         end;

lcl/interfaces/win32/win32callback.inc

@@ -15,7 +15,6 @@
 {$ENDIF}
 type
   TWinControlAccess = class(TWinControl);
-  TApplicationAccess = class(TApplication);
 {*************************************************************}
 {            callback routines                                }
 {*************************************************************}
@@ -2055,8 +2054,6 @@ begin
       begin
         CheckSynchronize;
         TWin32Widgetset(Widgetset).CheckPipeEvents;
-        if Assigned(Application) then
-          TApplicationAccess(Application).ProcessAsyncCallQueue;
       end;
     WM_ENTERIDLE: Application.Idle(False);
     WM_ACTIVATE:  SetLMessageAndParams(LM_ACTIVATE);