From e75fecfde6c7961303546759d77b6fe59876332b Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 4 Feb 2013 14:26:15 +0000
Subject: [PATCH] fix close window in RxMDI

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2652 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/docs/rxfpc.xml | 18 ++++++++++++++++--
 components/rx/rxmdi.pas      |  4 ++--
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/components/rx/docs/rxfpc.xml b/components/rx/docs/rxfpc.xml
index 69db2f643..c1ab0077b 100644
--- a/components/rx/docs/rxfpc.xml
+++ b/components/rx/docs/rxfpc.xml
@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="utf-8"?>
 <fpdoc-descriptions>
   <package name="dcl_rx_fpc">
     <short>Пакет времени разработки</short>
@@ -164,6 +164,7 @@
             
             
             
+            
             <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
         </descr>
       </element>
@@ -568,6 +569,7 @@
             
             
             
+            
             <link id="TRxDBGrid">RxDBGrid</link>-а.</p>
         </descr>
         <seealso>
@@ -610,7 +612,10 @@
           <link id="TRxDBGridSortEngine"/>
         </seealso>
       </element>
-      <element name="TMLCaptionItem"/>
+      <element name="TMLCaptionItem">
+        <short>Элемент многострочного заголовка</short>
+        <descr>Элемент многострочного заголовка</descr>
+      </element>
       <element name="TRxDbGridColumns"/>
       <element name="TRxDbGridColumns.Add"/>
       <element name="TFilterListCellEditor"/>
@@ -1154,6 +1159,7 @@ TRxDBCalcEdit является наследником TDBCalcEdit и имеет
           
           
           
+          
           
           
           <b>Count</b>
@@ -2432,6 +2438,7 @@ Description
             
             
             
+            
             
             
             <b>const</b> SearchDomain, FileName:
@@ -2455,6 +2462,7 @@ Description
             
             
             
+            
             
             
             <b>String</b>;
@@ -2478,6 +2486,7 @@ Description
             
             
             
+            
             
             
             <b>out</b> UserName, DomainName:
@@ -2501,6 +2510,7 @@ Description
             
             
             
+            
             
             
             <b>String</b>);
@@ -2543,6 +2553,7 @@ Description
             
             
             
+            
             <b>const</b> DirName:
             
             
@@ -2560,6 +2571,7 @@ Description
             
             
             
+            
             <b>string</b>):
             
             
@@ -2577,6 +2589,7 @@ Description
             
             
             
+            
             <b>string</b>;</p>
           <p>Функция проверяет все разделители каталогов в указанном имени файла/каталога и, если нужно, меняет их на значение константы<b>DirectorySeparator</b>.</p>
         </descr>
@@ -2606,6 +2619,7 @@ Description
             
             
             
+            
             
             
             <b>string</b>;</p>
diff --git a/components/rx/rxmdi.pas b/components/rx/rxmdi.pas
index c05a4d742..f4b4c8bae 100644
--- a/components/rx/rxmdi.pas
+++ b/components/rx/rxmdi.pas
@@ -675,10 +675,10 @@ procedure TRxMDIButton.FormClose(Sender: TObject; var CloseAction: TCloseAction)
 begin
   if Assigned(FSaveClose) then
     FSaveClose(Sender, CloseAction);
-  Free;
-
   FNavPanel.ChildWindowsShowLast;
   FNavPanel.ShowHiddenBtnOnResize;
+
+  Free;
 end;
 
 constructor TRxMDIButton.CreateButton(AOwner: TRxMDITasks; AForm: TForm);