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

lcl: comments

Browse Source 
git-svn-id: trunk@46956 -
This commit is contained in:
mattias 2014-11-22 09:40:07 +00:00
parent f414c5cdd3
commit 04501e7e80
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -733,17 +733,22 @@ begin
GtkWindowShowModal(AForm, GtkWindow);
end else
begin
if ShowNonModalOverModal then
// issue #21459
if ShowNonModalOverModal then begin
// issue #21459
end
else if not GTK_IS_WINDOW(GtkWindow) then begin
//
end
else if (AForm.FormStyle <> fsMDIChild) and AForm.HandleObjectShouldBeVisible
and (ModalWindows <> nil) and (ModalWindows.Count > 0)
and (AForm.PopupParent = nil) and (AForm.BorderStyle = bsNone)
then begin
// showing a non modal form above a modal form
gtk_window_set_transient_for(GtkWindow, nil);
gtk_window_set_modal(GtkWindow, True);
end else begin
// showing normal form
// clear former mods (e.g. when a modal form becomes a normal form)
// see bug 23876
gtk_window_set_transient_for(GtkWindow, nil); //untransient
gtk_window_set_modal(GtkWindow, False);