paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:36:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: trunk@25520 -
This commit is contained in:
sekelsenmat 2010-05-19 18:24:12 +00:00
parent d7de33e1aa
commit 3a4f157391
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32callback.inc
View File

@ -1437,12 +1437,12 @@ begin
if Window = TWin32WidgetSet(WidgetSet).FAppHandle then if Window = TWin32WidgetSet(WidgetSet).FAppHandle then
if WParam = 0 then if WParam = 0 then
begin begin
RemoveStayOnTopFlags(Window); // RemoveStayOnTopFlags(Window);
DisabledForms := Screen.DisableForms(nil, DisabledForms); DisabledForms := Screen.DisableForms(nil, DisabledForms);
end end
else else
begin begin
RestoreStayOnTopFlags(Window); // RestoreStayOnTopFlags(Window);
Screen.EnableForms(DisabledForms); Screen.EnableForms(DisabledForms);
end; end;
@ -2178,14 +2178,14 @@ begin
if WParam <> 0 then // activated if WParam <> 0 then // activated
begin begin
//WriteLn('Restore'); //WriteLn('Restore');
RestoreStayOnTopFlags(Window); // RestoreStayOnTopFlags(Window);
if assigned(Application) then if assigned(Application) then
Application.IntfAppActivate; Application.IntfAppActivate;
end end
else else
begin // deactivated begin // deactivated
//WriteLn('Remove'); //WriteLn('Remove');
RemoveStayOnTopFlags(Window); // RemoveStayOnTopFlags(Window);
if assigned(Application) then if assigned(Application) then
Application.IntfAppDeactivate; Application.IntfAppDeactivate;
end; end;