Page 1 of 1

Cambiar cursor en tiempo de ejecucion en un TsBrowse

Posted: Thu Oct 22, 2009 3:58 pm
by JoseGS
Hola amigos:

Quisiera saber la forma en la que puedo cambiar el cursor utilizado en tiempo de ejecucion:

Explico:

- Tengo un TsBrowse al cual le he definido el cursor del dedo...
- Ese Browse, lo inhabilito mediante oBrw:DISABLE() en algunas ocaciones para que el usuario no pueda cambiar el puntero de la base de datos. En _, me gustaria cambiar el cursor a un simbolo de NO para que el usuario sepa que en ese momento el browse esta inhabilitado...

Alguna idea ?

Gracias

Re: Cambiar cursor en tiempo de ejecucion en un TsBrowse

Posted: Fri Oct 23, 2009 4:03 pm
by mmercado
Hola José:
JoseGS wrote:- Tengo un TsBrowse al cual le he definido el cursor del dedo...
- Ese Browse, lo inhabilito mediante oBrw:DISABLE() en algunas ocaciones para que el usuario no pueda cambiar el puntero de la base de datos. En _, me gustaria cambiar el cursor a un simbolo de NO para que el usuario sepa que en ese momento el browse esta inhabilitado...
Según mis pruebas, cuando un control está inhabilitado (oBrw:DISABLE()) no detecta el paso del mouse por lo que no mostrará ningún cambio de cursor.

Pruébalo con lo siguiente:

lStop := .t.
oBrw:OnMouseMove := {||If( lStop, CursorStop(), CursorArrow() ) }

Un abrazo.

Re: Cambiar cursor en tiempo de ejecucion en un TsBrowse

Posted: Fri Oct 23, 2009 7:59 pm
by JoseGS
Gracias Manuel

Hare la prueba....

Como estuvo ese cumpleños ?