From b4e4aef6e2c982b5eeb5d741a6ecdeee9934c301 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 9 Oct 2012 14:26:24 +0000
Subject: [PATCH] fix AV if close button not set in TRxMDIanel

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2547 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxmdi.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/rx/rxmdi.pas b/components/rx/rxmdi.pas
index fbab20eb7..34c08b0b0 100644
--- a/components/rx/rxmdi.pas
+++ b/components/rx/rxmdi.pas
@@ -37,7 +37,7 @@ type
     FNavForm: TForm;
     FNavPanel:TRxMDITasks;
     FSaveClose:TCloseEvent;
-    procedure SeTRxMDIForm(AValue: TForm);
+    procedure SetRxMDIForm(AValue: TForm);
     procedure DoCreateMenuItems;
 
     procedure DoCloseMenu(Sender: TObject);
@@ -539,7 +539,7 @@ end;
 
 { TRxMDIButton }
 
-procedure TRxMDIButton.SeTRxMDIForm(AValue: TForm);
+procedure TRxMDIButton.SetRxMDIForm(AValue: TForm);
 var
   FImageIndex:integer;
   B:TBitmap;
@@ -553,8 +553,8 @@ begin
     Caption:=' '+FNavForm.Caption+' ';
     DoCreateButtonImage;
 
-
-    FNavPanel.FMainPanel.CurrentChildWindow:=NavForm;
+    if Assigned(FNavPanel) then
+      FNavPanel.FMainPanel.CurrentChildWindow:=NavForm;
   end;
 
 {  if NavForm is TfbmDBObjectEditorForm then