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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Probando Xailer 3.0.1
Probando Xailer 3.0.1
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
> 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
Probando Xailer 3.0.1
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
> 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