From ca343fe6d1a9a5154c8e68fee761be6041ac5d97 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 12 Oct 2016 12:53:34 +0000
Subject: [PATCH] LCL-GTK2: Change the mouse cursor when moving over controls.
 Issue #30728.

git-svn-id: trunk@53101 -
---
 lcl/interfaces/gtk2/gtk2wscontrols.pp | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2wscontrols.pp b/lcl/interfaces/gtk2/gtk2wscontrols.pp
index 5618b537ce..7ea370bf5b 100644
--- a/lcl/interfaces/gtk2/gtk2wscontrols.pp
+++ b/lcl/interfaces/gtk2/gtk2wscontrols.pp
@@ -784,19 +784,14 @@ end;
 class procedure TGtk2WSWinControl.SetCursor(const AWinControl: TWinControl; const ACursor: HCursor);
 var
   WidgetInfo: PWidgetInfo;
-  NewCursor: HCURSOR;
 begin
   if not WSCheckHandleAllocated(AWinControl, 'SetCursor')
   then Exit;
 
-  if ACursor <> Screen.Cursors[crDefault] then
-    NewCursor := ACursor
-  else
-    NewCursor := 0;
   WidgetInfo := GetWidgetInfo({%H-}Pointer(AWinControl.Handle));
-  if WidgetInfo^.ControlCursor <> NewCursor then
+  if WidgetInfo^.ControlCursor <> ACursor then
   begin
-    WidgetInfo^.ControlCursor := NewCursor;
+    WidgetInfo^.ControlCursor := ACursor;
     TGtkPrivateWidgetClass(AWinControl.WidgetSetClass.WSPrivate).UpdateCursor(WidgetInfo);
   end;
 end;