From 3a4f157391b2e8da22716c2d4f6083db08de86c6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Wed, 19 May 2010 18:24:12 +0000
Subject: [PATCH] Fixes fsStayOnTop on Windows as defined as staying on top of
 all windows of any application, regardless of enabled status or anything else
 for that matter.

git-svn-id: trunk@25520 -
---
 lcl/interfaces/win32/win32callback.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 7bb7fcd8d0..cef792514c 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1437,12 +1437,12 @@ begin
       if Window = TWin32WidgetSet(WidgetSet).FAppHandle then
         if WParam = 0 then
         begin
-          RemoveStayOnTopFlags(Window);
+//          RemoveStayOnTopFlags(Window);
           DisabledForms := Screen.DisableForms(nil, DisabledForms);
         end
         else
         begin
-          RestoreStayOnTopFlags(Window);
+//          RestoreStayOnTopFlags(Window);
           Screen.EnableForms(DisabledForms);
         end;
         
@@ -2178,14 +2178,14 @@ begin
         if WParam <> 0 then // activated
         begin
           //WriteLn('Restore');
-          RestoreStayOnTopFlags(Window);
+//          RestoreStayOnTopFlags(Window);
           if assigned(Application) then
              Application.IntfAppActivate;
         end
         else
         begin // deactivated
           //WriteLn('Remove');
-          RemoveStayOnTopFlags(Window);
+//          RemoveStayOnTopFlags(Window);
           if assigned(Application) then
              Application.IntfAppDeactivate;
         end;