anchor.diff:          then
             HTxt:= Fnt.Height;
         case Zone of
  -        zEntete:
  +        zHeader:
             FPosRef.Y:= FCurrentMargin.T+FHeaderHeight;
  -        zPied:
  +        zFooter:
             begin
             FPosRef.Y:= FCurrentMargin.B-HTxt;
             FFooterHeight:= FFooterHeight+HTxt;
  
positive.code: if RefTextTot= -1
  then
    RefTextTot:= Texts.Add(TextTot);
  WriteNumber(Horiz,Verti,ColNum,RefTextPage,RefTextTot,FontNum,BkColorNum,BordNum,LineSpNum,Flags,Total,False,ZEnTete,PageNum);
  end;
  
  procedure T_Report.NumPageFooter(Horiz,Verti: Single; TextePage: string= ''; TextTot: string= '';
  
negative.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 ImageHeader(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)
        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)
        procedure ImageFooter(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)
  