paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +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; 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.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; FHintRect := HintInfo.CursorRect;
// start hide timer // start hide timer
if HintInfo.ReshowTimeout>0 then if HintInfo.ReshowTimeout>0 then