FiveTech Software tech support forums

... aBtnEle[n] ; FILENAME cImage; SIZE 220, 55 PIXEL; FLAT RIGHT; FONT oFontSmall ; PROMPT cDesc ; OF oElements action Msginfo() aBtnEle[n]:ocursor:= oHand aBtnEle[n]:nClrBorder := { |obtn| (IIF(obtn:lMOver,CLR_BLUE,CLR_HGRAY)) } aBtnEle[n]:bClrGrad = { | lInvert | If( ! lInvert,; { { 1, CLR_WHITE, ...

... moving and zooming will delete selected colors :!: @ 4,1 XIMAGE oImg filename cFile SIZE 200,200 OF oDlg oImg:nUserControl := 0 oImg:oCursor := oHand oImg:blClicked := { | nCol, nRow | nPickRow := nRow, nPickCol := nCol,; FILLCOLOR(oImg, nPickRow, nPickCol, nColorSet ) } // ----------- FUNCTION ...

... GO_RIGHT, GO_PAGE ) ; VALID ( ::oWnd:oIcon := nil ,; ::oFont:End() ,; ::oCursor:End() ,; ::oMeta1:End() ,; ::oMeta2:End() ,; ::oDevice:End() ,; ::oHand:End() ,; If( Empty( ::oImageList ),, ( ::oImageList:End(), ::oImageList := nil ) ),; If( ! Empty( ::oImageListPages ), ::oImageListPages:End(),),; ...

... Local nHeightRib:=130 Local oGr1,oGr2,oGr3,oGr4,oGr5,oGr6,oGr7,oGr8,oGr9 Local nOption:= 1 Local nStart:= 0 Local oHand:= TCursor():New(,'HAND') oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,; oWndMain:nWidth, nHeightRib, 26, , , ,; , , , , , , .F., nStart, ...

Silvio, from my sample : DEFINE CURSOR oHand HAND @ 15, 10 FOLDEREX SIZE 260, 200 oFld1 PIXEL ROUND 5 UPDATE ; PROMPT "Page &1", "Page &2", "Page &3", "Page &4", "&EXIT" OF ...

Local oImageList, oReBar,oHand Local nColore_ToolBar:= RGB( 244, 245, 245 ) //2015... DEFINE CURSOR oHand HAND DEFINE IMAGELIST oImageList SIZE 32,30 oImageList:AddMasked( TBitmap():Define( "TOOLBAR_ESERCIZI",, ::oWndMain ), ...

Uwe,

Try this:

AEval( oMetro:aControls, { | o | IF( o:ClassName() = "TMETROBTN", ( o:oCursor := oHand, o:bLostFocus := { || o:oCursor := nil } ), ) } )

Hello, trying to change the cursor on metro-button-focus, I use : AEval( oMetro:aControls, { | o | o:oCursor := oHand } ) AEval( oMenu1:aControls, { | o | o:oCursor := oHand } ) ... ... it works, but the cursor doesn't change back to arrow, loosing the button-focus. also tested ...

Thank you for your code .. what I am trying to do is to make the insert block just a normal cursor line .. and the oHand Cursor does not effect that

Rick Lipkin

... ( cAlias )->CODIGO, ( cAlias )->DESCRICAO ; HEADERS "","Cód", "Descrição" SIZES 30,70,150 ; CURSOR oHand ; ID 108 ALIAS cAlias OF Odlg Esta instrução funciona bem em SCROLL na versão FWH108 e na versão FWH14.12 não sei a razão porque não funciona ...

Hola, He estado probando los estilos con la ButtonBar, así: DEFINE BUTTONBAR oBar BUTTONSIZE 64,64 TOP OF ::oFldPermisos:aDialogs[1] CURSOR oHand 2013 Sin estilo, sale el normal de win98, 2007 y 2010, son bonitos pero creo que son idénticos. Y por último el 2013 funciona como win98 también. ...

... Está ficando assim: http://softservice.com.br/images/BBAR.jpg O fonte usado é este: DEFINE BUTTONBAR oBar OF oWmaster SIZE 33 , 33 _3D TOP CURSOR oHand _2007 .... DEFINE BUTTON obotao FILE "BTN.bmp" OF oBar ACTION ShellExecute(0 , "open" ,alltrim(command[1]) ) PROMPT BOTOES->txt ...

oBtn[40]

are you filling all array?

the error is absolutely clear, one element in array is NIL

AEval(oBtn,{|n| If( n != NIL, n:oCursor:= oHand, ) })

Hello

the correct code is

AEval(oBtn,{|n| n:oCursor:= oHand })

"n" is the each element in array isn't a index

remember:
when report a error please post the error.log, this way we can do a better support, thanks

... when there are only 2 PRGs being compiled and linked #include "fivewin.ch" static cStatic FUNCTION Main() LOCAL nEpoch // Y2K local oHand, oBmp, oBmpTiled PARAMETERS arg1, arg2, arg3 REQUEST DBFCDX RDDSetDefault("dbfcdx") test_it() // see test_sub.prg USE AFECD SHARED NEW ...