El menu creado con Define, desaparece al elegir op
Publicado por Ssjulio (14 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.
Quiero saber como mantener activo y visible el menu, mientras se ejecuta algun formulario dentro de una opcion delmenu.
Les agradesco, desde ya.
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, mpopupWAIT WINDOW 'Ha elegido ' + mprompt + ;
' del menú contextual ' + mpopup NOWAITQuiero 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
0
