|
@@ -760,11 +760,26 @@ begin
|
|
|
contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3);
|
|
|
end else if (isPrinting) then
|
|
|
begin
|
|
|
- contentFontRec.FontName := 'Arial Narrow';
|
|
|
- contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 7 div 6;
|
|
|
+ if (dataType = DATA_TYPE_DOUBLE) or (dataType = DATA_TYPE_FLOAT) then
|
|
|
+ begin
|
|
|
+ contentFontRec.FontName := 'Arial Narrow';
|
|
|
+ contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 7 div 6;
|
|
|
+ end else
|
|
|
+ begin
|
|
|
+ contentFontRec.FontName := ReportConfig.ContentFont.Name;
|
|
|
+ contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3);
|
|
|
+ end;
|
|
|
end else
|
|
|
begin
|
|
|
- contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 4 div 3;
|
|
|
+ if (dataType = DATA_TYPE_DOUBLE) or (dataType = DATA_TYPE_FLOAT) then
|
|
|
+ begin
|
|
|
+ contentFontRec.FontName := 'Arial Narrow';
|
|
|
+ contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 4 div 3;
|
|
|
+ end else
|
|
|
+ begin
|
|
|
+ contentFontRec.FontName := ReportConfig.ContentFont.Name;
|
|
|
+ contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3);
|
|
|
+ end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|