Cellhint in TDrawgrid
lazarus / 31-LCL

----------------------------------------------------------------------
mangakissa · 2014-10-29 09:36

TStringGrid has the property OnGetCellHint to show a hintwindow with
is requested note. TDrawgrid doesn't have this property. I tried to
get a hint with a example on this page, but it hang up the application
and only can be killed by brute force.

Why doesn't TDrawgrid that property and how another way to show a hint
window?

----------------------------------------------------------------------
Ocye · 2014-10-29 18:08

You can use the OnShowHint-Event.

Code: [Select]<TDrawGrid>.OnShowHint:=@<TDrawGrid>.DoShowHint;

procedure <TDrawGrid>.DoShowHint(Sender: TObject; HintInfo:
PHintInfo);
var
  ax,ay: byte;
begin
  if MouseToCell(HintInfo^.CursorPos.X,HintInfo^.CursorPos.Y,ax,ay)
then
    HintInfo^.HintStr:='Hello World';
end;

----------------------------------------------------------------------
mangakissa · 2014-10-30 10:53

Thanks. I had to change the procedure a little bit, because
MouseTocell is a procedure and doesn't give a boolean back.

----------------------------------------------------------------------
Ocye · 2014-10-30 11:48

Yes, I just did copy/paste a procedure from my program where I
override MouseToCell(). But the idea was clear, I guess.