[SynEdit] Doesn't ReshowTimeout of THintInfo work?

[Pascal]

Hello,

i am at implementing OnShowHint for my Synedit class.
But HintInfo.ReshowTimeout does't seem to work. I always have to move the coursor out of the editor to show an other hint.

Or am i doing something wrong here?

Code: [Select]

procedure TEditorFile.ShowHint(Sender: TObject; HintInfo: PHintInfo);
var
  p: TPoint;
begin
  p := HintInfo^.CursorPos;
  p := fEditor.PixelsToLogicalPos(p);
  if (p.x > 0) and (p.y > 0) then
    HintInfo^.HintStr := Format('Cursor at x=%d y=%d', [p.x, p.y])
  else
    HintInfo^.HintStr := '';
  HintInfo^.ReshowTimeout := 500;
end;                                   


[Martin_fr]

Afaik SynEdit does not change any hint specific behaviour. This is all handled by parent classes. Of course it could be that it overrides a method involved into hints.

Does your code work with other controls? TPanel, TLabel?

[Pascal]

Also does not work an TPanel, same behavior!

[Martin_fr]

In that case, you can either:

1) discuss on the mail list to find out if it should. (if none of the conditions on (2) apply)

2) if either
- it is documented that it should
- you do not want to go to the mail list (might be closed if not intended)
- it is missing Delphi compatible (please point out the DOCUMENTATION on Delphi that says so)

go to the bugtracker and raise an issue

Please do not make this about SynEdit in the bugtracker. It is a generic issue. (If it is fixed for TPanel it will likely work for SynEdit, if not, then a 2nd issue needs to be raised then.)

[Basile B.]

Could you post (still in this topic )a link to the bug tracker issue once filled ? I'd like to track this particular issue. Thx.

[Pascal]

The information is found here:
http://docwiki.embarcadero.com/Libraries/XE7/en/Vcl.Controls.THintInfo
In earlier versions it is described as internal.
I will raise an issue in the bugtracker.

[Pascal]

bugtracker issue: http://bugs.freepascal.org/view.php?id=27496

[Basile B.]

Thanks. Actually i have the same issue, in a CustomSynEdit too, the hint is not reshown until either:
- mouse scroll
- click/mouse down in the editor
- mouse move out of an editor

I've given a brief try to found which event is internally called to reset the thing but without any success.

In Lazarus editor there is not the same problem because the authors have coded an independant hint system based on two TIdleTimer (IIRC).

[Pascal]

Yes, right, i had a look at the lazarus ide too as it works okay there!

[Pascal]

Basile B.,

there is a fix for this issue in Synedit. Have a look at this OnShowHint procedure:

Code: [Select]

procedure TEditorFile.ShowHint(Sender: TObject; HintInfo: PHintInfo);
var
  cp, tp, p1, p2: TPoint;
  r: TRect;
begin
  cp := HintInfo^.CursorPos;
  DebugLn(Format('~~~ ShowHint: cp.x=%d cp.y=%d', [cp.x, cp.y]));
  tp := fEditor.PixelsToLogicalPos(cp);
  if (tp.x > 0) and (tp.y > 0) then
    HintInfo^.HintStr := Format('Cursor at x=%d y=%d', [tp.x, tp.y])
  else
    HintInfo^.HintStr := '';
  p1 := fEditor.RowColumnToPixels(tp);
  DebugLn(Format('~~~ ShowHint: p1.x=%d p1.y=%d', [p1.x, p1.y]));
  tp.x := tp.x+1;
  tp.y := tp.y+1;
  p2 := fEditor.RowColumnToPixels(tp);
  DebugLn(Format('~~~ ShowHint: p2.x=%d p2.y=%d', [p2.x, p2.y]));
  r.Left := p1.x;
  r.Top := p1.y;
  r.Right := p2.x;
  r.Bottom := p2.y;
  HintInfo^.CursorRect := r;

  // TODO: ReshowTimeout funktioniert nicht
  // HintInfo^.ReshowTimeout := 500;
end;

I've set the HintInfo.CursorRect to the char the mouse is on. If the mouse leaves this are the hint is reshown again (this proc is called again for the new cursor position).

[Basile B.]

Right right right you're right.

By my side I've made this:

Code: [Select]

HintInfo.CursorRect.Left := fDoc.CaretXPix;
HintInfo.CursorRect.Top := fDoc.CaretYPix;

which is somehow similar to what you've shown in the previous post.
Thx.