[lazarus] "Hints"

[Jarto Tarpio]

Luis R. Hilario wrote:
> The "Hints" not they appear, but now with only passing the mouse
> (quickly or slowly) by the components Lazarus does not work. 

That's because the previous fix only prevented the viewing of hints. 
However, the problem is in disabling and enabling the hinttimer in 
MouseMove. Here's a patch that fixes the HintTimer in main.pp too. 
Also add the patch I posted last friday and you shouldn't have any 
problems with the hints any more.

/jarto

cvs -z3 diff main.pp
Index: main.pp
=================================================
==================
RCS file: /FPC/CVS/projects/lazarus/main.pp,v
retrieving revision 1.187
diff -r1.187 main.pp
160c160
<
---
>
283a284
>     FHintCounter1: Integer;
825c826
<
---
>   HintTimer1.Enabled:=true;
5208c5209,5210
<   HintTimer1.Enabled := False;
---
>   if FHintCounter1<3 then inc(FHintCounter1);
>   if FHintCounter1<>2 then exit;
5258c5260
<   HintTimer1.Enabled := False;
---
>   FHintCounter1:=3;
5266c5268
<   HintTimer1.Enabled := False;
---
>   FHintCounter1:=3;
5277,5278c5279,5282
<   HintTimer1.Enabled := False;
<   HintTimer1.Enabled := not ((ssLeft in Shift) or (ssRight in Shift) 
or (ssMiddle in Shift));
---
>
>   if ((ssLeft in Shift) or (ssRight in Shift) or (ssMiddle in Shift)) then
>     FHintCounter1:=3 else FHintCounter1:=0;