paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 12:29:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL,Gtk2: fix Dialog modal windows go behind regular windows and won't come on top, issue #32635

Browse Source 
git-svn-id: trunk@56413 -
This commit is contained in:
jesus 2017-11-15 00:54:41 +00:00
parent 0dfbf05613
commit 41c3d6a8d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -725,8 +725,6 @@ begin
if AForm.HandleObjectShouldBeVisible and
GTK_IS_WINDOW({%H-}PGtkWindow(AForm.Handle)) then
begin
gtk_window_set_type_hint({%H-}PGtkWindow(AForm.Handle),
GtkWindowTypeHints[AForm.BorderStyle]);
gtk_window_set_keep_above({%H-}PGtkWindow(AForm.Handle),
GBoolean(AForm.FormStyle in fsAllStayOnTop))
end
@ -741,6 +739,8 @@ begin
begin
gtk_window_set_default_size(GtkWindow, Max(1,AForm.Width), Max(1,AForm.Height));
gtk_widget_set_uposition(PGtkWidget(GtkWindow), AForm.Left, AForm.Top);
gtk_window_set_type_hint({%H-}PGtkWindow(AForm.Handle),
GtkWindowTypeHints[AForm.BorderStyle]);
GtkWindowShowModal(AForm, GtkWindow);
end else
begin