anchor.diff:    end;
   end;
   
  -procedure TF_Demo.Bt_PdfCadresClick(Sender: TObject);
  +procedure TF_Demo.Bt_PdfFramesClick(Sender: TObject);
   begin
     FReport := T_Report.Create;
     with FReport do
     begin
       //  Language:= Version;
  -    PrintCadres(False);
  -    DefaultFile:= 'Cadres.pdf';
  +    PrintFrames(False);
  +    DefaultFile:= 'Frames.pdf';
       PrintPdf(LayoutMode, ZoomValue, Preferences);
       Free;
     end;
  
positive.code:     procedure PrintMultiPages(Preview: Boolean);
      procedure PrintMultiSections(Preview: Boolean);
      procedure PrintOutlines(Preview: Boolean);
      procedure PrintCadres(Preview: Boolean);
      procedure PrintColor(Preview: Boolean);
      procedure PrintLines(Preview: Boolean);
      procedure PrintGrid(Preview: Boolean);
  
negative.code:     procedure Bt_PrintMultiPagesClick(Sender: TObject);
      procedure Bt_PrintMultiSectionsClick(Sender: TObject);
      procedure Bt_PrintOutlinesClick(Sender: TObject);
      procedure Bt_PrintFramesClick(Sender: TObject);
      procedure Bt_PrintColorClick(Sender: TObject);
      procedure Bt_PrintLinesClick(Sender: TObject);
      procedure Bt_PrintGridClick(Sender: TObject);
  