From 10d948d4b2a19147c15e643f9a92339dd990f1ab Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 4 Jun 2011 07:03:48 +0000
Subject: [PATCH] LCL: Fix the cursor pointer for SpinEdit buttons and ListView
 column resize. Patch from August Klein, issues #16542 and #15083

git-svn-id: trunk@31038 -
---
 lcl/interfaces/gtk2/gtk2wscustomlistview.inc | 1 +
 lcl/interfaces/gtk2/gtk2wsspin.pp            | 1 +
 2 files changed, 2 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2wscustomlistview.inc b/lcl/interfaces/gtk2/gtk2wscustomlistview.inc
index da024079b3..d87cbcbb68 100644
--- a/lcl/interfaces/gtk2/gtk2wscustomlistview.inc
+++ b/lcl/interfaces/gtk2/gtk2wscustomlistview.inc
@@ -1442,6 +1442,7 @@ begin
     // already created in TGtkWSBaseScrollingWinControl
     // Replace the ScrollingInfo with our info
     WidgetInfo := GetWidgetInfo(ScrollWidget);
+    WidgetInfo^.DefaultCursor:=0;
     OrigScrollingData := WidgetInfo^.UserData;
     Widgets^.ScrollingData := OrigScrollingData^;
 
diff --git a/lcl/interfaces/gtk2/gtk2wsspin.pp b/lcl/interfaces/gtk2/gtk2wsspin.pp
index 84ee0716a2..c89baf3319 100644
--- a/lcl/interfaces/gtk2/gtk2wsspin.pp
+++ b/lcl/interfaces/gtk2/gtk2wsspin.pp
@@ -176,6 +176,7 @@ begin
   Result := TLCLIntfHandle(PtrUInt(Widget));
 
   WidgetInfo := CreateWidgetInfo(Widget, AWinControl, AParams);
+  WidgetInfo^.DefaultCursor:=0;
   Set_RC_Name(AWinControl, Widget);
   SetCallbacks(Widget, WidgetInfo);
 end;