Components for Delphi and C++ Builder.

        CellButtons = <
          item
            Images.NormalImages = ImageList1
            Style = ebsGlyphEh
            DrawBackTime = edbtNeverEh
            OnClick = DBGridEh1Columns2CellButtons0Click
            HorzPlacement = ebhpLeftEh
            Pressable = False
            OnDraw = DBGridEh1Columns2CellButtons0Draw
          end>

procedure TForm1.DBGridEh1Columns2CellButtons0Click(Sender: TObject;
  var Handled: Boolean);
begin
  if (MemTableEh1.FieldByName('Continent').AsString = 'South America') then
  begin
    MemTableEh1.Edit;
    MemTableEh1.FieldByName('Continent').AsString := 'North America';
    MemTableEh1.Post;
  end else
  begin
    MemTableEh1.Edit;
    MemTableEh1.FieldByName('Continent').AsString := 'South America';
    MemTableEh1.Post;
  end;
end;

procedure TForm1.DBGridEh1Columns2CellButtons0Draw(Grid: TCustomDBGridEh;
  Column: TColumnEh; CellButton: TDBGridCellButtonEh; Canvas: TCanvas; Cell,
  AreaCell: TGridCoord; const ARect: TRect;
  ButtonDrawParams: TCellButtonDrawParamsEh; var Handled: Boolean);
begin
  if (MemTableEh1.FieldByName('Continent').AsString = 'South America') then
    ButtonDrawParams.ImageIndex := 1
  else
    ButtonDrawParams.ImageIndex := 0;
end;

        Column.ImageList = ImageList1
        Column.ShowImageAndText = True
        Column.TextEditing = False
        Column.OnGetCellParams = DBGridEh1Columns1GetCellParams

//Событие Column.OnGetCellParams для указания номера картинки.
procedure TForm1.DBGridEh1Columns1GetCellParams(Sender: TObject;
  EditMode: Boolean; Params: TColCellParamsEh);
begin
  if (MemTableEh1.FieldByName('Continent').AsString = 'South America') then
    Params.ImageIndex := 1
  else
    Params.ImageIndex := 0;
end;

//Событие TDBGridEh.OnCellMouseClick для смены картинки при клике на ячейку
procedure TForm1.DBGridEh1CellMouseClick(Grid: TCustomGridEh; Cell: TGridCoord;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer;
  var Processed: Boolean);
begin
  if (Cell.X = 2) and (X < 16) and not (ssDouble in Shift) then
  begin
    if (MemTableEh1.FieldByName('Continent').AsString = 'South America') then
    begin
      MemTableEh1.Edit;
      MemTableEh1.FieldByName('Continent').AsString := 'North America';
      MemTableEh1.Post;
    end else
    begin
      MemTableEh1.Edit;
      MemTableEh1.FieldByName('Continent').AsString := 'South America';
      MemTableEh1.Post;
    end;
  end;
end;