Ad:

Pascal and Delphi Discussion Thread
Unsolved
Views: 3127

Jun 20th, 2009

TStringGrid per-cell tooltips?

Expand Post »

Hi All,

I'm using a TStringGrid (has to be Delphi 7, and no 3rd party components) I've customised it to allow per-cell colouring/fonts/borders/validation etc, by using a custom onDrawCell method.

I really would like to add per-cell tooltips too, but I've been unsuccessful so far. I've modified something I found:

delphi Syntax (Toggle Plain Text)
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  acol, arow: integer;
  P : TPoint;
  Re: TRect;
begin
  Re := StringGrid1.CellRect(acol, arow);
  P.X := Re.Bottom;
  P.Y := Re.Right;
  StringGrid1.Hint := getHint(acol, arow);
  Application.HintColor := clYellow;
  Application.ActivateHint(P);
end;
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  acol, arow: integer;
  P : TPoint;
  Re: TRect;
begin
  Re := StringGrid1.CellRect(acol, arow);
  P.X := Re.Bottom;
  P.Y := Re.Right;
  StringGrid1.Hint := getHint(acol, arow);
  Application.HintColor := clYellow;
  Application.ActivateHint(P);
end;

Which kind of works, but it tries to display the tooltip every px moved, making it very laggy, and it displays it without having to "pause" for a while, like you do with regular tooltips.

If anyone knows of an easier/proper way to implement this it would be much appreciated.

Thanks in advance.

Last edited by TomRandall; Jun 20th, 2009 at 8:06 am.

Similar Threads

How to make JTable cell not Editable in Java
Stringgrid cell color in Pascal and Delphi
Array cell contains the memory address of the next cell ???? in C
cell bil in C++
Cell - A NEW ERA IN COMPUTING BEGINS! in Motherboards, CPUs and RAM

TomRandall

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Nov 2008

Permalink

Jun 20th, 2009

Re: TStringGrid per-cell tooltips?

TomRandall,

A simple way is to use the OnHint event of the Application global variable. You can easily fulfil your tasks in an event handler. The effect is much better than MouseMove event.

A more general way is to build a separate thread to monitor mouse movement. You can manipulate everything in this way but it is more resource-consuming.

I think your advanced StringGrid is a very good idea. Wish you success.

mediastar

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Jun 2009

Permalink

Oct 5th, 2009

Re: TStringGrid per-cell tooltips?

Click to Expand / Collapse Quote originally posted by TomRandall ...

Hi All,

... but it tries to display the tooltip every px moved, making it very laggy, and it displays it without having to "pause" for a while, like you do with regular tooltips.

If anyone knows of an easier/proper way to implement this it would be much appreciated.

Thanks in advance.

delphi Syntax (Toggle Plain Text)
 
OldRow, OldCol : integer; // defined in TForm private
 
var
  P : TPoint;
  gc: TGridCoord;
begin
  gc := TStringGrid(Sender).MouseCoord(x, y) ;
  P.X := X;
  P.Y := Y;
  if  (gc.x <> OldCol) or (gc.y <> OldRow) then begin
   OldCol := gc.x;
   OldRow := gc.y;
   StringGrid1.Hint := 'Hint for '+inttostr(OldRow);
   Application.HintColor := clInfobk;
   Application.ActivateHint(P);
  end;
 
OldRow, OldCol : integer; // defined in TForm private

var
  P : TPoint;
  gc: TGridCoord;
begin
  gc := TStringGrid(Sender).MouseCoord(x, y) ;
  P.X := X;
  P.Y := Y;
  if  (gc.x <> OldCol) or (gc.y <> OldRow) then begin
   OldCol := gc.x;
   OldRow := gc.y;
   StringGrid1.Hint := 'Hint for '+inttostr(OldRow);
   Application.HintColor := clInfobk;
   Application.ActivateHint(P);
  end;

Thanks Tom, your coding solved my problem. Perhaps the above will get your tooltip off the caffeine jitters.

bob on whidbey

Reputation Points: 10

Solved Threads: 0

Light Poster