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

LCL: fixed center anchoring

Browse Source 
git-svn-id: trunk@25516 -
This commit is contained in:
mattias 2010-05-19 15:14:22 +00:00
parent 75cd574d96
commit 5ebecf8cf5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -3587,7 +3587,7 @@ begin
if Kind in [akLeft,akRight] then begin if Kind in [akLeft,akRight] then begin
// center horizontally // center horizontally
if ReferenceControl=OwnerParent then if ReferenceControl=OwnerParent then
Position:=GetParentSidePos(akRight)-GetParentSidePos(akLeft) Position:=(GetParentSidePos(akRight)+GetParentSidePos(akLeft)) div 2
else else
Position:=ReferenceControl.Left+(ReferenceControl.Width div 2); Position:=ReferenceControl.Left+(ReferenceControl.Width div 2);
if Kind=akLeft then if Kind=akLeft then