D贸nde puedo encontrar informaci贸n detallada de todas las funciones para modificar clases de harbour, como por ejemplo:
__ClsAddMsg() y __clsModMsg()
Sobre todo con ejemplos pr谩ctivos.
Hay algo en este foro, pero me ha resultado confuso.
Gracias desde ya
En harbour, ser铆a necesario usar la Liberia xhb de \contrib
adem谩s de llamar al fichero de encabezado hbcls.ch que igualmente est谩 en \contrib, con eso tendr谩s acceso a los comandos de modificaci贸n y extensi贸n de clases tanto de data como de method.
#include "hbclass.ch"
...
OVERRIDE METHOD MyMethodName IN CLASS tMyClase WITH MyMethodName2
EXTEND CLASS tMyClase WITH METHOD MyMethod
...
FUNCTION MyMethod( ... )
LOCAL Self := hb_QSelf()
...
FUNCTION MyMethodName2( ... )
LOCAL Self := hb_QSelf()
......
#include "hbclass.ch"
#include "xhbcls.ch"
FUNCTION ...
OVERRIDE METHOD MyMethodName IN CLASS tMyClase WITH MyMethodName2
EXTEND CLASS tMyClase WITH METHOD MyMethod
...
FUNCTION MyMethod( ... )
LOCAL Self := hb_QSelf()
...
FUNCTION MyMethodName2( ... )
LOCAL Self := hb_QSelf()
...