Hello
You can use TColumnEh.ImageList to set ImageList for column and use OnGetCellParams to set ImageIndex
Use MemTableEh1.RecView.NodeExpanded property to check Expanded state.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGridEh1.Columns[0].ImageList := ImageList16;
DBGridEh1.Columns[0].OnGetCellParams := ColCellParams;
DBGridEh1.Columns[0].ShowImageAndText := True;
end;
procedure TForm1.ColCellParams(Sender: TObject; EditMode: Boolean;
Params: TColCellParamsEh);
begin
if (MemTableEh1.RecView.NodeExpanded) then
Params.ImageIndex := 1
else
Params.ImageIndex := 0;
end;