Hello
I only see a modification of the grid code here.
Code:
procedure TCustomDBGridEh.CMHintShow(var Message: TCMHintShow);
....
else if (FullFooterRowCount > 0) and
(Cell.Y > RowCount - 1) then
....
begin
Footer := Column.ColumnUsedFooter(Cell.Y - RowCount - DataGrouping.Footers.VisibleItemsCount);
//New code
if Column.DynProps.FindDynVar('FooterHint') <> nil then
begin
phi := Message.HintInfo;
phi.CursorRect := ARect;
phi.HintStr := Column.DynProps['FooterHint'].AsString;
Processed := True;
end;
//\\New code
if not Footer.ToolTips then Exit;
FHintFont.Assign(Footer.Font);
Canvas.Font.Assign(FHintFont);
WordWrap := Footer.WordWrap;
AAlignment := Footer.Alignment;
S := GetFooterValue(Footer, Column);
FBackground := Footer.Color;
GetFooterParams(RawToDataColumn(Cell.X), Cell.Y - RowCount, Column,
Canvas.Font, FBackground, AAlignment, [], S);
end;
The hint text is stored in the Column.DynProps with FooterHint name.
So you need to create DynProp line this:
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGridEh1.Columns[0].DynProps.CreateDynVar('FooterHint', 'Footer Hint');
end;