[Lazarus] Hint at statusbar.

[Mattias Gaertner]

On Fri, 31 Oct 2008 15:10:08 +0100
Luca Olivetti <luca at wetron.es> wrote:

> En/na Henrique Faria ha escrit:
> > It can't be done, because AppHint have to be private. And when i
> > declare it public returns an error "raised exception class
> > 'External: SIGSEGV' "
> 
> It's a bug in application.inc:
> 
> procedure TApplication.SetHint(const AValue: string);
> begin
>    if FHint = AValue then
>      Exit;
>    FHint := AValue;
>    if Assigned(FOnHint) or (FApplicationHandlers[ahtHint].Count > 0)
> then begin
>      FOnHint(Self);
>      FApplicationHandlers[ahtHint].CallNotifyEvents(Self);
> 
> 
> 
> If you use TApplicationProperties.OnHint, FOnHint is *not* set, but
> the above code would try to execute it nevertheless, hence the
> SIGSEGV.

Thanks for the hint. Fixed in 17166.

Mattias