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

lcl: formatting

Browse Source 
git-svn-id: trunk@20341 -
This commit is contained in:
paul 2009-06-02 07:10:23 +00:00
parent a6e8b29b90
commit f2d23f7036
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/control.inc
View File

@ -462,10 +462,9 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CalculateDockSizes;
begin
{ TODO -cdocking : also: if dragged (neither floating nor hosted) }
if Floating then
begin
// the control is floating. Save Width and Height for undocking
// if control is floating then save it size for further undocking
UndockHeight := Height;
UndockWidth := Width;
end
@ -474,16 +473,17 @@ begin
begin
// the control is docked into a HostSite. That means some of it bounds
// were maximized to fit into the HostSite.
if (DockOrientation=doHorizontal)
or (HostDockSite.Align in [alLeft,alRight]) then
if (DockOrientation = doHorizontal) or
(HostDockSite.Align in [alLeft,alRight]) then
// the control is aligned left/right, that means its width is not
// maximized. Save Width for docking.
LRDockWidth:=Width
else if (DockOrientation=doVertical)
or (HostDockSite.Align in [alTop,alBottom]) then
LRDockWidth := Width
else
if (DockOrientation = doVertical) or
(HostDockSite.Align in [alTop,alBottom]) then
// the control is aligned top/bottom, that means its height is not
// maximized. Save Height for docking.
TBDockHeight:=Height;
TBDockHeight := Height;
end;
end;