paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 10:19: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; procedure TControl.CalculateDockSizes;
begin begin
{ TODO -cdocking : also: if dragged (neither floating nor hosted) }
if Floating then if Floating then
begin begin
// the control is floating. Save Width and Height for undocking // if control is floating then save it size for further undocking
UndockHeight := Height; UndockHeight := Height;
UndockWidth := Width; UndockWidth := Width;
end end
@ -474,16 +473,17 @@ begin
begin begin
// the control is docked into a HostSite. That means some of it bounds // the control is docked into a HostSite. That means some of it bounds
// were maximized to fit into the HostSite. // were maximized to fit into the HostSite.
if (DockOrientation=doHorizontal) if (DockOrientation = doHorizontal) or
or (HostDockSite.Align in [alLeft,alRight]) then (HostDockSite.Align in [alLeft,alRight]) then
// the control is aligned left/right, that means its width is not // the control is aligned left/right, that means its width is not
// maximized. Save Width for docking. // maximized. Save Width for docking.
LRDockWidth:=Width LRDockWidth := Width
else if (DockOrientation=doVertical) else
or (HostDockSite.Align in [alTop,alBottom]) then if (DockOrientation = doVertical) or
(HostDockSite.Align in [alTop,alBottom]) then
// the control is aligned top/bottom, that means its height is not // the control is aligned top/bottom, that means its height is not
// maximized. Save Height for docking. // maximized. Save Height for docking.
TBDockHeight:=Height; TBDockHeight := Height;
end; end;
end; end;