FICHERO HELP - AYUDA

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 230
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 5 times
Been thanked: 6 times

FICHERO HELP - AYUDA

Post by SALINETAS24 » Fri Sep 28, 2018 8:20 pm

Hola todos, estoy haciendo unas pruebas con el PROGRAMA HELP que viene en los SAMPLES. He modificado el primer boton y llamo a una ventana que pide un dato. Si pulsamos F1 cuando esta en el TEXTBOX nos abre por dos veces el fichero de ayuda.., dos veces :evil: . He realizado varias pruebas y siempre hace lo mismo.., dos veces.
Alguien sabe algo al respecto. Os paso el fichero comprimido para que lo comprobeis.

Muchas gracias y una cervecita bien fresquita...
Attachments
Help.rar
(2.09 MiB) Downloaded 25 times

User avatar
serge_girard
Posts: 2164
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 470 times
Been thanked: 108 times
Contact:

Post by serge_girard » Sat Sep 29, 2018 7:12 am

Hello,

I run your demo and pressing F1 gives only 1 (one) help!
I use W7-Pro.

Serge

User avatar
SALINETAS24
Posts: 230
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 5 times
Been thanked: 6 times

Post by SALINETAS24 » Sun Sep 30, 2018 11:06 am

Hola Serge, gracias por contestar.
Yo uso Window XP y Window 7 Home Premium, en y ambos caso obtengo el mismo resultado.
Me ejecuta 2 veces a llamada.
¿Acaso algunas funciones HMG son mejores en algunas versiones de Window..?

inacihn
Posts: 22
Joined: Wed Oct 17, 2018 4:46 am
DBs Used: DBF

Post by inacihn » Thu Nov 08, 2018 5:59 am

Un saludo.

Hice el test con w8.1 pro y efectivamente en la ventana definida como MAIN solo llama una vez el fichero de ayuda, y no se repite el llamado, al usarlo en otras ventanas llama dos veces, aúnque ya haya sido abierto en otra ventana.

Mi solución de urgencia fué:

ON KEY F1 ACTION AYUDA() // en cada definición de ventana

Function Ayuda() // Para llamar el fichero Ayuda y dar al usuario el control de la decisión de volver a llamarlo.
If vistahelp = 0
DISPLAY HELP MAIN
vistahelp= 1
Else
If (MsgOkCancel ("¿ Desea abrir nuevamente el manual de ayuda ?", ["Manual de Ayuda"] )=.f.)
return
Endif
DISPLAY HELP MAIN
Endif
return nil

Post Reply