From 0eee01a3b4745e10f9d1306e1fc66cfe53a0339c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 8 Dec 2009 16:00:32 +0000
Subject: [PATCH] LCL: CloseQuery: query docked forms

git-svn-id: trunk@23033 -
---
 lcl/include/customform.inc | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 40c74370fa..a36bcf658b 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1719,10 +1719,19 @@ end;
        TCustomForm Method CloseQuery
 ------------------------------------------------------------------------------}
 function TCustomForm.CloseQuery: boolean;
+var
+  i: Integer;
 begin
   if FormStyle = fsMDIForm then
   begin
     // Query children forms whether we can close
+    i:=0;
+    while i<DockClientCount do begin
+      if (DockClients[i] is TCustomForm)
+      and not (TCustomForm(DockClients[i]).CloseQuery) then
+        exit(false);
+      inc(i);
+    end;
     // TODO: mdi logic
   end;
   Result := True;