![Very Happy :D](./images/smilies/icon_biggrin.gif)
Gracias Quique e Antonio,
Rossine.
#INCLUDE "hbclass.CH"
function main
miTWindow()
funSwap( @time(), @miTime() )
msgInfo( time() )
funSwap( @tWindow(), @miTWindow() )
msgInfo( tWindow():prueba )
msgInfo( tMdiClient():prueba )
return nil
function miTime()
return "Hola"
class miTWindow from tWindow
data prueba
endClass
#pragma BEGINDUMP
HB_FUNC( FUNSWAP )
{
PHB_SYMB pFirst = ( PHB_SYMB ) hb_parptr( 1 );
PHB_SYMB pLast = ( PHB_SYMB ) hb_parptr( 2 );
if( pFirst && pLast )
{
pFirst->value.pFunPtr = pLast->value.pFunPtr;
}
}
#pragma ENDDUMP
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 25 guests