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

lcl: pass THintInfo.HintData to the ActivateHint on TApplication.ShowHintWindow (patch by Anton Kavalenka, issue #0014549)

Browse Source 
git-svn-id: trunk@21640 -
This commit is contained in:
paul 2009-09-09 22:55:57 +00:00
parent 49fffeed25
commit 78a3277b28
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

@ -794,7 +794,7 @@ begin
//DebugLn(['TApplication.ShowHintWindow FHintWindow.Color=',dbgs(FHintWindow.Color),' HintInfo.HintColor=',dbgs(HintInfo.HintColor)]);
//debugln('TApplication.ShowHintWindow B HintWinRect=',dbgs(HintWinRect),' HintStr="',DbgStr(HintInfo.HintStr),'"');
FHintWindow.ActivateHint(HintWinRect,HintInfo.HintStr);
FHintWindow.ActivateHintData(HintWinRect, HintInfo.HintStr, HintInfo.HintData);
FHintRect := HintInfo.CursorRect;
// start hide timer
StartHintTimer(HintInfo.HideTimeout,ahttHideHint);