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

LCL: comments

Browse Source 
git-svn-id: trunk@46474 -
This commit is contained in:
mattias 2014-10-07 23:55:26 +00:00
parent dee1762ec7
commit dd86099d37
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/controls.pp
View File

@ -1651,7 +1651,7 @@ type
{ Defines how child controls are resized/aligned. { Defines how child controls are resized/aligned.
cesAnchorAligning, cssAnchorAligning crsAnchorAligning
Anchors and Align work like Delphi. For example if Anchors property of Anchors and Align work like Delphi. For example if Anchors property of
the control is [akLeft], it means fixed distance between left border of the control is [akLeft], it means fixed distance between left border of
parent's client area. [akRight] means fixed distance between right parent's client area. [akRight] means fixed distance between right
@ -1677,7 +1677,7 @@ type
Order: First all alTop children are resized, then alBottom, then alLeft, Order: First all alTop children are resized, then alBottom, then alLeft,
then alRight and finally alClient. then alRight and finally alClient.
cesScaleChilds, cssScaleChilds crsScaleChilds
Scale children, keep space between them fixed. Scale children, keep space between them fixed.
Children are resized to their normal/adviced size. If there is some space Children are resized to their normal/adviced size. If there is some space
left in the client area of the parent, then the children are scaled to left in the client area of the parent, then the children are scaled to
@ -1691,7 +1691,7 @@ type
(15+45=60 and 30 pixel space left) will be scaled by 1.5 again, to a (15+45=60 and 30 pixel space left) will be scaled by 1.5 again, to a
final result of: A.Width=23, B.Width=30, C.Width=67 (23+30+67=120). final result of: A.Width=23, B.Width=30, C.Width=67 (23+30+67=120).
cesHomogenousChildGrowth, cssHomogenousChildDecrease crsHomogenousChildResize
Enlarge children equally. Enlarge children equally.
Children are resized to their normal/adviced size. If there is some space Children are resized to their normal/adviced size. If there is some space
left in the client area of the parent, then the remaining space is left in the client area of the parent, then the remaining space is
@ -1704,7 +1704,7 @@ type
(20+40=60 and 30 pixel space left) will get 30/2=15 additional, (20+40=60 and 30 pixel space left) will get 30/2=15 additional,
resulting in: A.Width=35, B.Width=30, C.Width=55 (35+30+55=120). resulting in: A.Width=35, B.Width=30, C.Width=55 (35+30+55=120).
cesHomogenousSpaceGrowth crsHomogenousSpaceResize
Enlarge space between children equally. Enlarge space between children equally.
Children are resized to their normal/adviced size. If there is some space Children are resized to their normal/adviced size. If there is some space
left in the client area of the parent, then the space between the children left in the client area of the parent, then the space between the children
@ -1713,13 +1713,21 @@ type
C.Width=30 (total=60). If the Parent's client area has a ClientWidth of C.Width=30 (total=60). If the Parent's client area has a ClientWidth of
120, then there will be 60/2=30 space between A and B and between 120, then there will be 60/2=30 space between A and B and between
B and C. B and C.
crsSameSize - not implemented yet
Set each child to the same size (maybe one pixel difference).
The client area is divided by the number of controls and each control
gets the same size. The remainder is distributed to the first children.
} }
TChildControlResizeStyle = ( TChildControlResizeStyle = (
crsAnchorAligning, // (like Delphi) crsAnchorAligning, // (like Delphi)
crsScaleChilds, // scale children, keep space between children fixed crsScaleChilds, // scale children equally, keep space between children fixed
crsHomogenousChildResize, // enlarge children equally (i.e. by the same amount of pixel) crsHomogenousChildResize, // enlarge children equally (i.e. by the same amount of pixel)
crsHomogenousSpaceResize // enlarge space between children equally crsHomogenousSpaceResize // enlarge space between children equally
{$IFDEF EnablecrsSameSize}
,crsSameSize // each child gets the same size (maybe one pixel difference)
{$ENDIF}
); );
TControlChildrenLayout = ( TControlChildrenLayout = (

6
lcl/include/wincontrol.inc
View File

@ -1621,9 +1621,9 @@ procedure TAutoSizeBox.SumLine(Orientation: TAutoSizeBoxOrientation;
// total orientated minimum is the sum of all minimums plus borders // total orientated minimum is the sum of all minimums plus borders
// total orientated maximum is the sum of all maximums plus borders // total orientated maximum is the sum of all maximums plus borders
// total orientated preferred is the sum of all preferred plus borders // total orientated preferred is the sum of all preferred plus borders
// total othogonal minimum is the maximum of all minimums // total orthogonal minimum is the maximum of all minimums
// total othogonal maximum is the minimum of all maximums // total orthogonal maximum is the minimum of all maximums
// total othogonal preferred is the maximum of all preferred // total orthogonal preferred is the maximum of all preferred
var var
i: Integer; i: Integer;
Orthogonal: TAutoSizeBoxOrientation; Orthogonal: TAutoSizeBoxOrientation;