FiveTech Software tech support forums

Code: Select all

#include "fivewin.ch"

function Main()

   local oWnd, oFont
   local aData := { 1, 2, 3, 'Something' }
   local nVar := 99, cVar := 'Hello'
   local oMenu

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-15
 
   MENU oMenu
      MENUITEM "Child" ACTION Child( oWnd )
      MENUITEM "Quit"  ACTION oWnd:End()
   ENDMENU
 
   DEFINE WINDOW oWnd MDI MENU oMenu
   oWnd:SetFont( oFont )
   oWnd:bRClicked := { || Debug( "oWnd", oWnd ) }

   ACTIVATE WINDOW oWnd

   RELEASE FONT oFont

return nil


function child( oParent )

   local oChild
   local oFont
   local aData := { 1, 2, 3, 'Something from child' }
   local nVar := 99, cVar := 'Hello from child'
   local lExit := .F.
   local oLbl01

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-15
   DEFINE WINDOW oChild MDICHILD OF oParent
   oChild:SetFont( oFont )
   oChild:bRClicked := { || Debug( "oChild", oChild ) }
   
   @ 10 , 10 SAY oLbl01 VAR "Codice" OF oChild

   ACTIVATE WINDOW oChild VALID ( lExit := .T. ,  .T. )

   STOPUNTIL( { || lExit } )

   Debug( "oChild", oChild )
   RELEASE FONT  oFont

return nil

init procedure Inizio
return  
 
exit procedure Fine
return  


*--------------------------------------------------------------------------------  
Function Debug( cVar01, uVar01 )
*--------------------------------------------------------------------------------  

    LOCAL aStack := {}
    LOCAL nStack := 1   

    DEFAULT cVar01 := ""
    DEFAULT uVar01 := NIL

      DO WHILE .NOT. Empty( ProcName(nStack) )
         AAdd( aStack, { ProcLine(nStack), ProcFile(nStack), ProcName(nStack) } )
         nStack ++
      ENDDO

    Xbrowse( aStack, "Stack ",, { |o| o:cHeaders := { "Linea", "File", "Procedura" } } )
    
    XBrowse( ArrTranspose( { { cVar01 } , Eval( { || { uVar01 } } ) } ), ;
            ProcName(0) + " : Linea : " + LTrim( Str( ProcLine(0) ) ),, ;
            { |o| o:cHeaders := { "Variabile", "Valore" } } )
RETURN NIL

 

Code: Select all

#include "fivewin.ch"

STATIC oWnd

function Main()

   local oFont
   local aData := { 1, 2, 3, 'Something' }
   local nVar := 99, cVar := 'Hello'
   local oMenu

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-15
 
   MENU oMenu
      MENUITEM "Child" ACTION( Child( oWnd ) )
      MENUITEM "Quit"  ACTION( oWnd:End() )
   ENDMENU
 
   DEFINE WINDOW oWnd MDI MENU oMenu

   oWnd:SetFont( oFont )
   oWnd:bRClicked := { || Debug( "oWnd", oWnd ) }

   ACTIVATE WINDOW oWnd CENTER

   RELEASE FONT oFont

return nil


function child( oParent )

   local oChild
   local oFont
   local aData := { 1, 2, 3, 'Something from child' }
   local nVar := 99, cVar := 'Hello from child'
   local lExit := .F.
   local oLbl01

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-15

   DEFINE WINDOW oChild MDICHILD OF oParent

   oChild:SetFont( oFont )
   oChild:bRClicked := { || Debug( "oChild", oChild ) }
   
   @ 10 , 10 SAY oLbl01 VAR "Codice" OF oChild

   ACTIVATE WINDOW oChild VALID ( lExit := .T. ,  .T. )

   STOPUNTIL( { || lExit } )

   Debug( "oChild", oChild )

   RELEASE FONT  oFont

return nil

init procedure Inizio
return
 
exit procedure Fine
return


*--------------------------------------------------------------------------------  
Function Debug( cVar01, uVar01 )
*--------------------------------------------------------------------------------  

    LOCAL aStack := {}
    LOCAL nStack := 1  

    DEFAULT cVar01 := ""
    DEFAULT uVar01 := NIL

    WHILE .NOT. Empty( ProcName(nStack) )

       SYSREFRESH()

       AAdd( aStack, { ProcLine(nStack), ProcFile(nStack), ProcName(nStack) } )

       nStack ++

    ENDDO

    Xbrowse( aStack, "Stack ",, { |o| o:cHeaders := { "Linea", "File", "Procedura" } } )
   
    XBrowse( ArrTranspose( { { cVar01 } , Eval( { || { uVar01 } } ) } ), ;
             ProcName(0) + " : Linea : " + LTrim( Str( ProcLine(0) ) ),, ;
             { |o| o:cHeaders := { "Variabile", "Valore" } } )

RETURN NIL