Page 1 of 1

Como trocar Cursor na REBAR (Barra de botões) ?

Posted: Thu Aug 16, 2007 1:30 pm
by AOKISANTOS
Antonio, como trocar o cursor quando o mouse esta sobre a classe REBAR?

Gracias

Aoki

Posted: Thu Aug 16, 2007 5:34 pm
by Antonio Linares
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