[Lazarus] Application.OnShowHint problem

Frank Poretzky poretzky at nym.mixmin.net
Sun Mar 30 23:26:10 CEST 2014


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




More information about the Lazarus mailing list