paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 11:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

added Giuliano Colla to contributors

Browse Source 
git-svn-id: trunk@9253 -
This commit is contained in:
mattias 2006-05-08 10:32:45 +00:00
parent e9aefb922b
commit 6d45de5a54
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -24,6 +24,7 @@ Evgen A. Palamarchuck
Felipe Monteiro de Carvalho
Florian Koeberle
Francisco Manuel
Giuliano Colla
GongYu
Hans-Joachim Ott
Hwang Weng Sun

7
lcl/include/control.inc
View File

@ -2513,9 +2513,10 @@ begin
FAlign := Value;
// if anchors were on default then change them to new default
// This is done for Delphi compatibility.
if Anchors=AnchorAlign[OldAlign] then
Anchors:=AnchorAlign[FAlign];
RequestAlign;
if (Anchors=AnchorAlign[OldAlign]) and (Anchors<>AnchorAlign[FAlign]) then
Anchors:=AnchorAlign[FAlign]
else
RequestAlign;
end;
{------------------------------------------------------------------------------

5
lcl/include/wincontrol.inc
View File

@ -1507,9 +1507,12 @@ var
Result := False;
case AAlign of
alTop: Result := Control1.Top < Control2.Top;
alLeft: Result := Control1.Left < Control2.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);
alLeft: Result := Control1.Left < Control2.Left;
alRight: Result := (Control1.Left + Control1.Width)
> (Control2.Left + Control2.Width);
end;