From d635a63cbb6dc579e8d693585e8f5a89cccfb610 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 25 Oct 2007 19:29:11 +0000
Subject: [PATCH] * Fixed compilation * Work around to scroll problem under Qt

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@281 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../virtualtreeview-unstable/VirtualTrees.pas     | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index a33d6d7a1..bfac7bb8e 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -113,7 +113,7 @@ interface
   {$warn UNSAFE_CODE off}
 {$endif COMPILER_7_UP}
 
-{$if defined (LCLGtk) or LCLGtk2}
+{$if defined (LCLGtk) or defined(LCLGtk2)}
 {$define Gtk}
 {$endif}
 
@@ -15001,10 +15001,17 @@ begin
     SB_THUMBTRACK:
       begin
         DoStateChange([tsThumbTracking]);
+        {$ifdef LCLQt}
+        if UseRightToLeftAlignment then
+          SetOffsetX(-Integer(FRangeX) + ClientWidth + Message.Pos)
+        else
+          SetOffsetX(-Message.Pos);
+        {$else}
         if UseRightToLeftAlignment then
           SetOffsetX(-Integer(FRangeX) + ClientWidth + GetRealScrollPosition)
         else
           SetOffsetX(-GetRealScrollPosition);
+        {$endif}
       end;
     SB_TOP:
       SetOffsetX(0);
@@ -16254,7 +16261,11 @@ begin
     SB_THUMBTRACK:
       begin
         DoStateChange([tsThumbTracking]);
+        {$ifdef LCLQt}
+        SetOffsetY(-Message.Pos);
+        {$else}
         SetOffsetY(-GetRealScrollPosition);
+        {$endif}
       end;
     SB_TOP:
       SetOffsetY(0);
@@ -26709,7 +26720,7 @@ begin
                   Height := 0;
                   Height := PaintInfo.Node.NodeHeight;
                   //Workaround to LCL bug 8626
-                  SetWindowOrgEx(Canvas.Handle, {$ifndef Windows}-{$endif}Window.Left, 0, nil);
+                  SetWindowOrgEx(Canvas.Handle, {$ifdef Gtk}-{$endif}Window.Left, 0, nil);
                   R.Bottom := PaintInfo.Node.NodeHeight;
                 end;
                 // Set the origin of the canvas' brush. This depends on the node heights.