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

fixed changing BorderSpacing at designtime and borderspacing Align=alTop,alLeft

Browse Source 
git-svn-id: trunk@7283 -
This commit is contained in:
mattias 2005-06-25 15:30:33 +00:00
parent 7335ee16f1
commit f155c43b35
3 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -1994,7 +1994,8 @@ procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect;
// Left, Top, Right, Bottom: apply these borderspaces to CurBorderSpace
//
// CurBorderSpace will be set to the maximum of CurBorderSpace and Left, Top,
// Right, Bottom. RemainingClientRect will shrink.
// Right, Bottom.
// RemainingClientRect will shrink.
// RemainingClientRect will not shrink to negative size.
var
NewWidth: Integer;
@ -2912,6 +2913,9 @@ end.
{ =============================================================================
$Log$
Revision 1.301 2005/06/25 15:30:33 mattias
fixed changing BorderSpacing at designtime and borderspacing Align=alTop,alLeft
Revision 1.300 2005/06/25 14:17:57 mattias
added notification method CNPreferredSizeChanged

5
lcl/include/control.inc
View File

@ -913,7 +913,7 @@ end;
procedure TControl.DoBorderSpacingChange(Sender: TObject);
begin
AdjustSize;
RequestAlign;
end;
{------------------------------------------------------------------------------
@ -3541,6 +3541,9 @@ end;
{ =============================================================================
$Log$
Revision 1.261 2005/06/25 15:30:33 mattias
fixed changing BorderSpacing at designtime and borderspacing Align=alTop,alLeft
Revision 1.260 2005/06/25 14:17:57 mattias
added notification method CNPreferredSizeChanged

11
lcl/include/wincontrol.inc
View File

@ -80,6 +80,7 @@ procedure TWinControl.AlignControls(AControl: TControl;
var
AlignList: TList;
RemainingBorderSpace: TRect; // borderspace around RemainingClientRect
// e.g. Right=3 means borderspace of 3
function AlignWork: Boolean;
var
@ -126,7 +127,8 @@ var
MinHeight: Integer;
MaxHeight: Integer;
CurRemainingClientRect: TRect;
CurRemainingBorderSpace: TRect;
CurRemainingBorderSpace: TRect; // borderspace around RemainingClientRect
// e.g. Right=3 means borderspace of 3
ChildAroundSpace: TRect;
AnchorSideCacheValid: array[TAnchorKind] of boolean;
AnchorSideCache: array[TAnchorKind] of integer;
@ -384,7 +386,7 @@ var
NewRight:=NewLeft+ConstraintWidth(NewRight-NewLeft);
end else begin
// left align and right border free to move (-> keep width)
dec(NewRight,NewLeft-RemainingClientRect.Left);
dec(NewRight,NewLeft-CurRemainingClientRect.Left);
NewLeft:=CurRemainingClientRect.Left;
end;
end;
@ -395,7 +397,7 @@ var
NewBottom:=NewTop+ConstraintHeight(NewBottom-NewTop);
end else begin
// top align and bottom border is free to move (-> keep height)
dec(NewBottom,NewTop-RemainingClientRect.Top);
dec(NewBottom,NewTop-CurRemainingClientRect.Top);
NewTop:=CurRemainingClientRect.Top;
end;
end;
@ -4513,6 +4515,9 @@ end;
{ =============================================================================
$Log$
Revision 1.328 2005/06/25 15:30:33 mattias
fixed changing BorderSpacing at designtime and borderspacing Align=alTop,alLeft
Revision 1.327 2005/06/25 01:42:38 mattias
moved InvalidatePreferredSize from gtk intf to lcl