FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como trocar Cursor na REBAR (Barra de botÔes) ?
Posts: 210
Joined: Sun Jul 23, 2006 01:15 AM
Como trocar Cursor na REBAR (Barra de botÔes) ?
Posted: Thu Aug 16, 2007 01:30 PM

Antonio, como trocar o cursor quando o mouse esta sobre a classe REBAR?

Gracias

Aoki

FWH25+XHARBOUR 99.50
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Como trocar Cursor na REBAR (Barra de botÔes) ?
Posted: Thu Aug 16, 2007 05:34 PM

Aoki,

Modify this method in Class TToolBar:

METHOD MouseMove() INLINE If( ::oCursor != nil, SetCursor( ::oCursor:hCursor ),), nil

Then in your code simply do:

DEFINE CURSOR oHand RESOURCE "hand"
...
oToolBar:oCursor = oHand

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion