FiveTech Software tech support forums

... 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 ...

... 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 ...

... Inventario","Utilità"}
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 ...

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 oDlg1 ;
BITMAPS aBitmaps;
ON PAINT TAB PaintTab( Self, nOption );
ON CHANGE ( nSavePage := oFld1:nOption, ;
IF( nOption ...

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 ), nColore_ToolBar )
oImageList:AddMasked( TBitmap():Define( "TOOLBAR ...

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 :

AEval ...

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

... REDEFINE LISTBOX oLbx1 ;
FIELDS Ds_Mar(cBmp), ( 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.

Dejo ...

... e alinhamento do texto do prompt. Está ficando assim:

m

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 TOOLTIP BOTOES ...

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

... works 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 ...