anchor.diff:  
     Bv_PreviewPage := CreateBevel(self, 0, 0, 50, 50, bsBox, bsRaised);
     Bv_PreviewPage.BackgroundColor := clWhite;
  +  Bv_PreviewPage.OnMouseScroll := @FormMouseScroll;
   
     Bv_Command     := CreateBevel(Self, 0, 0, Width, 50, bsBox, bsRaised);
     Bv_Command.Align := alTop;
  
positive.code:   MinWidth := 640;
    OnShow   := @FormShow;
    OnResize := @FormResize;
  
    FPreviewMargin := 10;
  
  
negative.code:   U_Report;
  
  type
  
    TF_Visu = class(TfpgForm)
    private
      FReport: T_Report;
  