FiveTech Software tech support forums

... lo activo desde aca: ACTIVATE DIALOG oDlg CENTERED ON init (; BuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg ),; oBrw: SetFocus(),; oBrw: ResetBarPos(),; oBrw: UpStable(),; oBrw: Reset(),; oBrw: ...

... lo activo desde aca: ACTIVATE DIALOG oDlg CENTERED ON init (; BuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg ),; oBrw: SetFocus(),; oBrw: ResetBarPos(),; oBrw: UpStable(),; oBrw: Reset(),; oBrw: ...

Goos, Parece ser que oTimer no está iniciado, al no iniciarse no hay metodo activate() o deactivate(); hay que checar si se activa el timer o no. Will Morales Amigos, Tengo esto: oDlg:= oDlgEnlace( @oBrw, oTextos, oBtns, oBmp ...

... oDlgEnlace( @oBrw, oTextos, oBtns, oBmp ) //----------( Acción del botón )---------- oBtns[1]: bAction:={|| oTimer:deactivate() } oBtns[2]: bAction:={|| oTimer:activate() } ACTIVATE DIALOG oDlg CENTERED ...

ya intestastes con el COMANDO: DEFINE TIMER oTimer??

... 0x40000000 #define GENERIC_REWRITE 0xC0000000 #define OPEN_EXISTING 3 #define FILE_ATTRIBUTE_NORMAL 0x00000080 function Main() local oWnd, oTimer, oChk local hPort local nPollTime := 1000 local lOnOff := .T. hPort := CreateFile( "COM1:",GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ...

... in every control : oBrwArt:bTimer := {|| MsgInfo("Hello") } //------------------------------------------------------- //1 - ADD this variable DATA oTimer DATA nTimer DATA bTimer // ------------------------------------------------------ // 2 Method LButtonDown METHOD LButtonDown( nRow, nCol, nKeyFlags ...

... which the DVD increases even though it goes well ? DVD Control method ? /*--------------MPEG Player----------*/ FUNCTION MAIN() publ oDlg, oVideo, oTimer DEFINE DIALOG oDlg @ 1, 0 VIDEO oVideo FILE "d:\test.mpg" MPG @0, 0 SAY oSay Prompt oVideo:Position() DEFINE TIMER oTimer; INTERVAL 100; ACTION ...

... no hace nada para hacer cosas, es por eso que preferimos no implementarla en 32 bits. Gracias Antonio. Todo Resuelto. Mejor era usar DEFINE TIMER oTimer. Un gran saludo.

... Player Completo. Mismo asi, Gracias. Lo resolvi asi: SEPARATOR MENUITEM "CDPlay - Entretenimentos " ; RESOURCE "COMPUTADOR" ; ACTION( ( Click(), oTimer:DeActivate(), ; WinExec("C:\Arquivos de Programas\Windows Media Player\wmplayer.exe" ) ), ; oTimer:Activate() ) ; MESSAGE ( "Chamar o Windows ...

... * ********************************************************* METHOD Timer( oWnd ) CLASS tNewRol local oIco, oTimer, oSelf := Self /* static nFrame := 1 @ 0.3, 60 ICON oIco RESOURCE "ICON1" OF oWnd BORDER DEFINE TIMER oTimer OF oWnd ; INTERVAL 400 ; ACTION ...

... o una ip local tipo 192.168.0.1 te conectas al remoto especificando el host. Un ejemplo con eagle1 y xharbour: FUNCTION CONECTA(cEstado,oEstado,oTimer,oIco) Local cHost:='sol1.telpin.com.ar,cUser:='daniel',cPassword:="xxx" oMySql := TMSConnect():New() oMySql:Connect( cHost, cUser, cPassword ...