自动行高细节调整(Excel导出)

Forms/ReportsFrm.pas

@@ -778,6 +778,10 @@ begin
     begin
       if (DrawType = DRAW_TYPE_EXCEL_XML) or (DrawType = DRAW_TYPE_EXCEL) or (DrawType = DRAW_TYPE_EXCEL_OE) then
       begin
+        if (dataType <> DATA_TYPE_DOUBLE) and (dataType <> DATA_TYPE_FLOAT) then
+        begin
+          contentFontRec.FontName := ReportConfig.ContentFont.Name;
+        end;
         contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3);
       end else if (isPrinting) then
       begin