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

Gtk2: do not ignore fsStayOnTop for borderless forms. fixes #15953

Browse Source 
git-svn-id: trunk@23965 -
This commit is contained in:
zeljko 2010-03-12 14:56:33 +00:00
parent 44afccc3c4
commit 3b8ff2f3ba
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -194,8 +194,7 @@ begin
gtk_window_set_transient_for(PGtkWindow(P), PGtkWindow(PopupParent.Handle))
else
if not (csDesigning in ACustomForm.ComponentState)
and (ACustomForm.FormStyle = fsStayOnTop)
and not (ACustomForm.BorderStyle in [bsNone]) then
and (ACustomForm.FormStyle = fsStayOnTop) then
gtk_window_set_keep_above(PGtkWindow(P), gboolean(True));
// the clipboard needs a widget