anchor.diff:  procedure TF_Demo.PrintCadres(Preview: Boolean);
   var
     FtTitle, FtText: integer;
  -  TsThin, TsNorm, TsThick: integer;
  +  {TsThin,} TsNorm, TsThick: integer;
     IlTitle, IlText: integer;
   begin
     with FReport do
  
positive.code:     // write page number and total of pages on each page
      NumPageFooter(cnRight, lnEnd, 'Page', 'of', True, ColDefaut, FtText, IlText);
      // draw thin frame rectangle at margins
      //  FrameMargins(TsThin);
      // draw thick frame rectangle at header
      FrameHeader(TsThick);
      // draw thick frame rectangle at footer
  
negative.code:     FtTitle := Font('helvetica-15:bold', clBlack);
      FtText  := Font('helvetica-8', clBlack);
      // create the style of lines to be used
  //    TsThin  := LineStyle(0.2, clRed, lsSolid);
      TsNorm  := LineStyle(1, clBlack, lsSolid);
      TsThick := LineStyle(2, clBlack, lsSolid);
      // create line spacings to be used
  