在 cxgrid 里的 cxgridpopopmenu 里加入导出功能。

因为使用这个工具很方便，但这个菜单里没有导出选项，觉得是一。。。
于是，加上之。

在cxGridHeaderPopupMenuItems.pas中。第199行开始，加入如下内容，定义菜单项

 1

在 procedure TcxGridHeaderPopupMenuOperations.AddItems; 过程中，加入新的菜单项

procedure TcxGridHeaderPopupMenuOperations.AddItems;
begin
  AddItem(TcxGridSortColumnAsc);
   .
  AddItem(TcxGridBestFitAllColumns).BeginGroup := True;
  AddItem(TcxGridExpandAllGroup).BeginGroup:=true;
  AddItem(TcxGridCollapseAllGroup);
  AddItem(TcxGridExport);
  AddItem(TcxGridPrint);
end;

 

接下来是实现:

end;

 

最后还要在cxGridPopupMenuConsts.pas中定义资源

 cxSGridExpandAllGroup = '展开全部分组';
  cxSGridCollapseAllGroup = '收起所有分组';
  cxSGridExport = '导出所有数据';
  cxSGridPrint = '打印表格';

还有一点要声明一下，打印表格的代码没有实现，嘿嘿。