FoxPro/Visual FoxPro - El menu creado con Define, desaparece al elegir op

   
Vista:

El menu creado con Define, desaparece al elegir op

Publicado por Ssjulio (13 intervenciones) el 06/03/2011 20:25:24
Hola amigos programadores, expongo lo siguiente, con la intención de solicitarles de su apoyo, a ver si alguien ha resuelto algo similar.

Estoy interesado, en incluir en mi sistema un menu mas personalizado, con un tamaño de fuente mas grande del Estandar que crea automaticamente Visual Fox, y parece que solamanete se puede lograr creando un menu mediante codigo, asi que encontr el siguiente ejemplo, y en apriencia, si cumple con lo que busco, pero resulta, que al elegir una opción del menu o al hacer clic en la ventana de VFP, inmediatamente el menu desaparece.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
*** Llame a este programa DEFIMENU.PRG ***
CLEAR
SET SYSMENU SAVE
SET SYSMENU TO
ON KEY LABEL ESC KEYBOARD CHR(13)
DEFINE MENU ejemplo BAR AT LINE 1
DEFINE PAD convpad OF ejemplo PROMPT '\<Conversiones' COLOR SCHEME 3 ;
   KEY ALT+C, '';
   FONT "ARIAL", 16 style "I"
DEFINE PAD cardpad OF ejemplo PROMPT '\<Info tarjeta' COLOR SCHEME 3 ;
   KEY ALT+I, '';
   FONT "ARIAL", 16 style "B"
ON PAD convpad OF ejemplo ACTIVATE POPUP conversión
ON PAD cardpad OF ejemplo ACTIVATE POPUP infotarj
DEFINE POPUP conversión MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF conversión PROMPT 'Ár\<ea' ;
   KEY CTRL+E, '^E'
DEFINE BAR 2 OF conversión PROMPT '\<Longitud' ;
   KEY CTRL+L, '^L'
DEFINE BAR 3 OF conversión PROMPT 'Ma\<sa' ;
   KEY CTRL+S, '^S'
DEFINE BAR 4 OF conversión PROMPT 'Veloci\<dad' ;
   KEY CTRL+D, '^D'
DEFINE BAR 5 OF conversión PROMPT '\<Temperatura' ;
   KEY CTRL+T, '^T'
DEFINE BAR 6 OF conversión PROMPT 'T\<iempo' ;
   KEY CTRL+I, '^I'
DEFINE BAR 7 OF conversión PROMPT 'Volu\<men' ;
   KEY CTRL+M, '^M'
ON SELECTION POPUP conversión DO choice IN defimenu WITH PROMPT( ), POPUP( )
DEFINE POPUP infotarj MARGIN RELATIVE COLOR SCHEME 4
DEFINE BAR 1 OF infotarj PROMPT '\<Ver cargos' ;
   KEY ALT+V, ''
DEFINE BAR 2 OF infotarj PROMPT 'Ver \<pagos' ;
   KEY ALT+P, ''
DEFINE BAR 3 OF infotarj PROMPT 'Ve\<r usuarios' ;
   KEY ALT+R, ''
DEFINE BAR 4 OF infotarj PROMPT '\-'
DEFINE BAR 5 OF infotarj PROMPT '\<Cargos '
ON SELECTION POPUP infotarj;
   DO choice IN defimenu WITH PROMPT( ), POPUP( )
 
ACTIVATE MENU ejemplo
DEACTIVATE MENU ejemplo
RELEASE MENU ejemplo EXTENDED
SET SYSMENU TO DEFAULT
ON KEY LABEL ESC
 
PROCEDURE choice
PARAMETERS mprompt, mpopup
WAIT WINDOW 'Ha elegido ' + mprompt + ;
    ' del menú contextual ' + mpopup NOWAIT

Quiero saber como mantener activo y visible el menu, mientras se ejecuta algun formulario dentro de una opcion delmenu.

Les agradesco, desde ya.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

El menu creado con Define, desaparece al elegir op

Publicado por Juan Manuel Cruz (508 intervenciones) el 07/03/2011 12:06:10
Resulta bastante obvio que el problema está en tus penúltimas líneas de código.

Lo activas, y luego lo estás desactivando y eliminando de memoria.

ACTIVATE MENU ejemplo
DEACTIVATE MENU ejemplo
RELEASE MENU ejemplo EXTENDED
SET SYSMENU TO DEFAULT
ON KEY LABEL ESC

Ahí la causa, quita lo que viene después del ACTIVATE MENU EJEMPLO y ponlo en un procedimiento de salida, por ejemplo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

El menu creado con Define, desaparece al elegir op

Publicado por SSJULIO (13 intervenciones) el 12/03/2011 17:56:49
Gracias Juan Manuel.

Tienes mucha razon, con esas lineas que comentas, si se estaba desactivando el menu.

pero ademas a la instruccion ACTIVATE MENU EJEMPLO que esta en el ejemplo, le hace falta el comando "NOWAIT", para que no se oculte automaticamente el menu.

Hasta ahorita solo hice pruebas en el ejemplo, luego lo implementare al sistema y te comento los resultados.

Pero si te agradesco tu apoyo, Te debo un pozol de cacao chiapaneco, o unas Micheladas.

Saludos

desde Chiapas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

El menu creado con Define, desaparece al elegir op

Publicado por Akaishu (1 intervención) el 12/10/2016 16:07:56
tio has terminado el programa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar