Cursor en TBROWSE
Moderator: Rathinagiri
Cursor en TBROWSE
Hola a Todos
Hay forma de poner un Cursor diferente en un TBROSE, usando :
Ejemplos:
SetWindowCursor (GetControlHandle ("oBrw","Main"), iCur)
SETWINDOWCURSOR(Main.oBrw.Handle, iCur)
oBrw= nombre del control TBROWSE
Main= nombre del Form
iCur= nombre del archivo .cur o .ani
Prove de diferentes formas, y no toma ningun cursor diferente.
Existe algun comando para que pueda hacerlo????
Gracias
Hay forma de poner un Cursor diferente en un TBROSE, usando :
Ejemplos:
SetWindowCursor (GetControlHandle ("oBrw","Main"), iCur)
SETWINDOWCURSOR(Main.oBrw.Handle, iCur)
oBrw= nombre del control TBROWSE
Main= nombre del Form
iCur= nombre del archivo .cur o .ani
Prove de diferentes formas, y no toma ningun cursor diferente.
Existe algun comando para que pueda hacerlo????
Gracias
- srvet_claudio
- Posts: 2220
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: Cursor en TBROWSE
Hola:
Tal vez sea un problema con el archivo de recursos, probá primero con un cursor del sistema a ver si funciona, por ej:
SETWINDOWCURSOR(Main.oBrw.Handle, IDC_ARROW)
Tal vez sea un problema con el archivo de recursos, probá primero con un cursor del sistema a ver si funciona, por ej:
SETWINDOWCURSOR(Main.oBrw.Handle, IDC_ARROW)
Re: Cursor en TBROWSE
No hace falta poner esa opcion, esa es la flecha por defecto, y eso lo toma sin poner esa opcion, el tema es variar el CURSOR
- AUGE_OHR
- Posts: 2093
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Cursor en TBROWSE
hi,
using IDC_* Constant you get all Windows System Cursor
will display Wait Animation ( depend on OS )
---
when using own *.CUR
a.) you can load it from file
b.) include it in *.RC
using IDC_* Constant you get all Windows System Cursor
Code: Select all
SETWINDOWCURSOR(Main.oBrw.Handle, IDC_WAIT )
---
when using own *.CUR
a.) you can load it from file
Code: Select all
SETWINDOWCURSOR(Main.oBrw.Handle, "res\hand.cur")
Code: Select all
MYHAND CURSOR res\hand.cur
Code: Select all
SETWINDOWCURSOR(Main.oBrw.Handle, "MYHAND")
have fun
Jimmy
Jimmy
Re: Cursor en TBROWSE
Hice todo eso que comentas, pero no logro en TBRPWSE, que se cargue in cursor, como por ejemploel : Finger.cur (la mano), probe de todas maneras, aparece al hacer click, al mover el mousse no aparece, solo muestra la flecha comun
- AUGE_OHR
- Posts: 2093
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Cursor en TBROWSE
hi,
try
this will show you Windows OS "Finger"
it is no the same like c:\hmg.3.4.4\RESOURCES\finger.cur which is used by Constant HMG_FINGER
try
Code: Select all
SetWindowCursor ( Main.Handle, IDC_HAND)
SetWindowCursor ( Main.oBrw.Handle, IDC_HAND)
it is no the same like c:\hmg.3.4.4\RESOURCES\finger.cur which is used by Constant HMG_FINGER
have fun
Jimmy
Jimmy
Re: Cursor en TBROWSE
Hola AUGE_OHR
Si eso funciona bien, pero, solo cuando hago click se cambia el cursor, yo pretendo que al enrar en el TBrowse ya este cambiado el cursor IDC_HAND. (Se entiende??)
Yo uso: Harbour MiniGUI Extended Edition 20.06 con compilado BCC102
Si eso funciona bien, pero, solo cuando hago click se cambia el cursor, yo pretendo que al enrar en el TBrowse ya este cambiado el cursor IDC_HAND. (Se entiende??)
Yo uso: Harbour MiniGUI Extended Edition 20.06 con compilado BCC102
- AUGE_OHR
- Posts: 2093
- Joined: Sun Aug 25, 2019 3:12 pm
- DBs Used: DBF, PostgreSQL, MySQL, SQLite
- Location: Hamburg, Germany
Re: Cursor en TBROWSE
hi,
ok, so Cursor now general work,
now you have to figure out how to use it in your Code
we can help if you provide a "full" Sample
ok, so Cursor now general work,
now you have to figure out how to use it in your Code
we can help if you provide a "full" Sample
have fun
Jimmy
Jimmy