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


0