Hi!

A method

| procedure TFormTest.DoAppOnShowHint( var HintStr: String;
|                                      var CanShow: Boolean;
|                                      var HintInfo: THintInfo);
|   begin
|     CanShow := true;
|     HintStr := HintStr + ' - Modified';
|   end;

assigned to Application.OnShowHint is called neither with

| {$Mode ObjFPC}
| {$H+}
...
| procedure TFormTest.DoFormOnCreate( Sender: TObject); ...
| Application.OnShowHint := @DoAppOnShowHint;

nor with

| {$Mode Delphi}
| {$H+}
...
| procedure TFormTest.DoFormOnCreate( Sender: TObject); ...
| Application.OnShowHint := DoAppOnShowHint;

It's always the original Hint string of the respective control which shows up.

What may be wrong?

Lazarus 1.0.14 / FPC 2.6.2 / SVN Rev 43446 / i386-win32-win32/win64

Thanks

Frank

Does the DoAppOnShowHint() actually execute? If you set a breakpoint in that method, does it get triggered?

Regards,
- Graeme -

Hi Graeme,

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);
(...)

Regards,
Fl?vio

Thanks for the hint.

Fixed.

Mattias

Hi Fl?vio,

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