//------------------------------------------------------------------------
//
//  report.cc  --  Custom Control Library for Reports
//
//  PageNumber - Text control showing the current page number.
//
//  dBASE Samples Group 
//  $Revision:   1.5  $
//
//  Copyright (c) 1997-1998, Borland International, Inc. 
//  Copyright (c) 2000, dBASE, Inc.
//  All rights reserved.
//
//------------------------------------------------------------------------
// 

class pageNumber(ParentObj) of Text(ParentObj) custom 
   SET TALK OFF
   with ( this )
      height   := 200
      width    := 1000
      metric   := 1
      fontSize := 8
      text     := class::pageValue
   endwith

   function pageValue 
      // returns 0 if placed on form
      local nPage
      nPage = 0
      if TYPE("this.form.reportPage") == "N" 
         nPage := this.form.reportPage
      endif
   return ( nPage )

endclass