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

LCL: for Delphi compatibility: several alClient aligned controls now overlap fixing bug #10380

Browse Source 
git-svn-id: trunk@13250 -
This commit is contained in:
mattias 2007-12-09 11:44:06 +00:00
parent 342ab1d019
commit aa1a4453b2
1 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/include/wincontrol.inc
View File

@ -2700,24 +2700,12 @@ var
end;
alClient:
begin
// VCL is tricking here.
// For alClients with Constraints do the same as for alLeft/alTop
//debugln('TWinControl.AlignControls.DoPosition A Self=',Name,' Control=',DbgSName(Control),' ',dbgs(NewLeft),' ',dbgs(NewWidth));
if (RemainingClientRect.Right-RemainingClientRect.Left-NewWidth)
> (RemainingClientRect.Bottom-RemainingClientRect.Top-NewHeight)
then begin
// use alLeft strategy
RemainingClientRect.Left:=Min(NewLeft+NewWidth,RemainingClientRect.Right);
RemainingBorderSpace.Left:=0;
AdjustBorderSpace(RemainingClientRect,RemainingBorderSpace,
Max(ChildSizing.HorizontalSpacing,ChildAroundSpace.Right),0,0,0);
end else begin
// use alTop strategy
RemainingClientRect.Top:=Min(NewTop+NewHeight,RemainingClientRect.Bottom);
RemainingBorderSpace.Top:=0;
AdjustBorderSpace(RemainingClientRect,RemainingBorderSpace,
0,Max(ChildSizing.VerticalSpacing,ChildAroundSpace.Bottom),0,0);
end;
// For VCL compatibility alClient should *not* reduce the free space,
// so that several alClient controls can overlap. This can be used
// for example to simulate a Tabbed control.
// This produces more overhead than using Visible, but
// some Delphi programs use it nevertheless.
// See bug 10380.
end;
end;