Prechádzať zdrojové kódy

report sign online: display report, use ReportSize to replace PrintWidth&PrintHeight

MaiXinRong 8 rokov pred
rodič
commit
9c47e27bf4
1 zmenil súbory, kde vykonal 6 pridanie a 8 odobranie
  1. 6 8
      Forms/SignOnlineReportsFrm.pas

+ 6 - 8
Forms/SignOnlineReportsFrm.pas

@@ -271,11 +271,9 @@ procedure TSignOnlineReportsForm.LoadTemplateAndDisplay(ATemplate: TTemplateNode
     vPreviewImage.Parent := msbReportsPreview;
     vPreviewImage.Top := 0;
     vPreviewImage.Left := 0;
-    vPreviewImage.Height := PreviewComXML.PrintHeight;
-    vPreviewImage.Width := PreviewComXML.PrintWidth;
     FPreviewList.Add(vPreviewImage);
-    msbReportsPreview.HorzScrollBar.Range := PreviewComXML.PrintWidth;
-    msbReportsPreview.VertScrollBar.Range := PreviewComXML.PrintHeight;
+    msbReportsPreview.HorzScrollBar.Range := PreviewComXML.ReportSize.X;
+    msbReportsPreview.VertScrollBar.Range := PreviewComXML.ReportSize.Y;
 
     vPreviewImage.OnMouseMove := OnViewMouseMove;
     vPreviewImage.OnMouseDown := OnViewMouseDown;
@@ -943,10 +941,10 @@ procedure TSignOnlineReportsForm.PreviewPage(AImage: TImage;
 begin
   if Assigned(AImage) then
   begin
-    AImage.Height := PreviewComXML.PrintHeight ;
-    AImage.Picture.Bitmap.Height := PreviewComXML.PrintHeight;
-    AImage.Width := PreviewComXML.PrintWidth;
-    AImage.Picture.Bitmap.Width := PreviewComXML.PrintWidth;
+    AImage.Height := PreviewComXML.ReportSize.Y;
+    AImage.Picture.Bitmap.Height := PreviewComXML.ReportSize.Y;
+    AImage.Width := PreviewComXML.ReportSize.X;
+    AImage.Picture.Bitmap.Width := PreviewComXML.ReportSize.X;
     PreviewComXML.PrintPreviewCanvas(APageIndex, 0, AImage.Canvas, False);
   end;
 end;