FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar cursor en tiempo de ejecucion en un TsBrowse
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Cambiar cursor en tiempo de ejecucion en un TsBrowse
Posted: Thu Oct 22, 2009 03:58 PM

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 estos casos, 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

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Cambiar cursor en tiempo de ejecucion en un TsBrowse
Posted: Fri Oct 23, 2009 04:03 PM
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 estos casos, 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.
manuelmercado at prodigy dot net dot mx
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Cambiar cursor en tiempo de ejecucion en un TsBrowse
Posted: Fri Oct 23, 2009 07:59 PM

Gracias Manuel

Hare la prueba....

Como estuvo ese cumpleños ?

Continue the discussion