pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spktoolbar: Fix hint not always showing when the toolbar has its own hint. Issue #39022, patch by michalgw.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-26 22:06:28 +00:00
parent 7d70f69112
commit 862deb52cc
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@ -650,6 +650,9 @@ procedure TSpkToolbar.CMHintShow(var Message: TLMessage);
var var
PanelIdx, ItemIdx: Integer; PanelIdx, ItemIdx: Integer;
begin begin
with TCMHintShow(Message).HintInfo^ do
if HintStr <> '' then
CursorRect := Rect(CursorPos.X, CursorPos.Y, CursorPos.X, CursorPos.Y);
inherited; inherited;
if TabIndex >= 0 then if TabIndex >= 0 then
begin begin