FiveTech Software tech support forums

...  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()       DeleteDC( oDevice:hDC)      oDevice := NIL            ...

Buenas
Alguien tiene una lista ( o puede completar esta), de los tipos de cursores ?

CursorWait()
CursorArrow()
CursorHand()

.....


Gracias

... Function cGetFile32( cFileMask, cTitle, nDefaultMask, cInitDir, lSave, nFlags, cIniFile ) local cSection, cFile local nRet DEFAULT lSave := .f. CursorWait() // On cGetFile() that parameter is a boolean for long filenames if nFlags != Nil .and. ValType( nFlags ) != "N" nFlags := Nil ...

... @'+cFileName+' https://'+cURL+' --output '+salida+' -D '+headers+' -v' ) FClose(m) //----------------------------- WaitRun("LROE.bat",0) CursorWait() Donde: header "authorization: xxxxxxxxxxxxxxxxxxxx" en las x indicas el número de serie de tu certificado data-binary indica ...

... DBFFPT, OrdCreate, OrdKeyCount, OrdKeyNo, OrdKeyGoto RddSetDefault( 'DBFCDX') set deleted on set autopen off set exclusive on Set optimize on cursorwait() readinsert( .t. ) SetBalloon( .T. ) setresdebug( .F. ) clear all FwSetLanguage( 2 ) Request HB_LANG_ES HB_LangSelect( 'ES' ) request HB_CODEPAGE_ESWIN ...

... "ARIAL" SIZE 0,-11 BOLD OF oPrn DEFINE FONT oFn4 NAME "ARIAL" SIZE 0,-16 BOLD OF oPrn oPrn:lPrvModal:=.f. oPrn:SetLandscape() CursorWait() // Page 1 PageBegin() //here oPrn boxes and cmsay endpage // Page 2 PageBegin() //here oPrn boxes and cmsay endpage oFn1:End(); oFn2:End(); ...

... RESOURCE "no2" ; // NO ACTION (lGoOn:=.f.,oConDlg:End()) ; TOOLTIP "Cancelar" BORDER ACTIVATE DIALOG oConDlg CENTERED IF lGoOn CursorWait() do case case xconsulta == 1 V0100CO1(oBrw) // BUSQUEDA POR CLIENTE !!! case xconsulta == 2 V0100CO2(oBrw) endcase ENDIF cSql := "SELECT ...

... RESOURCE "no2" ; // NO ACTION (lGoOn:=.f.,oConDlg:End()) ; TOOLTIP "Cancelar" BORDER ACTIVATE DIALOG oConDlg CENTERED IF lGoOn CursorWait() do case case xconsulta == 1 V0100CO1(oBrw) // <<<<--------- Búsqueda por nro.de cliente case xconsulta == 2 V0100CO2(oBrw) ...

... Y lo ejecuto con MsgRun("Espere un momento por favor, estoy haciendo el respaldo... !",oApp:cAplicacion,{||CursorWait(),WaitRun(cFileBat, 0 )}) No se ejecuta correctamente. Lo ejecuto desde una ventana CMD y me tira el mensaje de "Acceso denegado" ...

... !oMySqlCon:lConnected // oMySqlCon:ReConnect() lHayError:=.T. ENDIF IF lHayError ARREDUCE(oDp:aMySql,nAt) RETURN NIL ENDIF RETURN oMySqlCon ENDIF CursorWait() oMySqlCon:= TMSConnect():New() // Inicia el objeto Conexion oMySqlCon:SetAutoError( lError ) __objAddData(oMySqlCon, "nSeconds" ...

... CONECTAR(cIp,cLogin,cPass,nPort,lError) cIp := ALLTRIM(cIp ) cLogin := ALLTRIM(cLogin) cPass := ALLTRIM(cPass ) DEFAULT nPort :=3306,; lError:=.F. CursorWait() IF cTypeBD="MYSQL" oServer:= TMSConnect():New() // Inicia el objeto Conexion Mediante la clase Eagle oServer:SetAutoError( lError ...

Dear Antonio,

Thanks for an idea.

Dutch,

Please review FWH\samples\win32.prg

Also check the free tool AniTuner from this URL:
https://torry.net/pages.php?id=1520

I would like to change standard hourglass to another modern animation?

Thanks in advance,

No, a SysRefresh() (or what is its Java equivalent) is what probably changes the cursor back to normal.

EMG