FiveTech Software tech support forums

FUNCTION __objAddData( oObject, cSymbol ) it is inside: https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg I tried with #xcommand EXTEND DATA <!Message!> [IN] CLASS <!Class!> __objAddData( <Class>():classH, ...

FUNCTION __objAddData( oObject, cSymbol )

it is inside:
https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg

hi Antonio, "where" can i get more Information about __objAddData( oObject, cSymbol ) and __objAddMethod( oObject, cSymbol, nFuncPtr ), __objModMethod( oObject, cSymbol, nFuncPtr ) have not found a Sample --- have found in OOHG /* * The following parts ...

... TFolderEx, you could dynamically modify Class TFolderEx to add the extra DATAs and/or Methods that you may need using the functions __objAddData( oObject, cSymbol ) and __objAddMethod( oObject, cSymbol, nFuncPtr ), __objModMethod( oObject, cSymbol, nFuncPtr ) WOW i did not know that Technique ...

... TFolderEx, you could dynamically modify Class TFolderEx to add the extra DATAs and/or Methods that you may need using the functions __objAddData( oObject, cSymbol ) and __objAddMethod( oObject, cSymbol, nFuncPtr ), __objModMethod( oObject, cSymbol, nFuncPtr ) Please review https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg

hi, To know the name ? oObject:cClassName thx for Answer.   xFolder := aSelect[ ID_Folder ]   xName := aSelect[ ID_Name ]   xLevel := aSelect[ ID_Level ]FWLOG xFolderFWLOG oFolderItem:cClassNameFWLOG oTreeNext  ...

To know the name
? oObject:cClassName

I not found

oList:oObject

Dario,

1. Puedes hacerlo usando un objeto:

FUNCTION __objHasMethod( oObject, cSymbol ) --> lSioNo

2. Type( "NombreFuncion()" ) != "U"

... + ALLTRIM(STR(aSize[3])) + CRLF + ; "Height : " + ALLTRIM(STR(aSize[4])), "Size" ) } // ------------ STATIC FUNCTION GET_SIZE( oObject ) LOCAL aCors[4] aCors[1] := oObject:nTop aCors[2] := oObject:nLeft aCors[3] := oObject:nWidth aCors[4] := oObject:nHeight RETURN aCors regards ...

De un objeto __objHasMethod( <oObject>, <cSymbol> ) --> lExist ? __objHasMethod( oFldr, "ShowTab" ) // --> lExist Y quizás puedas usarlo asi ? __objHasMethod( TFolderEx(), "ShowTab" ) // --> lExist ...

Mejor con la función que te ha indicado Cristobal que lo que hace es llamar finalmente a __clsAddMsg() FUNCTION __objAddData( oObject, cSymbol ) LOCAL nSeq, hClass IF ! HB_ISOBJECT( oObject ) .OR. ! HB_ISSTRING( cSymbol ) __errRT_BASE( EG_ARG, 3101, , ProcName( 0 ) ) ELSEIF ! __objHasMsg( ...

__clsVerify(<nClassH>)-><acBrokenMessages>|Nil __objAddData(<oObject>,<cDataName>)->oObject __objAddInline(<oObject>,<cInlineName>,<bInline>)->oObject __objAddMethod(<oObject>,<cMethodName>,<nFuncPtr>)->oObject ...

... the method "Print" and use the same name for other classes too. This way you can pass any object to a routine (like a menu) and just do oObject:print(). Since you might want to have a number of reports using the customer table object then it would be better to create a document class ...

La solución que te aporta Carlos te funcionará correctamente.

También puedes hacerlo directamente con el uso de las funciones,

__objModMethod( <oObject>, <cMethodName>, <nFuncPtr> ) //<nFunCprt> se debe pasar por referencia
__objAddData( <oObject>, <cDataName> )