Report sign online: fill zero of sign report

Forms/SignOnlineReportsFrm.dfm

@@ -68,6 +68,7 @@ object SignOnlineReportsForm: TSignOnlineReportsForm
       Top = 4
       Width = 210
       Height = 44
+      Visible = False
       Layout = pbsImageLeft
       Spacing = 4
       ImageNormal.Data = {
@@ -545,6 +546,7 @@ object SignOnlineReportsForm: TSignOnlineReportsForm
       Anchors = [akTop, akRight]
       Caption = #23567#25968#34917'0'
       TabOrder = 0
+      OnClick = cbFillZeroClick
     end
     object pnlPageControl: TPanel
       Left = 1064

Forms/SignOnlineReportsFrm.pas

@@ -50,6 +50,7 @@ type
     procedure btnPreClick(Sender: TObject);
     procedure btnNextClick(Sender: TObject);
     procedure pbGenerateClick(Sender: TObject);
+    procedure cbFillZeroClick(Sender: TObject);
   private
     FWebProjectID: Integer;
     FWebTenderID: Integer;
@@ -270,6 +271,8 @@ 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;
@@ -1175,4 +1178,10 @@ begin
     Result := QuestRenameSignReport(AName, FSignPhase);
 end;
 
+procedure TSignOnlineReportsForm.cbFillZeroClick(Sender: TObject);
+begin
+  PreviewComXML.FillZero := cbFillZero.Checked;
+  PreviewPage(TImage(FPreviewList.Items[0]), FCurPage);
+end;
+
 end.