anchor.diff:      NumSection      := Sections.Count;
       NumPageSection  := T_Section(Sections[Pred(Sections.Count)]).NbPages;
       E_NumPage.Text  := IntToStr(NumPage);
  -    Bv_Visu.Visible := False;
       with T_Section(Sections[Pred(NumSection)]), F_Visu do
       begin
         Bv_Visu.Height := Paper.H;
         Bv_Visu.Width  := Paper.W;
  -      Bv_Visu.Top    := 50 + (F_Visu.Height - 50 - Paper.H) div 2;
  -      Bv_Visu.Left   := (F_Visu.Width - Paper.W) div 2;
  -    end;
  -    Bv_Visu.Visible := True;
  +      RepositionPage;
  +      Bv_Visu.Invalidate;
  +    end;
       ChangeButtons;
       E_NumSect.Text     := IntToStr(NumSection);
       L_NumPageSect.Text := IntToStr(NumPageSection);
  
positive.code:   BackgroundColor := fpgColor(51,51,51); // black/brown or should be use clShadow2 for theming abilities??
    MinHeight := 350;
    MinWidth := 640;
    OnShow         := @FormShow;
    OnResize := @FormResize;
  
    FPreviewMargin := 10;
  
negative.code:     procedure E_NumSectKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: Boolean);
      procedure ChangeButtons;
      procedure SetPreviewMargin(AValue: integer);
      procedure RepositionPage;
    public
      constructor Create(AOwner: TComponent; AImprime: T_Report); reintroduce;
      destructor Destroy; override;
  