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

IDE: added flag to not compile IDE when just installing a package

Browse Source 
git-svn-id: trunk@12699 -
This commit is contained in:
mattias 2007-11-02 16:59:04 +00:00
parent f97864b493
commit cfaf975984
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/include/wincontrol.inc
View File

@ -2097,15 +2097,27 @@ procedure TWinControl.CreateControlAlignList(TheAlign: TAlign;
begin
Result := False;
case AAlign of
alTop: Result := Control1.Top < Control2.Top;
alLeft: Result := Control1.Left < Control2.Left;
alTop:
Result := (Control1.Top < Control2.Top)
or ((Control1.Top = Control2.Top)
and (Control1.FBaseBounds.Top<Control2.FBaseBounds.Top));
alLeft: Result := (Control1.Left < Control2.Left)
or ((Control1.Left = Control2.Left)
and (Control1.FBaseBounds.Left<Control2.FBaseBounds.Left));
// contrary to VCL, we use > for alBottom, alRight
// Maybe it is a bug in the VCL.
// This results in first control is put rightmost/bottommost
alBottom: Result := (Control1.Top + Control1.Height)
> (Control2.Top + Control2.Height);
alRight: Result := (Control1.Left + Control1.Width)
> (Control2.Left + Control2.Width);
alBottom: begin
Result :=
((Control1.Top + Control1.Height) > (Control2.Top + Control2.Height))
or (((Control1.Top + Control1.Height) = (Control2.Top + Control2.Height))
and (Control1.FBaseBounds.Bottom > Control2.FBaseBounds.Bottom));
DebugLn(['InsertBefore Control1=',DbgSName(Control1),' ',dbgs(Control1.BoundsRect),' Control2=',DbgSName(Control2),' ',dbgs(Control2.BoundsRect),' Result=',Result]);
end;
alRight: Result :=
((Control1.Left + Control1.Width) > (Control2.Left + Control2.Width))
or (((Control1.Left + Control1.Width) = (Control2.Left + Control2.Width))
and (Control1.FBaseBounds.Right > Control2.FBaseBounds.Right));
end;
end;