From 52ffe2120d5a1ef7e918027c24518195f7d20f45 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 24 Apr 2020 10:54:09 +0000
Subject: [PATCH] lazVirtualTreeView Qt5: applied transform in alpha blend
 selection

git-svn-id: trunk@63054 -
---
 .../virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc   | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc b/components/virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc
index 4aa33392cf..5217195ea9 100644
--- a/components/virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc
+++ b/components/virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc
@@ -789,6 +789,8 @@ var
   AColor: QColorH;
   ADst: TQtDeviceContext absolute Destination;
   AFillColor: TQColor;
+  ATransform: QTransformH;
+  DX, DY: QReal;
   {$ENDIF}
 
   //BlendColor: TQColor;
@@ -872,10 +874,15 @@ begin
           {$IFDEF CPU64}
           if ADst <> nil then
           begin
+            ATransform := QPainter_transform(ADst.Widget);
+            DX := QTransform_dx(ATransform);
+            DY := QTransform_dy(ATransform);
+            ADst.translate(-DX, -DY);
             AColor := QColor_create((Bias and $000000FF), ((Bias shr 8) and $000000FF), ((Bias shr 16) and $000000FF), ConstantAlpha);
             QColor_convertTo(AColor, @AFillColor, QColorRgb);
             QPainter_fillRect(ADst.Widget, R.Left + Target.x, R.Top + Target.y,
               R.Right - R.Left, R.Bottom - R.Top, PQColor(@AFillColor));
+            ADst.translate(DX, DY);
             QColor_destroy(AColor);
           end;
           {$ELSE}