[Lazarus] Hint at statusbar.

[Luca Olivetti]

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.

Bye
-- 
Luca Olivetti
Wetron Automatización S.A. http://www.wetron.es/
Tel. +34 93 5883004      Fax +34 93 5883007