paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:30:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

use '.Dock' instead of 'Parent :=' then BorderStyle will be preserved

Browse Source 
git-svn-id: trunk@14064 -
This commit is contained in:
paul 2008-02-10 09:21:22 +00:00
parent 3ab568e9ad
commit fa24c54a9c
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/ldocktree.pas
View File

@ -1875,13 +1875,13 @@ begin
ParentDisabledAlign:=true;
NewParent.BoundsRect:=DropCtl.BoundsRect;
// move the WindowState to the new parent
if DropCtl is TCustomForm then begin
if DropCtl is TCustomForm then
begin
NewParent.WindowState:=TCustomForm(DropCtl).WindowState;
TCustomForm(DropCtl).WindowState:=wsNormal;
TCustomForm(DropCtl).BorderStyle:=bsNone;
end;
// first move DropCtl to the invsible parent, so changes do not cause flicker
DropCtl.Parent:=NewParent;
DropCtl.Dock(NewParent, Rect(0, 0, 0, 0));
// init anchors of DropCtl
DropCtl.Align:=alNone;
DropCtl.AnchorClient(0);
@ -2023,7 +2023,7 @@ begin
DropCtlPage:=DockPages.Page[0];
DropCtlPage.DisableAlign;
try
DropCtl.Parent:=DropCtlPage;
DropCtl.Dock(DropCtlPage, Rect(0,0,0,0));
DropCtl.AnchorClient(0);
finally
DropCtlPage.EnableAlign;
@ -2039,10 +2039,7 @@ begin
NewPage.DisableAlign;
try
if DropCtl is TCustomForm then
begin
TCustomForm(DropCtl).WindowState:=wsNormal;
TCustomForm(DropCtl).BorderStyle:=bsNone;
end;
Control.Dock(NewPage, Rect(0, 0, 0, 0));
Control.AnchorClient(0);
finally