anchor.diff:  
   procedure T_Report.FrameMargins(AStyle: Integer);
   begin
  -DrawAFrame(AStyle,zMarges);
  +DrawAFrame(AStyle,zMargins);
   end;
   
   procedure T_Report.FrameHeader(AStyle: Integer);
   begin
  -DrawAFrame(AStyle,zEntete);
  +DrawAFrame(AStyle,zHeader);
   end;
   
   procedure T_Report.FramePage(AStyle: Integer);
  
positive.code:                 // XLimits = list of horizontal positions of limit points
                  // YLimits = list of vertical positions of limit points
                  // AColor = colour to be painted within the limits
        procedure ImagePage(Horiz,Verti: Single; ImgFileName: string; Scale: Integer= 1);
                  // draw a bmp or jpg image at the defined position
                  // Horiz = horizontal position in numeric value in the measurement unit (msMM or msInch)
                  // Verti = vertical position in numeric value in the measurement unit (msMM or msInch)
  
negative.code:   for Cpt:= 0 to Pred(Images.Count) do
      TfpgImage(Images[Cpt]).Free;
  Images.Free;
  ImageNames.Free;
  Texts.Free;
  VWriteLine.Free;
  if PdfPage.Count> 0
  