mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 03:36:08 +02:00
TCustomCheckBoxThemed.PaintSelf: fix calculating the y pos, if there is no caption.
git-svn-id: trunk@59664 -
This commit is contained in:
parent
a625b39fbf
commit
743dfad3a9
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user