<div dir="ltr"><div>Here's the patch. Please test, It should work now for you.<br></div><div><div><br>Index: lcl/interfaces/win32/win32proc.pp<br>===================================================================<br>--- lcl/interfaces/win32/win32proc.pp (revision 51009)<br>+++ lcl/interfaces/win32/win32proc.pp (working copy)<br>@@ -870,9 +870,10 @@<br> WindowInfo^.StayOnTopList := StayOnTopWindowsInfo^.StayOnTopList;<br> EnumThreadWindows(GetWindowThreadProcessId(AppHandle, nil),<br> @EnumStayOnTopRemove, LPARAM(StayOnTopWindowsInfo));<br>- for I := 0 to WindowInfo^.StayOnTopList.Count - 1 do<br>- SetWindowPos(HWND(WindowInfo^.StayOnTopList[I]), HWND_NOTOPMOST, 0, 0, 0, 0,<br>+ for I := 0 to WindowInfo^.StayOnTopList.Count - 1 do begin<br>+ SetWindowPos(HWND(WindowInfo^.StayOnTopList[I]), HWND_BOTTOM, 0, 0, 0, 0,<br> SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER or SWP_DRAWFRAME);<br>+ end;<br> Dispose(StayOnTopWindowsInfo);<br> end;<br> inc(InRemoveStayOnTopFlags);<br><br></div><div>thanks,<br></div><div>Dmitry<br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Dec 23, 2015 at 12:43 PM, Ondrej Pokorny <span dir="ltr"><<a href="mailto:lazarus@kluug.net" target="_blank">lazarus@kluug.net</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000"><span class="">
<div>On 23.12.2015 18:25, Dmitry Boyarintsev
wrote:<br>
</div>
<blockquote type="cite">
<div dir="ltr">
<div class="gmail_extra">
<div class="gmail_quote">On Wed, Dec 23, 2015 at 11:26 AM,
Dmitry Boyarintsev <span dir="ltr"><<a href="mailto:skalogryz.lists@gmail.com" target="_blank"></a><a href="mailto:skalogryz.lists@gmail.com" target="_blank">skalogryz.lists@gmail.com</a>></span>
wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div dir="ltr">
<div class="gmail_extra">StayOnTop - stay on top of all
windows within the application<br>
</div>
<div class="gmail_extra">fsSystemStayOnTop - stay on top
of all windows within system.<br>
</div>
</div>
</blockquote>
</div>
<br>
Yes, it is in Lazarus documentation as well.<br>
<a href="http://lazarus-ccr.sourceforge.net/docs/lcl/controls/tformstyle.html" target="_blank">http://lazarus-ccr.sourceforge.net/docs/lcl/controls/tformstyle.html</a><br>
</div>
</div>
</blockquote>
<br></span>
Yes, you are right. I didn't check it before. But as I stated in my
last emails:<br>
1.) fsStayOnTop is Delphi-incompatible. Delphi's fsStayOnTop
corresponds with Lazarus' fsSystemStayOnTop.<br>
2.) fsStayOnTop in Lazarus can and does overlap other application
windows in Windows 10 (although not always).<br>
3.) fsStayOnTop in Lazarus always does overlap other application
windows in Linux/KDE.<br>
<br>
According to 2+3, fsStayOnTop in Lazarus is anything else than
application-wide, regardless what the documentation states :(<br>
<br>
So either the documentation or LCL code has to be fixed - or both.
The question is how:<br>
A.) Make it backwards compatible: fsStayOnTop / fsSystemStayOnTop<br>
B.) Make it Delphi compatible: fsStayOnTop + fsAppStayOnTop (if
needed and supported).<span class="HOEnZb"><font color="#888888"><br>
<br>
Ondrej<br>
</font></span></div>
<br>--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" rel="noreferrer" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
<br></blockquote></div><br></div>