From 2b755d51cffba516bd1cb25433e222f436235f61 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jun 2007 19:51:36 +0000
Subject: [PATCH] * Fived cursor when using the panning window

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@183 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview-unstable/VirtualTrees.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 08746142c..196725e9d 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -10624,6 +10624,12 @@ begin
         if FStates <> [] then
         begin
           ReleaseCapture;
+          //lcl
+          if hsTracking in FStates then
+          begin
+            if not InHeader(SmallPointToPoint(TLMLButtonUp(Message).Pos)) then
+              TreeView.Cursor := crDefault;
+          end;
           if hsDragging in FStates then
           begin
             // successfull dragging moves columns
@@ -17281,7 +17287,7 @@ begin
   end;
   
   // Now load the cursor and apply it.
-  Cursor := NewCursor;
+  LCLIntf.SetCursor(Screen.Cursors[NewCursor]);
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -23119,6 +23125,7 @@ begin
   // Setup the panscroll timer and capture all mouse input.
   SetFocus;
   SetCapture(Handle);
+  AdjustPanningCursor(Position.X, Position.Y);
   SetTimer(Handle, ScrollTimer, 20, nil);
 end;