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

LCL: call DockManager.ResetBounds on every change bounds

Browse Source 
git-svn-id: trunk@24763 -
This commit is contained in:
mattias 2010-04-20 22:40:59 +00:00
parent e10e89337c
commit d55f679aeb
5 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/dockmanager/elasticsite/MakeSite.lpi
View File

@ -62,11 +62,7 @@
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/> <IncludeFiles Value="$(ProjOutDir)\"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
<LCLWidgetType Value="win32"/>
</SearchPaths> </SearchPaths>
<CodeGeneration>
<TargetOS Value="Win32"/>
</CodeGeneration>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>

2
examples/dockmanager/package/easydocksite.pas
View File

@ -1067,11 +1067,13 @@ procedure TEasyTree.ResetBounds(Force: Boolean);
var var
rNew: TRect; rNew: TRect;
begin begin
DebugLn(['TEasyTree.ResetBounds ']);
//drop site resized - never called in Lazarus??? //drop site resized - never called in Lazarus???
if (csLoading in FDockSite.ComponentState) then if (csLoading in FDockSite.ComponentState) then
exit; //not the right time to do anything exit; //not the right time to do anything
//how to determine old bounds? //how to determine old bounds?
rNew := FDockSite.ClientRect; rNew := FDockSite.ClientRect;
DebugLn(['TEasyTree.ResetBounds ',dbgs(rNew)]);
//try catch bad calls (Win32)????? //try catch bad calls (Win32)?????
if (rNew.Right <= 0) or (rNew.Bottom <= 0) then if (rNew.Right <= 0) or (rNew.Bottom <= 0) then
exit; exit;

2
examples/dockmanager/package/umakesite.pas
View File

@ -232,7 +232,7 @@ begin
AForm.EnableAlign; AForm.EnableAlign;
end; end;
//function TDockMaster.CreateDockable(const AName: string; site: TWinControl; //function TDockMaster.CreateDockable(const AName: string; site: TWinControl);
function TDockMaster.CreateDockable(const AName: string; function TDockMaster.CreateDockable(const AName: string;
fMultiInst, DisableUpdate: boolean; fWrap: boolean): TWinControl; fMultiInst, DisableUpdate: boolean; fWrap: boolean): TWinControl;
var var

1
lcl/controls.pp
View File

@ -1732,6 +1732,7 @@ type
function DoAlignChildControls(TheAlign: TAlign; AControl: TControl; function DoAlignChildControls(TheAlign: TAlign; AControl: TControl;
AControlList: TFPList; var ARect: TRect): Boolean; virtual; AControlList: TFPList; var ARect: TRect): Boolean; virtual;
procedure DoChildSizingChange(Sender: TObject); virtual; procedure DoChildSizingChange(Sender: TObject); virtual;
procedure DoOnChangeBounds; override;
{$IFDEF OldAutoSize} {$IFDEF OldAutoSize}
procedure ResizeDelayedAutoSizeChildren; virtual; procedure ResizeDelayedAutoSizeChildren; virtual;
{$ENDIF} {$ENDIF}

10
lcl/include/wincontrol.inc
View File

@ -3172,6 +3172,13 @@ begin
ReAlign; ReAlign;
end; end;
procedure TWinControl.DoOnChangeBounds;
begin
inherited DoOnChangeBounds;
if FUseDockManager and (DockManager<>nil) then
DockManager.ResetBounds(false);
end;
{$IFDEF OldAutoSize} {$IFDEF OldAutoSize}
procedure TWinControl.ResizeDelayedAutoSizeChildren; procedure TWinControl.ResizeDelayedAutoSizeChildren;
var var
@ -7777,8 +7784,7 @@ begin
' -> New=',Dbgs(Bounds(ALeft,ATop,AWidth,AHeight))]); ' -> New=',Dbgs(Bounds(ALeft,ATop,AWidth,AHeight))]);
{$ENDIF} {$ENDIF}
inherited SetBounds(ALeft, ATop, AWidth, AHeight); inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if FUseDockManager and (DockManager <> nil) then //DebugLn(['TWinControl.SetBounds ',DbgSName(Self),' FUseDockManager=',FUseDockManager,' ',DbgSName(DockManager)]);
DockManager.ResetBounds(False);
finally finally
{$IFDEF OldAutoSize} {$IFDEF OldAutoSize}
UnlockRealizeBounds; UnlockRealizeBounds;