paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-23 04:06:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Win32: Fixed FormStyle fsNormal is ignored after switching back from fsStayOnTop, only working for AnchorDocking with recreating of HWND. Issue #38790

Browse Source 
git-svn-id: trunk@65053 -
This commit is contained in:
michl 2021-04-22 21:30:27 +00:00
parent 737f3518f6
commit 038cc46fc5
1 changed files with 3 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/interfaces/win32/win32wsforms.pp
View File

@ -587,9 +587,6 @@ class procedure TWin32WSCustomForm.SetFormStyle(const AForm: TCustomform;
const AFormStyle, AOldFormStyle: TFormStyle); const AFormStyle, AOldFormStyle: TFormStyle);
const const
WindowPosFlags = SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER; WindowPosFlags = SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER;
var
toplist: TList;
i: Integer;
begin begin
// Some changes don't require RecreateWnd // Some changes don't require RecreateWnd
@ -608,7 +605,7 @@ begin
begin begin
// NOTE: // NOTE:
// see bug report #16573 // see bug report #16573 and #38790
// if a window changes from HWND_TOPMOST to HWND_NOTOPMOST // if a window changes from HWND_TOPMOST to HWND_NOTOPMOST
// other TOP most windows also change their state to Non-topmost! // other TOP most windows also change their state to Non-topmost!
@ -616,26 +613,10 @@ begin
// "When a topmost window is made non-topmost, its owners and its owned windows are also made non-topmost windows" // "When a topmost window is made non-topmost, its owners and its owned windows are also made non-topmost windows"
// Is it possible, that Application window, makes all other forms, non-top most? // Is it possible, that Application window, makes all other forms, non-top most?
// It's also possible to make a list of "topmost forms" and re-enable their state // It's also possible to make a list of "topmost forms" and re-enable their state
// after changing the style of the window (so recreation can be avoided) // after changing the style of the window (so recreation can be avoided).
// Possible solution, using window re-creation
//if not (csDesigning in AForm.ComponentState) then
// RecreateWnd(AForm);
if not (csDesigning in AForm.ComponentState) then if not (csDesigning in AForm.ComponentState) then
begin RecreateWnd(AForm);
toplist := TList.Create;
try
EnumStayOnTop(AForm.Handle, toplist);
SetWindowPos(AForm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOOWNERZORDER);
for i := 0 to toplist.Count - 1 do
if HWND(toplist[i]) <> AForm.Handle then
SetWindowPos(HWND(toplist[i]), HWND_TOPMOST, 0, 0, 0, 0, WindowPosFlags);
finally
toplist.Free;
end;
end;
end end
else else
RecreateWnd(AForm); RecreateWnd(AForm);