paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 15:10:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@51531 -
This commit is contained in:
bart 2016-02-06 15:20:28 +00:00
parent 20d48b24bd
commit ed047fbbd3
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; aCheckBoxPoint.Y := (ARect.Bottom + ARect.Top - CheckBoxSize.cy) div 2;
if ARightToLeft xor (AAlignment = taLeftJustify) then begin { Caption is on the Left } if ARightToLeft xor (AAlignment = taLeftJustify) then begin { Caption is on the Left }
aCheckBoxPoint.X := ARect.Right - CheckBoxSize.cx; 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 } end else begin { Caption is on the Right }
aCheckBoxPoint.X := ARect.Left; aCheckBoxPoint.X := ARect.Left;
aCaptionPoint.X := aCheckBoxPoint.X + cIndent + CheckBoxSize.cx; aCaptionPoint.X := aCheckBoxPoint.X + cIndent + CheckBoxSize.cx;