[Lazarus] Application.OnShowHint problem
Mattias Gaertner
nc-gaertnma at netcologne.de
Sun Mar 30 21:10:07 CEST 2014
On Sun, 30 Mar 2014 14:50:08 -0300
Flávio Etrusco <flavio.etrusco at gmail.com> wrote:
> On Sun, Mar 30, 2014 at 12:21 PM, Frank Poretzky
> <poretzky at nym.mixmin.net> 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
More information about the Lazarus
mailing list