FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour buttonbmp - problemas con cambio de versi贸n FWH
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
buttonbmp - problemas con cambio de versi贸n FWH
Posted: Wed Nov 13, 2013 12:13 PM
Buen d铆a,

Acabo de terminar de pasar y renovar una aplicaci贸n compilada con FWH 10.04 a la FWH 13.07 y tengo problemas con los botones.

El problema se da a veces en algunas pc's (las m谩s nuevas), pero hay un par de pc's viejitas que est谩n en la red local y, con la misma aplicaci贸n compilada con FWH10.04 no dan el problema pero con FWH13.07 es constante el problema.

La falla es que al "clickear" sobre un bot贸n, se ejecuta dos veces el action del bot贸n. Por ej. este c贸digo:

Code (fw): Select all Collapse
redefine buttonbmp oBtnAgregar ;
id 4004 OF oDlg ;
action (msgsound(cLocalRaiz+"\AUDIO\lase.wav") , oDbf:SetOrder( 0,".\DB\OTROSPRESU.CDX" 聽),oDbf:append() ,;
聽聽 聽 聽 聽 聽 oBrw:GoLeftMost(),oBrw:nColSel:=1 , oBrw:refresh() , oBrw:gobottom() , oBrw:setfocus() ,;
聽聽 聽 聽 聽 聽 oDbf:FECHA:=date() , 聽;聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽聽 聽 聽 聽 聽 oRichDatos:settext("") , oRichDatos:refresh() , oRichPresu:settext("") , oRichPresu:refresh() ,;
聽聽 聽 聽 聽 聽 oDbf:save() ) ;
update ;
bitmap "AGREGANDO"

oBtnAgregar:cTooltip:="Agregar Presupuesto"
oBtnAgregar:oCursor:=oCur1


Gracias.

Rolando :-)
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: Botones - problemas con cambio de versi贸n FWH
Posted: Wed Nov 13, 2013 02:19 PM

Up

rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: Botones - problemas con cambio de versi贸n FWH
Posted: Fri Nov 15, 2013 02:11 PM

up

rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: buttonbmp - problemas con cambio de versi贸n FWH
Posted: Mon Nov 18, 2013 11:33 AM

Buen d铆a,

Sigo con este tema. Un amigo me recomend贸 cambiar los buttonbmp por btnbmp y efectivamente no hace la falla pero:

驴No hay una forma de usar los buttonbmp sin que ejecuten dos veces el action (sobre todo en pc's mas viejitas)?.

Gracias.

Rolando :D

rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: buttonbmp - problemas con cambio de versi贸n FWH
Posted: Sun Nov 24, 2013 11:44 PM

Buenas noches,

驴A nadie le pas贸?.

驴Nadie usa los buttonbmp sin tener inconvenientes?.

驴Deber茅 cambiar todos por BtnBmp?

Gracias.

Rolando :D

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: buttonbmp - problemas con cambio de versi贸n FWH
Posted: Mon Nov 25, 2013 07:40 AM
Rolando,

Una forma relativamente facil de solucionar el problema es usar una variable para controlar que la acci贸n ya se est谩 ejecutando:

Code (fw): Select all Collapse
function LaAccion()

   static lWorking := .F.

   if ! lWorking
      lWorking = .T.
      ...ejecuta tu acci贸n
      lWorking = .F.
   endif

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Re: buttonbmp - problemas con cambio de versi贸n FWH
Posted: Mon Nov 25, 2013 12:27 PM
Hace tiempo me encontr茅 con ese problema.

En mi caso, despu茅s de revisar encontr茅 que el problema estaba en la funci贸n "msgrun" (No se si, en tu caso, el problema suceda al usar msgsound).

Seg煤n quitaba la funci贸n msgrun, ya no se ejecutaba 2 veces la pulsaci贸n.
Es mas, si el foco, antes de la pulsaci贸n en el bot贸n, esta en un get, que en su valid llama a la funci贸n msgrun, no ejecutaba la pulsaci贸n del bot贸n.

Lo solucion茅 cambiando la funci贸n msgrun:

Code (fw): Select all Collapse
function MsgRun( cCaption, cTitle, bAction )
local h, ...

h := GetFocus()
DEFINE DIALOG...

...

ACTIVATE DIALOG...
SetFocus( h )
return uReturn


Desconozco si ahora funciona sin tener que hacer este cambio. Yo sigo usando el cambio
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: buttonbmp - problemas con cambio de versi贸n FWH
Posted: Mon Nov 25, 2013 01:15 PM
Gracias por responder,

Fernando, el problema no est谩 en lo que sugieres, tengo en el action por ej:

Code (fw): Select all Collapse
action (oBtnProveedor:disable() , BuscoProvedor(oBtnProveedor,oDlg))


E igual se da el problema.

Antonio, lo que sugieres parece no funcionar porque el bot贸n se dispara dos veces (si se prueba varias veces tambi茅n lo hace en W7 64 bits). Lo que propones supongo que funcionar铆a para dialogos tipo MODAL pero yo uso todos dialogos NOWAIT.

Como coment茅, usando botones tipo btnbmp NO DA EL PROBLEMA y, si compilo el programa con FWH10.04 TAMPOCO da el problema.

Se me ocurri贸 revisar la clase y no encontr茅 diferencias entre la 10.04 y la 13.07, (salvo en dos m茅thods que ya ten铆a reformados).

Entonces compil茅 con FWH1307 e inclu铆 el buttonb.prg de la 10.04 y la falla es la misma. De esto deduzco que el problema deber铆a estar en la versi贸n del xHarbor que utiliza el FWH13.07.

Si no encuentro soluci贸n, deber茅 cambiar todos los botones de la aplicaci贸n y es una l谩stima, adem谩s de por el trabajo que eso conlleva, porque particularmente los ButtonBmp son visiblemente m谩s est茅ticos, con bordes redondeados, etc.

Gracias.

Rolando :-)

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions