BUG #1497 - 自动行高初始计算问题（Canvas字体初始化）

Forms/ReportsFrm.pas

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