|
@@ -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;
|