cxgrid导出到Excel是“所见即所得”模式的,应用程序中显示的颜色在导出时也会被设置到Excel,但很多时候导出的Excel是期望不包含色彩信息的,所以必须在导出时将cxgrid的颜色设置清除。cxgrid表格各个部分的颜色可以通过在view的styles中设置,未设置styles时cxgrid会使用默认色(灰色)渲染bandheader,footer等部分。所以要清除颜色除了将定义了style的表格部分的style清空外,还得为bandheader,footer等使用了默认色的部分设置一个合适的style。
以下是范例代码:
//导出Excel
procedure TFrmBaseReport.SpbExcelClick(Sender: TObject);
begin
try
clearStyles;
exportCXGridToExcel;
finally
resetStyles
end;
end;
//清除样式
procedure TFrmBaseReport.clearStyles;
begin
cxView.Styles.BandHeader := stWhite;
cxView.Styles.Header := nil;
cxView.Styles.ContentOdd := nil;
cxView.Styles.ContentEven := nil;
cxView.Styles.Footer := stWhite;
end;
//重置样式
procedure TFrmBaseReport.resetStyles;
begin
cxView.Styles.BandHeader := stBandHeader;
cxView.Styles.Header := stHeader;
cxView.Styles.ContentOdd := stContentOdd;
cxView.Styles.ContentEven := stContentEven;
cxView.Styles.Footer := stFooter;
end;
//cxgrid数据导出到Excel
procedure TFrmBaseReport.exportCXGridToExcel(infoEmpty:boolean);
var
fileName : String;
begin
cxView.OptionsView.Header := false;
try
fileName := getTempFileName;
ExportGrid4ToExcel(fileName,cxGrid);
shellOpen(fileName+FILE_EXT_XLS);
finally
cxView.OptionsView.Header := true;
end;
end;
备注:stBandHeader,stHeader,stContentOdd,stContentEven,stFooter,stWhite是表格各个部分对应的配色方案,可以TcxCustomGridView.styles中设置,stWhite是白色背景黑色文字的配色方案。Dev官网上对这个问题给出的方案是通过应用两个样式表实现的(TcxCustomGridView.Styles.StyleSheet,一个保存应用程序中外观的配色,另外一个保存导出时的配色),与上述方法类似。