[Lazarus] Application.OnShowHint problem

[Frank Poretzky]

Hi Flávio,

on Sun, 30 Mar 2014 14:50:08 -0300, you wrote:

>There's a bug in application.inc, line 816. OnShowHint only executes
>if there are hint handlers registered:
>
>(...)
>  i:=FApplicationHandlers[ahtShowHint].Count;
>  if CanShow and (i>0) then begin
>    if Assigned(FOnShowHint) then
>      FOnShowHint(HintInfo.HintStr, CanShow, HintInfo);
>(...)

I see. After changing it to

|   i:=FApplicationHandlers[ahtShowHint].Count;
|   if CanShow then begin
|     if Assigned(FOnShowHint) then
|       FOnShowHint(HintInfo.HintStr, CanShow, HintInfo);
|     if i>0 then
|       while FApplicationHandlers[ahtShowHint].NextDownIndex(i) do
|         TShowHintEvent(FApplicationHandlers[ahtShowHint][i])(HintInfo.HintStr, CanShow, HintInfo);
|   end;

I get the expected results.

Many thanks to you and Graeme. Great service!

Frank