Cursor en TBROWSE

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
jorge_riv
Posts: 86
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Cursor en TBROWSE

Post by jorge_riv »

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
User avatar
srvet_claudio
Posts: 2220
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: Cursor en TBROWSE

Post by srvet_claudio »

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)
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
User avatar
jorge_riv
Posts: 86
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Re: Cursor en TBROWSE

Post by jorge_riv »

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
User avatar
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

Post by AUGE_OHR »

hi,

using IDC_* Constant you get all Windows System Cursor

Code: Select all

SETWINDOWCURSOR(Main.oBrw.Handle, IDC_WAIT )
will display Wait Animation ( depend on OS )

---

when using own *.CUR

a.) you can load it from file

Code: Select all

SETWINDOWCURSOR(Main.oBrw.Handle, "res\hand.cur")
b.) include it in *.RC

Code: Select all

MYHAND	CURSOR	res\hand.cur

Code: Select all

SETWINDOWCURSOR(Main.oBrw.Handle, "MYHAND")
have fun
Jimmy
User avatar
jorge_riv
Posts: 86
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Re: Cursor en TBROWSE

Post by jorge_riv »

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
User avatar
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

Post by AUGE_OHR »

hi,

try

Code: Select all

   SetWindowCursor ( Main.Handle, IDC_HAND)
   SetWindowCursor ( Main.oBrw.Handle, IDC_HAND)
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
have fun
Jimmy
User avatar
jorge_riv
Posts: 86
Joined: Thu Nov 22, 2018 2:20 pm
DBs Used: DBF, MySQL,SQL SERVER, Oracle.

Re: Cursor en TBROWSE

Post by jorge_riv »

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
User avatar
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

Post by AUGE_OHR »

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
have fun
Jimmy
Post Reply