diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 67f307340e..29c0183645 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -3440,7 +3440,7 @@ var
     R := getClipRegion.getBoundingRect;
 
     TgtW := LocalRect.Right - LocalRect.Left;
-    TgtH := LocalRect.Right - LocalRect.Left;
+    TgtH := LocalRect.Bottom - LocalRect.Top;
     ClpW := R.Right - R.Left;
     ClpH := R.Bottom - R.Top;