anchor.diff:      L_NumPageSect: TfpgLabel;
       L_FromPageSect: TfpgLabel;
       L_NbrPageSect: TfpgLabel;
  +    FPreviewMargin: integer;
       procedure FormShow(Sender: TObject);
       procedure Bt_CloseClick(Sender: TObject);
       procedure Bt_PrintClick(Sender: TObject);
  
positive.code:   public
      constructor Create(AOwner: TComponent; AImprime: T_Report); reintroduce;
      destructor Destroy; override;
    end;
  
  var
  
negative.code:   BackgroundColor := fpgColor(51,51,51); // black/brown or should be use clShadow2 for theming abilities??
    OnShow         := @FormShow;
  
    FPreviewMargin := 10;
  
    CreateReportImages;
  
    Bv_Command     := CreateBevel(Self, 0, 0, Width, 50, bsBox, bsRaised);
  