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:     end;
  end;
  
  procedure TF_Visu.SetPreviewMargin(AValue: integer);
  begin
    if FPreviewMargin = AValue then
      Exit;
    FPreviewMargin := AValue;
  end;
  
  procedure TF_Visu.E_NumPageKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: Boolean);
  var
    CptSect, CptPage, CptPageSect: integer;
  