home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / VBXCTRL.PRG < prev    next >
Text File  |  1994-02-28  |  1KB  |  49 lines
  1. // Warning: Under construction. Not available yet!
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. CLASS TVbControl FROM TControl
  8.  
  9.    DATA   hCtl
  10.  
  11.    METHOD ReDefine( nId, oWnd ) CONSTRUCTOR
  12.    METHOD Init( hDlg )
  13.  
  14.    METHOD GetPropName( nProp ) BLOCK ;
  15.       { | Self, nProp | VBXGetPrpName( ::hCtl, nProp ) }
  16.  
  17.    METHOD SetProp( nProp, uValue ) BLOCK ;
  18.       { | Self, nProp, uValue | VBXSetPrp( ::hCtl, nProp, uValue ) }
  19.  
  20.    METHOD nGetNumProps() BLOCK { | Self | VBXGetNumProps( ::hCtl ) }
  21.  
  22. ENDCLASS
  23.  
  24. //----------------------------------------------------------------------------//
  25.  
  26. METHOD ReDefine( nId, oWnd ) CLASS TVbControl
  27.  
  28.    ::nId  = nId
  29.    ::oWnd = oWnd
  30.    ::hCtl = 0
  31.  
  32.    if oWnd != nil
  33.       oWnd:DefControl( Self )
  34.    endif
  35.  
  36. return Self
  37.  
  38. //----------------------------------------------------------------------------//
  39.  
  40. METHOD Init( hDlg ) CLASS TVbControl
  41.  
  42.    Super:Init( hDlg )
  43.  
  44.    ::hCtl = VbxGetHCtl( ::hWnd )
  45.  
  46. return
  47.  
  48. //----------------------------------------------------------------------------//
  49.