home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / tools / transfrm / samples / mytrnsfm.prg < prev    next >
Text File  |  1996-08-21  |  790b  |  46 lines
  1. * MyTrnsfm.prg
  2. * Example of subclassing the Transformer.
  3. * To run the subclassed Transformer, execute:
  4. *      DO Transfrm WITH "MyTrnsfm.prg,MyTransformer","MyTrnsfm.prg,MyTransformFiles"
  5. *
  6.  
  7.  
  8. DEFINE CLASS MyTransformer AS Transformer
  9.  
  10.  
  11.     Caption="My Transformer"
  12.  
  13.  
  14. ENDDEFINE
  15.  
  16.  
  17.  
  18. DEFINE CLASS MyTransformFiles AS TransformFiles
  19.  
  20.  
  21.     cGetFileExt='pjx|scx|vcx|mnx|frx'
  22.  
  23.  
  24.     FUNCTION Do(tlAddFontRules)
  25.     =MESSAGEBOX("  The transformation process has been subclassed.",48, ;
  26.             this.parent.Caption)
  27.     RETURN oTransformFiles::Do(tlAddFontRules)
  28.     ENDFUNC
  29.  
  30.  
  31.     PROTECTED FUNCTION ProcessMenuRules
  32.     ACTIVATE SCREEN
  33.     ? "Menu: "+DBF()
  34.     GO BOTTOM
  35.     ENDFUNC
  36.  
  37.  
  38.     PROTECTED FUNCTION ProcessReportRules
  39.     ACTIVATE SCREEN
  40.     ? "Report: "+DBF()
  41.     GO BOTTOM
  42.     ENDFUNC
  43.  
  44.  
  45. ENDDEFINE
  46.