paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 11:06:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: allow to properly pass HintData to hint window, patch by Artem Izmaylov, issue #41194

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-10-18 22:43:54 +03:00
parent 962016f5b6
commit 32947827e5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -906,7 +906,7 @@ begin
FHintWindow.Color := HintInfo.HintColor; FHintWindow.Color := HintInfo.HintColor;
//DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]); //DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]);
FHintWindow.ActivateHint(HintWinRect, HintInfo.HintStr); FHintWindow.ActivateHintData(HintWinRect, HintInfo.HintStr, HintInfo.HintData);
FHintRect := HintInfo.CursorRect; FHintRect := HintInfo.CursorRect;
// start hide timer // start hide timer
if HintInfo.ReshowTimeout>0 then if HintInfo.ReshowTimeout>0 then