Изображение и кнопки для каждой строки таблицы БД

[Sasha_S]

Всем привет.
Помогите, пожалуйста, реализовать в Delphi 2007 следующую конструкцию. В базе данных хранятся изображения. Нужно для каждой строки таблицы отображать изображение, сведения о нем и набор кнопок, запускающих его обработку. То есть, стандартный набор кнопок для каждой строки.
Из имеющихся компонентов ближе всего к тому, что хотелось бы получить, DBCtrlGrid. Но на DBCtrlGrid нельзя добавлять кнопки: "Control cannot be used in DBCtrlGrid". Начала разбираться с DBGridEh из EhLib, но пока не уверена, что это именно то, что нужно.
Подскажите, пожалуйста, как решить такую проблему. Допускаю, что думаю совсем не в том направлении

[Прик]

DBGridEh. Может многое. В колонку можно запихать сколько влезет кнопок (отображаются и действуют когда фокус ввода в ячейке колонки). Картинки в ячейках тоже можно отображать. Работает только с Dataset'ами (понятно, что через Datasource).

[Sasha_S]

Прик, спасибо за ответ. Кнопки в DBGridEh мне нравятся больше, чем то, что у меня в итоге получилось с DBCtrlGrid, но не устраивает то, что они

Сообщение от Прик

отображаются и действуют когда фокус ввода в ячейке колонки

Кнопки появляются, только когда запускается редактирование текущей ячейки - но мне не нужно, чтобы пользователь имел доступ к редактированию ячеек, к тому же для таблицы установлен dgRowSelect. Как я понимаю, это ограничение DBGridEh по-простому не обойти - или нет?

Кроме EhLib, нашлось еще два способа решения проблемы, именно по отрисовке кнопок на DBCtrlGrid (источник):

1. Чтобы разместить кнопку на DBCtrlGrid, нужно установить для ее свойства ControlStyle значение csReplicatable. Т.е. создается компонент-потомок TButton, единственное отличие которого - в значении этого свойства:

constructor TMyButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csReplicatable];
end;

Этот первый способ я и использовала.

2. На DBCtrlGrid успешно размещаются панели, поэтому можно смоделировать кнопку с помощью TPanel, назначив обработчик по клику и настроив отрисовку нажатия-отжатия мыши:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   (Sender as TPanel).BevelOuter := bvLowered;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   (Sender as TPanel).BevelOuter := bvRaised;
end;

При этом, возможно, придется потратить время на отладку поведения панели при незапланированных перемещениях мыши.

[Прик]

Как я понимаю, это ограничение DBGridEh по-простому не обойти - или нет?

Не обойти. dgRowSelect отключает возможность редактирования.

[Sasha_S]

Жаль. Тогда оставлю как есть, а EhLib буду иметь в виду. Спасибо! Тема закрыта.