home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTVBX.PRG < prev    next >
Text File  |  1994-04-11  |  1KB  |  56 lines
  1. // Visual Basic VBX Controls support !!!
  2. // Warning: Under construction. Not available yet!
  3.  
  4. #include "FiveWin.ch"
  5.  
  6. #xcommand REDEFINE CIRCLE [<oCircle>] ;
  7.              [ ID <nId> ] ;
  8.              [ OF <oDlg> ] ;
  9.        => ;
  10.           [ <oCircle> := ] TVbCircle():ReDefine( <nId>, <oDlg> )
  11.  
  12. //----------------------------------------------------------------------------//
  13.  
  14. function Main()
  15.  
  16.    local oWnd
  17.  
  18.    DEFINE WINDOW oWnd FROM 2, 2 TO 20, 60 ;
  19.       TITLE "Testing VBX" ;
  20.       MENU  BuildMenu()
  21.  
  22.    ACTIVATE WINDOW oWnd
  23.  
  24. return
  25.  
  26. //----------------------------------------------------------------------------//
  27.  
  28. function BuildMenu()
  29.  
  30.    local oMenu
  31.  
  32.    MENU oMenu
  33.       MENUITEM "&Dialog" ACTION TestDlg()
  34.    ENDMENU
  35.  
  36. return oMenu
  37.  
  38. //----------------------------------------------------------------------------//
  39.  
  40. function TestDlg()
  41.  
  42.    local oDlg, oCircle
  43.  
  44.    DEFINE DIALOG oDlg RESOURCE "Test"
  45.  
  46.    REDEFINE CIRCLE oCircle ID 100 OF oDlg
  47.  
  48.    REDEFINE BUTTON ID 110 OF oDlg ;
  49.       ACTION MsgInfo( VbxDataName( oCircle:nPtrModel, 1 ) )
  50.  
  51.    ACTIVATE DIALOG oDlg CENTERED
  52.  
  53. return
  54.  
  55. //----------------------------------------------------------------------------//
  56.