paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 22:18:33 +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 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;