From 862deb52cc04f8f0be2e2a39a8024011c0f30ba1 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 26 Mar 2022 22:06:28 +0000
Subject: [PATCH] spktoolbar: Fix hint not always showing when the toolbar has
 its own hint. Issue #39022, patch by michalgw.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/spktoolbar/SpkToolbar/SpkToolbar.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
index 6b8c25daf..c2b5b2f2d 100644
--- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas
+++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
@@ -650,6 +650,9 @@ procedure TSpkToolbar.CMHintShow(var Message: TLMessage);
 var
   PanelIdx, ItemIdx: Integer;
 begin
+  with TCMHintShow(Message).HintInfo^ do
+    if HintStr <> '' then
+      CursorRect := Rect(CursorPos.X, CursorPos.Y, CursorPos.X, CursorPos.Y);
   inherited;
   if TabIndex >= 0 then
   begin