FiveTech Software tech support forums

... oBtn:lPressed clr := RGB( 180,136,85 ) else clr := RGB( 245,245,235) endif endif return clr > obtn[n]:nClrBorder := RGB(195,195,185) obtn[n]:oCursor:= oCursorBtn next Is it possible that it can't be removed or changed to another color?

... local bClick:= {|| aImg[5 ] } @ nRow, nCol BTNBMP oItem PROMPT aImg[ 1 ] ; FILE aImg[2 ] ; SIZE 72,96 PIXEL OF oPanel ; NOBORDER FLAT oItem:oCursor:= oCursorBtn oItem:baction:= (bClick) not eval the action

... IfNil( nBtnW, 26 ), IfNil( nBtnH, If( LargeFonts(), 30, 26 ) ) linea515 Error E0030 Syntax error: "Syntax error at ´CURSOR´ DEFINE CURSOR ::oCursor SEARCH linea583 Error E0020 Incomplete stament or unbalanced deliminter ::oFactor:Set3dLook( .T. ) linea 1617 Error E0030 Syntax error: sintax ...

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

... (cur/ico). Por ejemplo, DEFINE CURSOR oCur FILE "mycur.cur" Durante el tiempo de ejecución, la imagen del cursor puede ser cambiada por oCursor:SetSource( [cResource/cFile], [cPreDef] ). DATA Source --> nombre de la fuente( recurso/archivo/predef ) DATA Source := cFile/cResource cambia ...

... Cursor can be defined from a file (cur/ico) also. eg DEFINE CURSOR oCur FILE "mycur.cur" During runtime, cursor image can be changed by oCursor:SetSource( [cResource/cFile], [cPreDef] ) DATA Source --> name of source( resource/file/predef ) DATA Source := cFile/cResource changes the ...

...    PICTURE "@K" UPDATE OF oDlg Pero necesito obtenerlos asi        @ 01, 02 SAY "First"        OF oDlg        @ 02, 1.5 GET oCursor:First   PICTURE "@K" UPDATE OF oDlg        @ 01, 26.6 SAY "Last"       OF oDlg        @ 02, 20 GET oCursor:Last    PICTURE ...

... lines xImage 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 ) } // ----------- ...

...   [3D | 3DLOOK | _3D | _3DLOOK];   [TOP | LEFT | RIGHT | BOTTOM | FLOAT];   [OF | WINDOW | DIALOG <oWnd>];   [CURSOR <oCursor>] But give the following error in the compilation: Error E0022 Invalid lvalue: 'Numeric' Can anyone help? Thanks!

Nages,
can we insert oCursor Hand when the user press these buttons?

... ) ; ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ; ON PAGERIGHT ::HScroll( 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 ...

... clicked like in TImage METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D Uwe, Sorry on BTnBMP is possible to place sub-images ...

... clicked like in TImage METHOD New( nTop, nLeft, nWidth, nHeight, cResName, cBmpFile, lNoBorder,; oWnd, bLClicked, bRClicked , lScroll, lStretch, oCursor,; cMsg, lUpdate, bWhen, lPixel, bValid, lDesign, cVarName ) CLASS TImage regards Uwe :D

... NIL FUNCTION OpenTable(cSql,lLoad,oDataBase) DEFAULT oDataBase:=oDb RETURN TTable():New(cSql,lLoad,oDataBase) CLASS Ttable DATA oDataBase DATA oCursor DATA lAppend INIT .T. DATA aBuffer INIT {} DATA cWhere INIT "" DATA cTable DATA cSql DATA cSqlExec INIT "" METHOD New(cSql,lLoad,oDataBase) ...

... [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <hscroll: HSCROLL> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ...