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

LCL/TApplication: ShowHintWindow calls ActivateHint when HintInfo.HintData is nil, otherwise ActivateHintData.

Browse Source
This commit is contained in:
wp_xyz 2025-03-17 19:23:15 +01:00
parent 209c68264b
commit 6a6db7e851
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/application.inc
View File

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