FiveTech Software tech support forums

... FUNCTION MsgTimer(oWnd, cMessageCaption, nSeconds) //**************************************************************************** // // Fechar um MsgDialog automaticamente // Parametros: cMessageCaption, ...

... nWidth ),,,, .T. ) return nil //----------------------------------------------------------------------------// function MsgWait( cCaption, cTitle, nSeconds ) DEFAULT nSeconds := 4 return MsgRun( cCaption, cTitle, { || WaitSeconds( nSeconds ) } ) //----------------------------------------------------------------------------// ...

You can also look at: MsgRun +

MsgSplash( cImage, nSeconds, bAction ). cImage can be file or resource. If bAction is specified, the codeblock is evaluated with oImage as parameter and Splash continues till the bAction is executed or expiry of nSeconds whicheve is later.

Best regards,
Otto

... Galvez! * Improvement: Both tdatabase and txbrowse now use improved logic to identify tag order for each field. * Improvement: MsgSplash( cImage, nSeconds, bAction ). cImage can be file or resource. If bAction is specified, the codeblock is evaluated with oImage as parameter and Splash continues ...

Otto,

I think sleep() is in milliseconds. Change it to 500 for 5 seconds.

Or you can use waitSeconds( nSeconds ) or inkey( nSeconds ) instead of sleep().

James

... oBrw:bChange:={|| nil} xBrowseLoop(oBrw) && do something oBrw:bChange:={|| SelectFunc(oBrw)} return Function xBrowseLoop(oBrw) local nSeconds, nLocalIndex,i nLocalIndex:=oBrw:nArrayAt() nSeconds:=seconds() do while .t. oBrw:Refresh() sysrefresh() if seconds()-nSeconds>.20 if nLocalIndex<>oBrw:nArrayAt() ...

Hi, want to set the system time with SetTime( <nHour>, <nMinutes>, [<nSeconds>], [<nMillSecs>] ). This function use Coordinated Universal Time (UTC), so I have to calculate the local time zone first. But the function TimeZone() always return ...

... := Alltrim(oApp:cgetVar) + chr(nKey) oApp:oGet:oJump:=oApp:oGet // focus again Endcase return .t. /*** * TimeAsSeconds( <cTime> ) --> nSeconds * Convert a time string to number of seconds from midnight */ FUNCTION TimeAsSeconds( cTime ) RETURN VAL(cTime) * 3600 + VAL(SUBSTR(cTime, ...

... := { | nKey | IF( DbSearch(nKey,oBrw), oBrw:Refresh(),) } Note: You must define two public or static vars as follows: PUBLIC cArgume := "", nSeconds := SECONDS() */ FUNCTION DbSearch(nKey,oBrw) LOCAL cKey := UPPER( chr(nKey) ),; nRecno := RECNO(),; nLapso := SECONDS() - nSeconds,; cArgAnt ...

... .. .. aObjects[6]:bChange:={|| SelectFunc_Cons()} && action to do when any selection is made return Function SelectFunc_Cons() local nSeconds aObjects[6]:bChange:={|| nil} nSeconds:=seconds() do while .t. sysrefresh() && xbrowse is refreshed and the error appairs if seconds()-nSeconds>.25 ...

... ar native functions of xharbour: Secs() Calculates the number of seconds from a time string. Syntax Secs( <cTime>|<dDateTime> ) --> nSeconds TString() Converts numeric seconds into a time formatted character string. Syntax TString( <nSeconds> ) --> cTimeString I hope It ...

Credo di aver risolto: .. .. aObjects[6]:bChange:={|| SelectFunc_Cons()} ... .. Function SelectFunc_Cons() local nSeconds aObjects[6]:bChange:={|| nil} nSeconds:=seconds() do while .t. sysrefresh() if seconds()-nSeconds>.25 exit endif enddo aObjects[6]:Disable() .. .. .. aObjects[6]:Enable() ...

... MyFunction solo se è passato un secondo dalla chiamata a bChange: oBrw:bChange:={| | Wait1Second(),MyFunction()} function Wait1Second() local nSeconds nSeconds:=seconds() do while .t. sysrefresh() if seconds()-nSeconds>1 exit endif enddo In modo tale che se l'utente continua la selezione ...

... local sw:=.t. local oFoto,onombre local opreciopza:=0,opreciocja:=0 local nwait:=1 local tiempo:=0,cotiempo:=0 local valormaximo:=10 local nseconds:=1 local timemax:=15 local Timer DEFINE FONT oFont3 NAME "Arial" SIZE 25,65 BOLD DEFINE FONT oFont2 NAME "Arial" SIZE 45,75 BOLD DEFINE FONT ...

... aMsg[nAt], nWidth ) ) NEXT //----------------------------------------------------------------------------// function MsgWait( cCaption, cTitle, nSeconds ) DEFAULT nSeconds := 4 return MsgRun( cCaption, cTitle, { || WaitSeconds( nSeconds ) } ) //----------------------------------------------------------------------------// ...