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

Merged revision(s) 56413 #41c3d6a8d6 from trunk:

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

git-svn-id: branches/fixes_1_8@56446 -
This commit is contained in:
maxim 2017-11-20 22:56:52 +00:00
parent d25430608d
commit 16b268e174
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 if AForm.HandleObjectShouldBeVisible and
GTK_IS_WINDOW({%H-}PGtkWindow(AForm.Handle)) then GTK_IS_WINDOW({%H-}PGtkWindow(AForm.Handle)) then
begin begin
gtk_window_set_type_hint({%H-}PGtkWindow(AForm.Handle),
GtkWindowTypeHints[AForm.BorderStyle]);
gtk_window_set_keep_above({%H-}PGtkWindow(AForm.Handle), gtk_window_set_keep_above({%H-}PGtkWindow(AForm.Handle),
GBoolean(AForm.FormStyle in fsAllStayOnTop)) GBoolean(AForm.FormStyle in fsAllStayOnTop))
end end
@ -741,6 +739,8 @@ begin
begin begin
gtk_window_set_default_size(GtkWindow, Max(1,AForm.Width), Max(1,AForm.Height)); 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_widget_set_uposition(PGtkWidget(GtkWindow), AForm.Left, AForm.Top);
gtk_window_set_type_hint({%H-}PGtkWindow(AForm.Handle),
GtkWindowTypeHints[AForm.BorderStyle]);
GtkWindowShowModal(AForm, GtkWindow); GtkWindowShowModal(AForm, GtkWindow);
end else end else
begin begin