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

fix initial state MDICloseButton after create main form

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2546 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-10-09 11:40:08 +00:00
parent 33c7722b0e
commit 713d21e442
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/rxmdi.pas
View File

@ -116,6 +116,7 @@ type
procedure SetTaskPanel(AValue: TRxMDITasks); procedure SetTaskPanel(AValue: TRxMDITasks);
protected protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Loaded; override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
procedure ShowWindow(F:TForm); procedure ShowWindow(F:TForm);
@ -278,6 +279,12 @@ begin
FTaskPanel:=nil; FTaskPanel:=nil;
end; end;
procedure TRxMDIPanel.Loaded;
begin
inherited Loaded;
CurrentChildWindow:=nil;
end;
constructor TRxMDIPanel.Create(TheOwner: TComponent); constructor TRxMDIPanel.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);