Hola a todos:
Me acabo de dar cuenta de una cosa muy extra帽a y no se como solucionarlo, es lo siguiente en cualquier tipo de bot贸n o por lo menos los dos que yo utilizo (BUTTON y BNTBMP) cuando utilizas una combinaci贸n de teclas para hacer lo mismo con el teclado que pulsando con el rat贸n y lo que haces es ocultar la ventana donde est谩s y crear una nueva esta se duplica. Sin embargo si lo que haces es eliminar la ventana primera y crear la segunda en este caso crea solo una y si pulsas el bot贸n con el rat贸n tambi茅n lo hace bien.
Pongamos un ejemplo: Yo tengo una ventana wGestPunt que entre otras muchas cosas tiene este bot贸n con una imagen y un PROMPT (LocaText(2,1,85) = C&liente") y ejecuta Nue2Punt()
Cuando pulso el bot贸n me lo hace todo correcto oculta wGestPunt y crea una wGestPunt1 pero si pulso la combinaci贸n de ALT+L lo que hace es crearme dos wGestPunt1 una encima de otra pero separ谩ndolas se ven as铆:
Y se cierra una de las dos ventanas pero la otra no hay forma de cerrarla.
Pero si cambio la l铆nea :
wGestPunt:Hide()
por
wGestPunt:End()
Entonces si lo hace bien y crea solo una ventana wGestPunt1.
Alguien me podr铆a ayudar.
Gracias
Un saludo
Carlos
Me acabo de dar cuenta de una cosa muy extra帽a y no se como solucionarlo, es lo siguiente en cualquier tipo de bot贸n o por lo menos los dos que yo utilizo (BUTTON y BNTBMP) cuando utilizas una combinaci贸n de teclas para hacer lo mismo con el teclado que pulsando con el rat贸n y lo que haces es ocultar la ventana donde est谩s y crear una nueva esta se duplica. Sin embargo si lo que haces es eliminar la ventana primera y crear la segunda en este caso crea solo una y si pulsas el bot贸n con el rat贸n tambi茅n lo hace bien.
Pongamos un ejemplo: Yo tengo una ventana wGestPunt que entre otras muchas cosas tiene este bot贸n con una imagen y un PROMPT (LocaText(2,1,85) = C&liente") y ejecuta Nue2Punt()
@359*ProPorV,1040*ProPorH BTNBMP xPul11 FILE xruta + "clie.bmp" PROMPT space(10) + LocaText( 2, 1, 85) OF wGestPunt PIXEL SIZE 190*ProPorH, 40*ProPorV FONT xFont ACTION Nue2Punt() LEFT
FUNCTION Nue2Punt()
wGestPunt:bKeyDown 聽= { | nKey 聽 聽 聽 | contpunt2 聽( nKey 聽 聽 聽 ) }
xOpc1 = 2
va067 = va107
va069 = va107
va068 = va108
SELECT 8
seek va067
wGestPunt:Disable()
wGestPunt:Hide()
CreaVent(110,350,"wGestPunt1","oVentPrinc",Locatext( 1, 2, 24),"NO")
xIniBot = (xLar - 160) / 2
@ 10*ProporV, 20*ProporH SAY tDlg060 VAR LocaText( 1, 1,136) OF wGestPunt1 PIXEL COLOR escri1, fondo1 FONT xFont SIZE 130*ProporH,xProPorV*ProPorV
@ 10*ProporV,220*ProporH SAY tDlg061 VAR LocaText( 1, 1,211) OF wGestPunt1 PIXEL COLOR escri1, fondo1 FONT xFont SIZE 130*ProporH,xProPorV*ProPorV
@ 30*ProporV, 10*ProporH SAY vDlg060 VAR " " + nombre 聽 聽OF wGestPunt1 PIXEL COLOR escri3, fondo3 FONT xFont SIZE 321*ProporH,xProPorV*ProPorV BORDER
@ 10*ProporV,130*ProporH GET gDlg060 VAR va067 聽 聽 聽 聽 聽 OF wGestPunt1 PIXEL COLOR escri2, fondo2 FONT xFont SIZE 聽78*ProporH,xProPorV*ProPorV PICTURE "!!!!!!!!!" valid BuC2Punt()
@ 10*ProporV,285*ProporH GET gDlg061 VAR va068 聽 聽 聽 聽 聽 OF wGestPunt1 PIXEL COLOR escri2, fondo2 FONT xFont SIZE 聽46*ProporH,xProPorV*ProPorV PICTURE "##.##" RIGHT
@(xAnc-50)*ProPorV,(xIniBot 聽 聽)*ProPorH BTNBMP xPul60 FILE xruta + "sele.bmp" TOOLTIP LocaText( 2, 1, 聽6) OF wGestPunt1 PIXEL SIZE 聽70*ProPorH, 40*ProPorV FONT xFont ACTION Nue2Punt1(1)
@(xAnc-50)*ProPorV,(xIniBot+ 80)*ProPorH BTNBMP xPul61 FILE xruta + "canc.bmp" TOOLTIP LocaText( 2, 1, 16) OF wGestPunt1 PIXEL SIZE 聽70*ProPorH, 40*ProPorV FONT xFont ACTION Nue2Punt1(2)
@-1,0 BUTTON xPul71 PROMPT LocaText( 2, 1, 聽6) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽OF wGestPunt1 ACTION Nue2Punt1(1) 聽SIZE 0,0
@-1,0 BUTTON xPul72 PROMPT LocaText( 2, 1, 16) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽OF wGestPunt1 ACTION Nue2Punt1(2) 聽SIZE 0,0
xPul71:bGotFocus:={||xPul60:SetFocus()}
@ 10*ProPorV,100*ProPorH 聽 聽 聽 聽 聽 聽 聽 聽 BUTTON xPul62 PROMPT "?" OF wGestPunt1 PIXEL SIZE 聽16*ProPorH,xProPorV*ProPorV FONT xFont ACTION BuC2Punta()
gDlg060:SetFocus()
RETURN (NIL)Cuando pulso el bot贸n me lo hace todo correcto oculta wGestPunt y crea una wGestPunt1 pero si pulso la combinaci贸n de ALT+L lo que hace es crearme dos wGestPunt1 una encima de otra pero separ谩ndolas se ven as铆:
Y se cierra una de las dos ventanas pero la otra no hay forma de cerrarla.
Pero si cambio la l铆nea :
wGestPunt:Hide()
por
wGestPunt:End()
Entonces si lo hace bien y crea solo una ventana wGestPunt1.
Alguien me podr铆a ayudar.
Gracias
Un saludo
Carlos
Colt Hop ED, S.L.
Carlos Blas Fern谩ndez Dom铆nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Carlos Blas Fern谩ndez Dom铆nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
