From def6be738e34d5ff5d4679a96d25c137aac31e31 Mon Sep 17 00:00:00 2001
From: Andrew Haines <andrewd207@aol.com>
Date: Sun, 1 Feb 2015 09:37:07 -0500
Subject: Changes to allow modal windows to have owners.

---
 src/gui/fpg_dialogs.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/gui/fpg_dialogs.pas')

diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index 8f3639e6..99c5b208 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -577,6 +577,8 @@ end;
 
 constructor TfpgBaseDialog.Create(AOwner: TComponent);
 begin
+  // WindowType must be set before inherited or our parent property will be set
+  WindowType:=wtModalForm;
   inherited Create(AOwner);
   Width     := 500;
   Height    := 400;
-- 
cgit v1.2.3-70-g09d2