Re: [Lazarus] Application.OnShowHint problem

2014-03-30 Thread Graeme Geldenhuys
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 + '

Re: [Lazarus] Application.OnShowHint problem

2014-03-30 Thread Frank Poretzky
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); |

Re: [Lazarus] Application.OnShowHint problem

2014-03-30 Thread Flávio Etrusco
On Sun, Mar 30, 2014 at 12:21 PM, Frank Poretzky poret...@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

Re: [Lazarus] Application.OnShowHint problem

2014-03-30 Thread Mattias Gaertner
On Sun, 30 Mar 2014 14:50:08 -0300 Flávio Etrusco flavio.etru...@gmail.com wrote: On Sun, Mar 30, 2014 at 12:21 PM, Frank Poretzky poret...@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

Re: [Lazarus] Application.OnShowHint problem

2014-03-30 Thread Frank Poretzky
Hi Flávio, on Sun, 30 Mar 2014 14:50:08 -0300, you wrote: 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 (i0) then begin if Assigned(FOnShowHint) then

[Lazarus] Application.OnShowHint problem

2014-03-29 Thread Frank Poretzky
Hi! A method | procedure TFormTest.DoAppOnShowHint( var HintStr: String; | var CanShow: Boolean; | var HintInfo: THintInfo); | begin | CanShow := true; | HintStr := HintStr + ' - Modified'; | end; assigned to