LCL: added Application.IntfAppActivate and Application.IntfAppDeactivate, that can be called by the widgetset to notify the LCL, so it can raise the Application.OnActivate and OnDeactivate events. It is used in by the win32 widgetset (issue #8043)

git-svn-id: trunk@22062 -

lcl/forms.pp

@@ -1295,6 +1295,8 @@ type
     function  IsShortcut(var Message: TLMKey): boolean;
     procedure IntfQueryEndSession(var Cancel : Boolean);
     procedure IntfEndSession;
+    procedure IntfAppActivate;
+    procedure IntfAppDeactivate;
     procedure IntfAppMinimize;
     procedure IntfAppRestore;
     procedure IntfDropFiles(const FileNames: Array of String);

lcl/include/application.inc

@@ -1754,6 +1754,16 @@ begin
   FApplicationHandlers[ahtEndSession].CallNotifyEvents(Self);
 end;
 
+procedure TApplication.IntfAppActivate;
+begin
+  Activate;
+end;
+
+procedure TApplication.IntfAppDeactivate;
+begin
+  Deactivate;
+end;
+
 {------------------------------------------------------------------------------
   procedure TApplication.IntfQueryEndSession(var Cancel : Boolean);
 ------------------------------------------------------------------------------}

lcl/interfaces/win32/win32callback.inc

@@ -2419,11 +2419,15 @@ begin
         begin
           //WriteLn('Restore');
           RestoreStayOnTopFlags(Window);
+          if assigned(Application) then
+             Application.IntfAppActivate;
         end
         else
         begin // deactivated
           //WriteLn('Remove');
           RemoveStayOnTopFlags(Window);
+          if assigned(Application) then
+             Application.IntfAppDeactivate;
         end;
       end;
     end;