From 743dfad3a9d3166efcb7f226b60a57ff3e004329 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 26 Nov 2018 11:18:12 +0000
Subject: [PATCH] TCustomCheckBoxThemed.PaintSelf: fix calculating the y pos,
 if there is no caption.

git-svn-id: trunk@59664 -
---
 components/lazcontrols/checkboxthemed.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/lazcontrols/checkboxthemed.pas b/components/lazcontrols/checkboxthemed.pas
index 265f4e1ecf..df0f6f6b2c 100644
--- a/components/lazcontrols/checkboxthemed.pas
+++ b/components/lazcontrols/checkboxthemed.pas
@@ -387,7 +387,7 @@ begin
       aCheckBoxPoint.X := ARect.Left
     else
       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;
   { Paint Caption }
   if ACaption <> '' then begin