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

Merged revision(s) 51531 #ed047fbbd3 from trunk:

Browse Source 
LazControls: Fix alignment of caption for TThemedCheckBox.Alignment = taLeftJustify. Issue #0029603.
........

git-svn-id: branches/fixes_1_6@51535 -
This commit is contained in:
maxim 2016-02-06 18:59:54 +00:00
parent 044d93423a
commit 47bcd03138
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/checkboxthemed.pas
View File

@ -366,7 +366,7 @@ begin
aCheckBoxPoint.Y := (ARect.Bottom + ARect.Top - CheckBoxSize.cy) div 2;
if ARightToLeft xor (AAlignment = taLeftJustify) then begin { Caption is on the Left }
aCheckBoxPoint.X := ARect.Right - CheckBoxSize.cx;
aCaptionPoint.X := aCheckBoxPoint.X - cIndent - aTextSize.cx;
aCaptionPoint.X := ARect.Left;
end else begin { Caption is on the Right }
aCheckBoxPoint.X := ARect.Left;
aCaptionPoint.X := aCheckBoxPoint.X + cIndent + CheckBoxSize.cx;