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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2407 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
dopi
2012-04-25 00:18:19 +00:00
parent 05760e281c
commit 8a7eabb7e2
1 changed files with 7 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/tdi/tdiclass.pas
View File

@ -61,7 +61,6 @@ type
fsFormOldClientRect : TRect;
fsFormOldBorderStyle : TFormBorderStyle;
fsLastActiveControl: TWinControl;
fsFormCloseAction: TCloseAction;
procedure OnResizeTDIPage(Sender : TObject) ;
procedure OnFormClose(Sender: TObject; var CloseAction: TCloseAction);
@ -238,7 +237,6 @@ begin
Self.OnResize := @OnResizeTDIPage ;
fsLastActiveControl := nil ;
fsFormCloseAction := caNone;
end ;
procedure TTDIPage.RestoreLastFocusedControl ;
@ -345,10 +343,7 @@ begin
if Assigned( fsFormOldCloseEvent ) then
fsFormOldCloseEvent( Sender, CloseAction );
fsFormCloseAction := CloseAction;
if Assigned( fsFormInPage ) then
begin
if (CloseAction <> caFree) and Assigned( fsFormInPage ) then
RestoreFormProperties;
fsFormInPage := nil;
@ -356,7 +351,6 @@ begin
// This will force this page be killed by TTDINoteBook.Notification();
if Assigned( Parent ) then
Parent.RemoveComponent( Self );
end ;
end ;
procedure TTDIPage.SaveFormProperties ;
@ -377,14 +371,11 @@ procedure TTDIPage.RestoreFormProperties ;
begin
if not Assigned( fsFormInPage ) then exit ;
if (fsFormCloseAction = caFree) or // Form will be destroyed ?
([csDesigning, csDestroying] * fsFormInPage.ComponentState <> []) then
if ([csDesigning, csDestroying] * fsFormInPage.ComponentState <> []) then
exit ;
fsFormInPage.Visible := False; // This prevent OnFormShow be fired
fsFormInPage.Parent := fsFormOldParent;
fsFormInPage.Visible := False; // Setting new Parent for Visible = True ;
fsFormInPage.Align := fsFormOldAlign;
fsFormInPage.BorderStyle := fsFormOldBorderStyle;
fsFormInPage.Top := fsFormOldClientRect.Top;