From c3bce1ccfe300c0d4dbac8e22e0a1f88f7dc05cb Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 13 Sep 2016 11:01:23 +0000
Subject: [PATCH] LCL: Fix mousecursor in THeaderControl when leaving the
 boundaries. Issue #30178, patch from Stefan Kopf.

git-svn-id: trunk@52960 -
---
 lcl/include/headercontrol.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/headercontrol.inc b/lcl/include/headercontrol.inc
index ec00326e4b..92cdacc774 100644
--- a/lcl/include/headercontrol.inc
+++ b/lcl/include/headercontrol.inc
@@ -200,6 +200,8 @@ begin
   begin
     FMouseInControl := False;
     FDown := False;
+    if not FTracking then
+      Cursor := FSavedCursor;
     UpdateState;
   end;
 end;