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

6
components/rx/rxmdi.pas
View File

@ -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,7 +553,7 @@ begin
Caption:=' '+FNavForm.Caption+' ';
DoCreateButtonImage;
if Assigned(FNavPanel) then
FNavPanel.FMainPanel.CurrentChildWindow:=NavForm;
end;