anchor.diff:    begin
       RepositionPage;
     end;
  +end;
  +
  +procedure TF_Visu.FormMouseScroll(Sender: TObject; AShift: TShiftState;
  +    AWheelDelta: Single; const AMousePos: TPoint);
  +begin
  +  if AWheelDelta < 0 then
  +    VScrollBar.LineUp
  +  else
  +    VScrollBar.LineDown;
   end;
   
   procedure TF_Visu.VScrollBarScrolled(Sender: TObject; position: integer);
  
positive.code:   MinWidth := 640;
    OnShow   := @FormShow;
    OnResize := @FormResize;
  
    FPreviewMargin := 10;
  
  
negative.code:   U_Report;
  
  type
  
    TF_Visu = class(TfpgForm)
    private
      FReport: T_Report;
  