|
@@ -1504,6 +1504,9 @@ begin
|
|
|
APrintCom.FillZero := chkFillZero.Checked;
|
|
APrintCom.FillZero := chkFillZero.Checked;
|
|
|
InitPageSettings(APrintCom);
|
|
InitPageSettings(APrintCom);
|
|
|
APrintCom.ReadDBData;
|
|
APrintCom.ReadDBData;
|
|
|
|
|
+ //设置好字体，否则Canvas的默认字体在计算自动行高的时候会出现偏差
|
|
|
|
|
+ PreviewBox.Canvas.Font.Name := ReportConfig.ContentFont.Name;
|
|
|
|
|
+ PreviewBox.Canvas.Font.Size := ReportConfig.ContentFont.Size;
|
|
|
APrintCom.AnalyseData(PreviewBox.Canvas);
|
|
APrintCom.AnalyseData(PreviewBox.Canvas);
|
|
|
finally
|
|
finally
|
|
|
if Mem <> nil then
|
|
if Mem <> nil then
|
