On Sun, 30 Mar 2014 14:50:08 -0300 Flávio Etrusco <[email protected]> wrote:
> On Sun, Mar 30, 2014 at 12:21 PM, Frank Poretzky > <[email protected]> wrote: > > Hi Graeme, > > > > on Sun, 30 Mar 2014 10:09:31 +0100, you wrote: > > > >>On 2014-03-30 04:45, Frank Poretzky wrote: > >>> > >>> | procedure TFormTest.DoAppOnShowHint( var HintStr: String; > >>> | var CanShow: Boolean; > >>> | var HintInfo: THintInfo); > >>> | begin > >>> | CanShow := true; > >>> | HintStr := HintStr + ' - Modified'; > >>> | end; > >> > >> > >>Does the DoAppOnShowHint() actually execute? If you set a breakpoint in > >>that method, does it get triggered? > > > > No, it doesn't, which exactly is my problem. > > > > Frank > > > > 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); > (...) Thanks for the hint. Fixed. Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
