FiveTech Software tech support forums

... el LISTBOX y no aparecen los datos correctamente. Adjunto el codigo modificado: GRACIAS. #include "FiveWin.ch" static oWnd, oLbx, oTimer, Z //----------------------------------------------------------------------------// function Main() LOCAL oFiltro1 LOCAL oFiltro2 DEFINE dialog ...

... de base de datos. Os dajunto el codigo por si me podeis ayudar. Gracias mil anticipadas. #include "FiveWin.ch" static oWnd, oLbx, oTimer, Z //----------------------------------------------------------------------------// function Main() DEFINE dialog oWnd FROM 0, 0 TO 50, 120 ; ...

... ON INIT (ParametrosIniciales(),MiTimerOn(oVentPrinc)) ; VALID MsgNoYes("Esta seguro de querer Salir...","Salir del Sistema") oTimer:end() static function MiTimerOn(oVentPrinc) Local oDlg DEFINE TIMER oTimer of oDlg INTERVAL 5000 ACTION TimerAction() ACTIVATE timer oTimer return(nil) ...

Distinguidos No funciona, ni siquiera ingresa a la Function Muestra(), la coloco en el ON INIT y ejecuta pero no vuelve a ejecutarla ni colocando oTimer:nInterval:=0 Lo que necesito es hacer algo como lo que tiene el Outlook cuando se envia un correo con Aviso de seguimiento. Mas ayuda porfa Saludos ...

Hola,
Prueba con oTimer:nInterval := 0

Salu2

Gracias Distinguido

Logré que funcione, cada que hace una accion desactivo el timer, oTimer:DeActive(), al salir lo activo, oTimer:Active()

Gracias por la ayuda

Saludos

Jponce, todas las veces que no va usar el TIMER, tienes que deshabilitalo.

oTimer:DeActivate()

Cuando necesitas:

oTimer:Activate()

Lembrate que la VARIABLE oTimer tiene que ser STATIC.

Mira los ejemplos del \samples.

Saludos.

... .T. ) ; ON INIT ( SetParent( oWndFact01:hWnd, oWnd:hWnd ),; AccionaTimer(oWndFact01),; llenarLLnReen( oLbx, oWndFact01, oPreccos, Agets, aTot ) ) oTimer:End() else oWndFact01:SetFocus() endif RETURN NIL //// Function AccionaTimer(oDlg) DEFINE TIMER oTimer INTERVAL 1000 OF oDlg ; ACTION MsgInfo("hola") ...

... 2 #define NIF_MESSAGE 1 #define NIF_ICON 2 #define NIF_TIP 4 #define WM_LBUTTONDBLCLK 515 // 0x203 CLASS TTrayIcon FROM TCONTROL DATA oTray DATA oTimer DATA oWnd DATA cIcon DATA nIcon DATA aIcon DATA hIcon DATA cCaption DATA nIndIco DATA nIcoOriginal DATA bLClicked DATA bRClicked DATA bMMoved ...

... - nTime) + "|" + oChatServer:aServerUsers[i,1] ) if (Seconds() - nTime) > 42 // server lost connection with the client (apparently) oChatServer:oTimer:Deactivate() oApp:WRData(oChatServer:aServerUsers[i,1]+", lost connection") // write to the memo cUser2del := oChatServer:aServerUsers[i, 1] ...

... WM_NCHITTEST 132 // 0x84 #define GWL_STYLE -16 #define GWL_EXSTYLE -20 #ifdef __XPP__ #define Super ::TControl #define New _New #endif static oTimer, aTimer := {} //----------------------------------------------------------------------------// CLASS TDSay FROM TControl CLASSDATA lRegistered ...

... la llamada al protector Function Main() ... SetKey(VK_F12,{||Bloqueo()}) // F12 activa el savescreen del windows .... . ...... Function Bloqueo(oTimer) oTimer:DeActivate() SendMessage(oWnd:hWnd,274,61760,0) Return Nil

... importa sin son por código o con recurso, si son Transparent o nó. Mira este ejemplo: #include "FiveWin.ch" Function Inicio() LOCAL oDlg, oSay1, oTimer LOCAL oFont1:=TFont():New("Ms Sans Serif",0,-8,.F.,.t.) SET DATE FORMAT TO "dd-mm-yyyy" DEFINE DIALOG oDlg FROM 1,1 TO 100,345 TITLE OemToAnsi("El ...

thanks,
but I allready use a define otimer for a internal chat I'm afraid they cannot run together

I use

define timer oTimer action hSay:hora:refresh() interval 1000 of oWnd

to refresh every second