Components for Delphi and C++ Builder.

    DBGrdEh1.RowHeight = 48

procedure TForm1.DBGrdEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  t: Integer;
  DrawRect: TRect;
  th: Integer;
begin

  with DBGrdEh1, DBGrdEh1.Canvas do
    if Pos('Заголовок', MemTblEh1.FieldByName('NAME_ID').AsString) <> 0 then
    begin
      DrawRect := Rect;

      Brush.Color := DBGrdEh1.Color;
      FillRect(DrawRect);

      DrawRect.Left := Rect.Left + 13;
      DrawRect.Top := Rect.Top + 13;
      DrawRect.Right := Rect.Right - 13;
      DrawRect.Bottom := Rect.Bottom - 13;

      if gdSelected in State then
      begin
        Brush.Color := clHighlight;
        FillRect(DrawRect);
      end;

      DrawRect.Left := DrawRect.Left + 2;
      DrawRect.Top := DrawRect.Top + 2;
      DrawRect.Right := DrawRect.Right - 2;
      DrawRect.Bottom := DrawRect.Bottom - 2;

      // Отрисовка заголовков...
      // прямоугольник
      t:= GridLineWidth + 15;
      Brush.Color:= ClRed;
      Font.Color:= clBlack;
      FillRect(DrawRect);
      th := TextHeight(Column.Field.Text);
      TextOut(DrawRect.Left + t, Round((DrawRect.Top + DrawRect.Bottom) / 2) - th div 2, Column.Field.Text);
      FrameRect(DrawRect);
      t:= GridLineWidth - 15;
//      // окантовка
//      Pen.Color:= clWhite;
//      Pen.Width:= GridLineWidth;
//      MoveTo(DrawRect.Left, DrawRect.Top);
//      LineTo(DrawRect.Right - t, DrawRect.Top);
//      LineTo(DrawRect.Right - t, DrawRect.Bottom - t);
//      LineTo(DrawRect.Left, DrawRect.Bottom - t);
//      LineTo(DrawRect.Left, DrawRect.Top);
    end;
end;