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

TCustomCheckBoxThemed.PaintSelf: fix calculating the y pos, if there is no caption.

Browse Source 
git-svn-id: trunk@59664 -
This commit is contained in:
martin 2018-11-26 11:18:12 +00:00
parent a625b39fbf
commit 743dfad3a9
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

@ -387,7 +387,7 @@ begin
aCheckBoxPoint.X := ARect.Left aCheckBoxPoint.X := ARect.Left
else else
aCheckBoxPoint.X := ARect.Right - CheckBoxSize.cx; aCheckBoxPoint.X := ARect.Right - CheckBoxSize.cx;
aCheckBoxPoint.Y := (ARect.Bottom - CheckBoxSize.cy) div 2; aCheckBoxPoint.Y := ARect.Top + (ARect.Bottom - ARect.Top - CheckBoxSize.cy) div 2;
end; end;
{ Paint Caption } { Paint Caption }
if ACaption <> '' then begin if ACaption <> '' then begin