FiveTech Software tech support forums

Dear Eoeo,

try

AEval( oBar:aControls, { | o | o:oCursor := oHand } )

regards,

kok

I have many rbbtn into a ribbon and I wish use the cursor hand Local oBtn[40] DEFINE CURSOR oHand HAND @ 5,5 ADD BUTTON oBtn[1] PROMPT "Imprimir" ; BITMAP "RIBBON_IMPRIMIR" ; GROUP oGr1 ROUND SIZE 83,75 ACTION PrinterSetup() ... AEval(oBtn,{|n| oBtn[n]:oCursor:= ...

... function Main() local oDlg, ofig1 local cLocalNum := "123456789" local oHand local lOpened := .f. *----------------------------------------------------------------------------* cNumber = Space( 20 ) SET 3DLOOK ON LoadPredPhones() ...

... CLASS TPreview DATA oWnd, oBar, oFont, oImageList DATA oDevice DATA oHand, oCursor DATA oMeta1, oMeta2, oSay, oFactor DATA oPage, oTwoPages, oZoom DATA oMenuZoom, oMenuTwoPages, oMenuUnZoom, oMenuOnePage DATA cResFile ...

... static function Configurar() local oFnt, lAcept := .f., cInfo, lYa := .t., os1, os2, os3, os4, os5, os6, ob3, ob4, ob5, ob6, oS7, oHand local oK1, oK2, oK3, oK4, oK5, oK7, aVal := {}, nAncho := 5, oCbx, oAcro, lAcro := .f., cNota := "OD", ; aItems := {}, aIt := { "OJO ...

... cTLee, oBrush, bLee2, cLee2, nOpc := 3, lSalir := .f. local aCoors, cFCoors, cMemoCoors, oItem5, oItem6, oItem7, oIco, cFileDest := "", oHand local aFon := Array( 14 ), nColor := 0, bFont, cFon, bParamFont, bNoFormat, bNoFormat2 local lVacio := ( Empty( cPar ) ), nI := 2, cIt := '', ...

... HEADERS "Andar" , "Nome do Condómino" ; COLSIZES 107, 550 ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFnt ; ID 101 ; OF oDlg CURSOR oHand ; ON DBLCLICK( GetCondom( .F., ( cAlias ), .F.), ; oLbx:Refresh(), oLbx:Setfocus() ) Com esta instrução eu podia seleccionar as FIELDS FIELDS ...

... != nil .and. oWndMain:oBar != nil .and. Len( oWndMain:oBar:aControls ) > 0 .and. oWndMain:oBar:aControls[ 1 ]:l97Look local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro *DEFAULT nBloqueo ...

... ::HScroll( GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; ::oWnd := nil ,; If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),; ::lExit := .T. ,; PRTDefault() ,; //function de Adhemar .T. ...

... + CRLF acadena += "para crear archivos en bajo nivel, de cualquier tipo" aCadena += "en esta caso un archivo tipo TXT" oHand := FCreate( cFile ) // creamos el archivo con un handle FWRITE(oHand, aCadena) // escribimos el contenido en el archivo FCLose(oHand) /7 cerramos ...

... "Ms Sans Serif" Size 6 ,6 Define SButtonBar oBar Size 100,80 Of ownd Top Color {nRgb(248,211, 86),nRgb(132,112, 32)}; Font oFont Define Cursor oHand HAND Define SButton obotbarra[1] RESOURCE "salir" Of oBar ; PROMPT "&Salir" ; Text 3 ; FONT oFont ; ACTION ownd:end() ; MESSAGE "Salir del ...

... nil .and. oWndMain:oBar != nil .and. ; Len( oWndMain:oBar:aControls ) > 0 .and. ; oWndMain:oBar:aControls[ 1 ]:l97Look local lExit := .F. local oHand, oImageList, oReBar // , cPageNum local aImpre := aGetPrinters(), oCbx, cCbx:=PrnGetName(), ; cImpre := cCbx // mcn valdenebro #ifdef __CLIPPER__ ...

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

... } 2. y despues the magic : TWBrowse():lHScroll:= .F. @ 1.9, 0 LISTBOX oBrw; FIELDS ; SIZE 587, 250; OF oWndChild; FONT oFont; CURSOR oHand; COLOR CLR_BLACK, RGB( 255, 255, 235) ; UPDATE oBrw:bLine := bFields oBrw:aHeaders := aHeaders oBrw:aColSizes:= aTamanio oBrw:bLogicLen := { || ...

... aGet[1] VAR XCGC PICTURE "@K 999.999.999-99" ; WHEN( .F. ) ; ID 20 OF oFld:aDialogs[ 1 ] ; FONT oFont UPDATE ; COLOR CLR_HRED, CLR_HCYAN ; CURSOR oHand ASI, FICA CON ASPECTO(APARIENCIA) DI 'MUERTO/DESHABILITADO', SIN COLOR. GRACIAS A TODOS. SALUDOS.