home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / OBJINSP.PRG < prev    next >
Text File  |  1994-04-11  |  1KB  |  51 lines
  1. // FiveWin Object Inspector - Warning: Under development! But try it!
  2.  
  3. #include "FiveWin.ch"
  4. #include "ObjInsp.ch"
  5.  
  6. //----------------------------------------------------------------------------//
  7.  
  8. function Main()
  9.  
  10.    local oWnd
  11.  
  12.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 75 TITLE "Inspecting Objects"
  13.  
  14.    SET MESSAGE OF oWnd TO "Press right button to inspect me"
  15.  
  16.    ACTIVATE WINDOW oWnd ;
  17.       ON RIGHT CLICK OInspect( oWnd )
  18.  
  19. return
  20.  
  21. //----------------------------------------------------------------------------//
  22.  
  23. function OInspect( oObject )
  24.  
  25.    local oDlg, oLbx, oSay
  26.    local cProp := ""
  27.    local aObjData, cData, uData
  28.    local n
  29.  
  30.    DEFINE DIALOG oDlg RESOURCE "Inspector"
  31.  
  32.    REDEFINE SAY oSay ID ID_LABEL OF oDlg
  33.  
  34.    aObjData = aOData( oObject )
  35.    for n = 1 to Len( aObjData )
  36.       cData = aObjData[ n ]
  37.       uData = OSend( oObject, cData )
  38.       aObjData[ n ] = PadR( cChr2Data( cData ), 17 ) + Chr( 9 ) + ;
  39.                       ValType( uData ) + "  " + cValToChar( uData )
  40.    next
  41.  
  42.    REDEFINE LISTBOX oLbx VAR cProp ITEMS aObjData ;
  43.       ID ID_PROPS OF oDlg ;
  44.       ON CHANGE oSay:cTitle := cProp
  45.  
  46.    ACTIVATE DIALOG oDlg CENTERED
  47.  
  48. return
  49.  
  50. //----------------------------------------------------------------------------//
  51.