Объединение ячеек в DBgridEh (Ehlib)

[firephenix]

Как объединить несколько горизонтальных ячеек в одну большую?

[firephenix]

Пожалуйста очень надо.

[Alex2391]

А что по этому поводу гугл думает?

[Alex2391]

А думает он, что можно посмотреть здесь
http://citforum.univ.kiev.ua/programming/delphi/nogrid/
http://www.delphimaster.ru/articles/...rid/index.html
Может что-нибудь и поможет. Желаю удачи!

[Аватар]

Ячейки в DBgridEh пожалуй слабо объединить, а вот заголовки можно используя в Column.Title.Caption='Продукт|код' и рядышком в соседней колонке 'Продукт|наименование'. И какое-то свойство грида в True установить (не помню названия)
PS посмотри еще http://programmersforum.ru/showthread.php?t=141506

[firephenix]

Спасибо!!!!!!!!!!!!

[Nightmareterrible]

Мне понадобилось объединить 2 первых ячейки по горизонтали, и оказывается, что статей по этому поводу в интернете не особо-то и найдёшь.
Вот результат моих наработок, если кому-то надо, используйте:

Мне нужно было в onDrawFooterCell, но можно везде поменять на ColumnCell - будет работать.

procedure DBGridEh1DrawFooterCell(Sender: TObject;
  DataCol, Row: Integer; Column: TColumnEh; Rect: TRect; State: TGridDrawState);
begin
  if Row = 1 then // нумерация с 0
  begin
    DBGridEh1.Canvas.Brush.Color := clSilver;
    if Column.Index = 1 then
    begin
      // Отключение отрисовки не сработает, т.к. в DBGridEh.pas FonDrawFooterCell вызывается
      // уже после прорисовки ячейки методом по умолчанию.
      // НО: можно рисовать ячейку 1 после отрисовки ячейки 2
      Rect.Left := Rect.Left - DBGridEh1.Columns[0].Width;
      DBGridEh1.Canvas.FillRect(Rect);
      DBGridEh1.Canvas.TextOut(Rect.Left, Rect.Top + 2, DBGridEh1.GetFooterValue(Row,
          DBGridEh1.Columns[0]));
    end
    else
      DBGridEh1.DefaultDrawFooterCell(Rect, DataCol, Row, Column, State);
  end
  else
  begin
    Column.Footer.ValueType := fvtSum;
    inherited;
  end;
end;