FoxPro/Visual FoxPro - Amigo Plinio Help

 
Vista:
sin imagen de perfil

Amigo Plinio Help

Publicado por neo (1604 intervenciones) el 16/05/2007 16:49:54
Acerca de Menus Sexys 1:

Por ahora estoy haciendo pruebas con los menus que nos pasaste. (muy interesnate por cierto); Tengo una duda:

A qué se refiere .nHiliteStyle = ODHS_ALL
Ya que me manda un error "No se encuentra la Variable ODHS_ALL."

Aqui te dejo los cambios que le hice:

lc_GraphDir = ADDBS(HOME(7)) && Inicialmente estaba en 4

With po_Menu
.hWndParent = _VFP.hWnd

** Set menu properties
Store .F. to .lUseGradientPad, .lFullRectLine, .lThemed
.lUseGradient = .T.

.nHiliteStyle = ODHS_ALL
.SetRightColor( GetSysColor( COLOR_WINDOW ), .F. )

** Create Main Menu Pad
Dimension .aMenuPad[ 2, 2 ]
.aMenuPad[ 1, 1 ] = 'Información'
.aMenuPad[ 1, 2 ] = '1' && Key is Alt+1

.aMenuPad[ 2, 1 ] = 'Consultas'
.aMenuPad[ 2, 2 ] = '2' && Key is Alt+2
.CreatePad()

Gracias►
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

RE:Amigo Plinio Help

Publicado por Plinio (7841 intervenciones) el 16/05/2007 17:15:34
Verifica si tienes en el mismo folder un archivo llamado API_Menu.h
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
sin imagen de perfil

RE:Otra duda Plinio, Help

Publicado por neo (1604 intervenciones) el 16/05/2007 17:49:35
Gracias, solucionado!!

Otra Duda:

Para invocar un formulario en los Items como debo hacerlo, lo tengo asi:

Procedure OnSelection( tn_MenuPos, tn_ItemId )
Do case
Case (tn_MenuPos == 1)
FirstMenu( tn_MenuPos, tn_ItemId - 1000 )
Otherwise
DO FORM altas.scx
EndCase
EndProc

Procedure FirstMenu( tn_MenuPos, tn_ItemPos )
Local lc_Msg
With po_Menu
Do case
Case (tn_ItemPos == 1)
DO FORM Modificacion.scx
EndCase
EndWith
EndProc

&& Y en Altas cuando doy Click me abre pero el formulario "Modificar" y no el de "Altas"

Gracias de nuevo...
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

RE:Otra duda Plinio, Help

Publicado por Plinio (7841 intervenciones) el 16/05/2007 19:06:03
Pon un SET STEP ON para ver el cuerso de tu 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
sin imagen de perfil

RE:Si pero..

Publicado por neo (1604 intervenciones) el 16/05/2007 19:42:30
Como debo invocar un form en un menu creado por prg??

Es decir, como le digo al item o seleccion de lista 1 (Altas) que abra el formulario "Altas.scx".

Procedure Click?? o On Selection??

Nota: Cabe mencionar que, Siempre he creado los menus por medio de la Opcion Otros / Menu..nunca por prg.

Gracias►
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

RE:Si pero..

Publicado por Plinio (7841 intervenciones) el 16/05/2007 20:22:00
Fijate en el ejemplo, frm_popupmenu.scx. Si vas al metodo Onselecction te das cuenta que el pregunta por el numero de opcion, presionada. Este menu esta usando tecnicas de Bindevend para ejecutar los metodos que estan en el formulario
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
sin imagen de perfil

RE:Amigo Plinio..

Publicado por neo (1604 intervenciones) el 16/05/2007 20:39:29
Ese formulario ya lo habia visto justo antes de modificar codigo.

He cambiado los nombres del menu, pero no he logrado ejecutar un formulario por medio del click en un item.

Pregunto:
¿Acaso no existirá otra forma de crear menus así, pero sin que se utilice tanto codigo??

Nota: Me gusta el Entorno de este menú, pero es un tanto complejo el codigo. Creo que me llevaría unos dias entenderlo.

Gracias►
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

RE:Amigo Plinio..

Publicado por Plinio (7841 intervenciones) el 16/05/2007 20:43:52
A veces en los ejemplos le complican la vida a uno. Si me lo recuerda para el Fin de semana te puedo preparar un ejemplo, ahora mismo estoy bieeeeeeen lejos de mi oficina, me reintrego el Viernes.
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
sin imagen de perfil

RE:Amigo Plinio..

Publicado por neo (1604 intervenciones) el 16/05/2007 20:56:24
Te lo agradeceré enormemente....

Un Cordial Saludo►
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

RE:Amigo Plinio..

Publicado por Plinio (7841 intervenciones) el 16/05/2007 22:29:08
Realmente estoy trabajando, y de a mucho, lo que pasa es que no ando con mi pc principal. Estoy a mas de 400 kms de casa.
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