:D :D :D :D y eso es muy bueno, @10, 10 SAY oSay PROMPT "texto que parpadea" ; SIZE 200, 24 PIXEL OF ::oBar FONT oBold TRANSPARENT COLOR CLR_RED [b]BLINK[/b] Faltaría el method blink :shock: saludos Maestro !
prueba haciendo estos cambios: DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo)) //REDEFINE SAY oVeoRamo VAR cVeoRamo PICTURE "@K!" ID Ma_VeoRamo OF oDlgMaREDEFINE SAY oVeoRamo ID Ma_VeoRamo OF oDlgMaoVeoRamo:SetText(cVeoRamo) Function Fnct_B...
Pueda que esto te sirva, a mi me funciona bien DEFINE DIALOG oDlg FONT oFont RESOURCE "IMPOREXPOR" TITLE cMensa DEFINE TIMER oTmr INTERVAL 1000 ACTION Blinker(oSay, oTmr) REDEFINE XIMAGE oImg RESOURCE "EXCEL2DB" ID 100 OF oDlg REDEFINE SAY oSay VAR cMen ...
Estimado José. Si saco los refresh() ( que lo hice ) no me actualiza ni el get ni el detalle la variable se pasa con @ pero se recibe sin ella. Todo lo sugerido lo intente y no va. asi me quedo el codigo en discordia Function Materiales() local ...... DEFINE DIALOG oDlgMa RESOURCE "Material&quo...
Si pasas el codigo completo, creo que seria mas facil ayudarte. Por lo pronto, comenta esta parte .and. (oRamo:Refresh(),oVeoRamo:Refresh(),.t.) no le veo el sentido, creo que eso hace que no se ejecute el valid, ponla asi: valid veoramo(@nRamo,@cVeoRamo) //.and. (oRa...
... 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) pasando el objeto porque no es publico sin tocar la funcion Fnct_Blinker y tampoco logro el parpadeo, es mas no me realiza ningun cambio. Esta es muy parecida a una propuesta de WILLIY que tampoco logro hacer funcionar lo dicho. algo estoy ...
José, Te doy una idea, si te sirve así, puedes adaptarla a tu caso. Yo lo hago simulando el parpadeo mostrando/ocultando el SAY con el uso de un timer Define Dialog oDlg_EditarPromotores resource "oDlg_NewPromotor" title 'Actualizar cambios en este Promotor' ...