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

LCL: fixed calling TApplication.OnShowHint

Browse Source 
git-svn-id: trunk@44557 -
This commit is contained in:
mattias 2014-03-30 19:09:25 +00:00
parent 3dc25d4870
commit 7a5bfb6e30
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/application.inc
View File

@ -813,10 +813,10 @@ begin
or (not HintInfo.HintWindowClass.InheritsFrom(THintWindow)) then
HintInfo.HintWindowClass := HintWindowClass;
i:=FApplicationHandlers[ahtShowHint].Count;
if CanShow and (i>0) then begin
if CanShow then begin
if Assigned(FOnShowHint) then
FOnShowHint(HintInfo.HintStr, CanShow, HintInfo);
i:=FApplicationHandlers[ahtShowHint].Count;
while FApplicationHandlers[ahtShowHint].NextDownIndex(i) do
TShowHintEvent(FApplicationHandlers[ahtShowHint][i])(HintInfo.HintStr, CanShow, HintInfo);
end;