Xailer & OZ Software

A pesar de que la clase TImage se sobrecarga como se muestra a continuación.
En tiempo de ejecución no muestra el cursor IDC_HAND al pasar el mouse sobre
las imágenes de la aplicación.
CLASS TImage FROM XImage
PROPERTY nBorderStyle INIT bvFLAT
PROPERTY lAutoFit INIT .T.
PROPERTY lSmooth INIT .T.
PROPERTY lAutoScroll INIT .F.
PROPERTY lTabStop INIT .F.
PROPERTY oCursor INIT TCursor():Create( IDC_HAND )
ENDCLASS

Alex,
> A pesar de que la clase TImage se sobrecarga como se muestra a
> continuación.
> En tiempo de ejecución no muestra el cursor IDC_HAND al pasar el mouse
> sobre las imágenes de la aplicación.
>
> CLASS TImage FROM XImage
> PROPERTY nBorderStyle INIT bvFLAT
> PROPERTY lAutoFit INIT .T.
> PROPERTY lSmooth INIT .T.
> PROPERTY lAutoScroll INIT .F.
> PROPERTY lTabStop INIT .F.
> PROPERTY oCursor INIT TCursor():Create( IDC_HAND )
> ENDCLASS
Las cláusulas INIT de las propiedades *nunca* deben tener llamadas a
funciones ni objetos; siempre tienen que ser constantes (números,
cadenas o valores lógicos), como las demás que has puesto. Si quieres
cambiar el cursor, lo puedes poner al instanciar el objeto
correspondiente, o en el metodo Create() de la clase. P.ej.:
METHOD Create( oParent ) CLASS TImage
::oCursor := IDC_HAND
RETURN ::Super:Create( oParent )
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Alex,
> A pesar de que la clase TImage se sobrecarga como se muestra a
> continuación.
> En tiempo de ejecución no muestra el cursor IDC_HAND al pasar el mouse
> sobre las imágenes de la aplicación.
>
> CLASS TImage FROM XImage
> PROPERTY nBorderStyle INIT bvFLAT
> PROPERTY lAutoFit INIT .T.
> PROPERTY lSmooth INIT .T.
> PROPERTY lAutoScroll INIT .F.
> PROPERTY lTabStop INIT .F.
> PROPERTY oCursor INIT TCursor():Create( IDC_HAND )
> ENDCLASS
Las cláusulas INIT de las propiedades *nunca* deben tener llamadas a
funciones ni objetos; siempre tienen que ser constantes (números,
cadenas o valores lógicos), como las demás que has puesto. Si quieres
cambiar el cursor, lo puedes poner al instanciar el objeto
correspondiente, o en el metodo Create() de la clase. P.ej.:
METHOD Create( oParent ) CLASS TImage
::oCursor := IDC_HAND
RETURN ::Super:Create( oParent )
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
José:
Muchas gracias por la pronta respuesta