Hello
You can use TColumnEh.AdvDrawDataCell event to draw default and extra information on the cell.
Like this
Code:
procedure TForm1.DBGridEh1Columns0AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
var Params: TColCellParamsEh; var Processed: Boolean);
begin
DBGridEh1.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
if (MemTableEh1.RecView.NodeLevel > 1) then
begin
DBGridEh1.Canvas.Pen.Color := clRed;
DBGridEh1.Canvas.Polyline([Point(ARect.Left-1, ARect.Top), Point(ARect.Left-1, ARect.Bottom)]);
end;
Processed := True;
end;