pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix AV if close button not set in TRxMDIanel

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2547 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-10-09 14:26:24 +00:00
parent 713d21e442
commit b4e4aef6e2
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/rxmdi.pas
View File

@@ -37,7 +37,7 @@ type
FNavForm: TForm; FNavForm: TForm;
FNavPanel:TRxMDITasks; FNavPanel:TRxMDITasks;
FSaveClose:TCloseEvent; FSaveClose:TCloseEvent;
procedure SeTRxMDIForm(AValue: TForm); procedure SetRxMDIForm(AValue: TForm);
procedure DoCreateMenuItems; procedure DoCreateMenuItems;
procedure DoCloseMenu(Sender: TObject); procedure DoCloseMenu(Sender: TObject);
@@ -539,7 +539,7 @@ end;
{ TRxMDIButton } { TRxMDIButton }
procedure TRxMDIButton.SeTRxMDIForm(AValue: TForm); procedure TRxMDIButton.SetRxMDIForm(AValue: TForm);
var var
FImageIndex:integer; FImageIndex:integer;
B:TBitmap; B:TBitmap;
@@ -553,8 +553,8 @@ begin
Caption:=' '+FNavForm.Caption+' '; Caption:=' '+FNavForm.Caption+' ';
DoCreateButtonImage; DoCreateButtonImage;
if Assigned(FNavPanel) then
FNavPanel.FMainPanel.CurrentChildWindow:=NavForm; FNavPanel.FMainPanel.CurrentChildWindow:=NavForm;
end; end;
{ if NavForm is TfbmDBObjectEditorForm then { if NavForm is TfbmDBObjectEditorForm then