Colegas, estoy utilizando una ribbonbar con estilo 2013, cuando pulso la tecla alt se supone que a cada uno de los botones debería asignarle una tecla. En este estilo parece que no funciona. Adjunto una imagen
http://imageshack.com/a/img908/5702/dn2bly.jpg
Alguna idea ? Muchas gracias.
#include 'fivewin.ch'
#include 'xbrowse.ch'
#include 'ribbon.ch'
#include 'ado.ch'
Static oRs
Static oBrw1
Static oBrw2
Static oBrw3
Static oRBar
Static oWndMain
Static oMsgBar
Static oWndChild
Static oWndChild2
//----------------------------------------------------------------------------//
Function Main()
DefineEntorno()
Start()
Return 0
//----------------------------------------------------------------------------//
Function DefineEntorno()
Memvar oVar
Set Epoch To 1950
Set Date To British
Set Delete On
Set Autopen Off
Set Softseek On
Set Century On
Set Confirm On
Set Decimals To 2
Set Fixed Off
Set Exact on
Set( _SET_INSERT, !Set( _SET_INSERT ) )
SetGetColorFocus( nRgb( 235, 245, 255 ) )
Request HB_LANG_ES
Hb_LangSelect("ES")
SetHandleCount( 200 )
Request DBFCDX
RddSetDefault( "DBFCDX" )
Request HB_CODEPAGE_ESWIN
Set( _SET_CODEPAGE, "ESWIN" )
XbrNumFormat( "E", .t. )
SetBalloon( .f. )
Return 0
//----------------------------------------------------------------------------//
Function Start()
Local oGr1_1
Local oGr2_1
Local oGr3_1
Local oGr6_1
Local oGr5_1
Local oGr7_1
Local oFont1
Local oMenu
Local oBtn1_1_1
Local oBtn2_1_1
Local oBtn3_1_1
Local oBtn1_2_1
Local oBtn2_2_1
Local oBtn1_5_1
Local oBtn1_3_1
Local oBtn2_3_1
Local oBtn3_6_1
Local oBtn4_3_1
Local oBtn4_6_1
Local oBtn := Array( 2, 0 )
Local nOption := 1
Define Font oFont1 Name "Segoe UI" Size 0, -14
Define Window oWndMain MDI Color 0, CLR_WHITE Menu MainMenu() Title 'COLEGIO PERALTA RAMOS - MDQ' //NoSysMenu
Define Ribbonbar oRBar Window oWndMain Height 112 TopMargin 40 prompts 'EMPLEADOS', "CONCEPTOS", 'FACTURACION', 'RECIBOS', 'ADMINISTRACION' 2013
Add Group oGr1_1 Ribbon oRBar TO Option 1 Prompt "operaciones" Width 207
@ 003, 003 Add Button oBtn1_1_1 Bitmap "new" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Altas'
@ 003, 053 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 103 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Bajas'
@ 003, 153 Add Button oBtn3_1_1 Bitmap "historico" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Histórico'
Add Group oGr2_1 Ribbon oRBar TO Option 1 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
Add Group oGr5_1 Ribbon oRBar TO Option 1 Prompt "filtros" Width 75
@ 003, 003 Add Button oBtn1_5_1 Bitmap "filtro" Group oGr5_1 Action .t. Size 70, 50 Popup Top Menu Popup() Tooltip 'Filtros'
Add Group oGr3_1 Ribbon oRBar TO Option 1 Prompt "facturación" Width 107
@ 003, 003 Add Button oBtn1_3_1 Bitmap "ctacte" Group oGr3_1 Action .t. Size 50, 50 Top Tooltip 'Cuenta corriente'
@ 003, 053 Add Button oBtn2_3_1 Bitmap "cobrar" Group oGr3_1 Action .t. Size 50, 50 Top Tooltip 'Cobros'
Add Group oGr6_1 Ribbon oRBar TO Option 1 Prompt "cursos" Width 56
@ 003, 003 Add Button oBtn4_6_1 Bitmap "estadistica" Group oGr6_1 Action .t. Size 50, 50 Tooltip 'Estadistica de cursos'
//conceptos
Add Group oGr1_1 Ribbon oRBar TO Option 2 Prompt "operaciones" Width 156
@ 003, 003 Add Button oBtn1_1_1 Bitmap "new" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Altas'
@ 003, 053 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 103 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Bajas'
Add Group oGr2_1 Ribbon oRBar TO Option 2 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
Add Group oGr5_1 Ribbon oRBar TO Option 2 Prompt "filtros" Width 75
@ 003, 003 Add Button oBtn1_5_1 Bitmap "filtro" Group oGr5_1 Action .t. Size 70, 50 Popup Top Menu Popup() Tooltip 'Filtros'
//tabla facturas
Add Group oGr1_1 Ribbon oRBar TO Option 3 Prompt "operaciones" Width 107
@ 003, 003 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 053 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Anulación'
Add Group oGr2_1 Ribbon oRBar TO Option 3 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
oRBar : SetOption( nOption )
oRBar : nHeightFld := 40
oRBar : nClrBoxSelOut := { CLR_GREEN }
oMsgBar := TMsgBar() : New( oWndMain, '', .f., .f., .f., .f.,;
CLR_BLACK, CLR_WHITE, oFont1, .f. , .f. , .f. )
@ 05, ScreenWidth() - 80 BtnBmp oBtn[ 1 ] Of oRBar Size 32, 32 Pixel Action oWndMain : End() Transparent l2007 File "C:\muestra\imagenes\mano2.bmp" NoBorder //Design
Activate Window oWndMain Maximized
Return 0
//----------------------------------------------------------------------------//
Function MainMenu()
Local oMenu
Menu oMenu
EndMenu
Return oMenu
Antonio, efectivamente a eso me refiero. Se supone que las opciones numéricas sirven para trabajar desde el teclado. Si pulso ALT en la primera pestaña solo aparecen las opciones numéricas de las pestañas y no la de los botones pertenecientes a ella, cuando paso a la segunda pestaña si aparecen las opciones de los controles. Pero en el estilo 2013 cuando paso de la segunda pestaña ( siempre trabajando con el teclado ) a la primera pestaña solo aparece el primer botón con la opción numérica, en el resto de los controles no. Se ve como la imagen adjunta en el primer post y se puede ver esta falla en el código que adjunté. Gracias
Saludos
Define Ribbonbar oRBar Window oWndMain Height 112 TopMargin 40 prompts 'EMPLEADOS', "CONCEPTOS", 'FACTURACION', 'RECIBOS', 'ADMINISTRACION' // 2013Gracias karinha por responder. Tu solución no me sirve ya que tengo bastante avanzado el proyecto con este estilo y de todas maneras no lo solucionaría del todo porque si presiono alt me aparecen las opciones de las pestañas y no la de los controles que pertenecen a ella. Gracias nuevamente.
Saludos
Horacio,
De momento la RibbonBar de FWH sólo muestra los números en las pestañas.
No sé como de complicado pueda ser el mostrarlos en los controles. Daniel Garcia es el genio que construyó la RibbonBar y nos la regaló, y seguro él mejor que nadie podría ayudarnos en esto 
Daniel! 
Alguna sugerencia ??? Gracias.
Saludos
Horacio,
Le acabo de enviar un email a Daniel para que revise esta conversación y el mismo nos valore como de complicado ó fácil pueda ser implementar lo que necesitas
le pedí que contestase aquí
Muchísimas gracias Antonio
Saludos
Saludos
a la brevedad posible lo reviso...
nToNum := Max( 0, ( nLen % 10 ) - 1 )nToNum = Max( 0, if( nLen % 10 == 0, 10, nLen % 10 ) - 1)Gracias Daniel, perfecto con eso se arreglaría el estilo 2013 pero se me ocurre que el comportamiento cada vez que se presiona la tecla ALT sería que aparezcan las teclas aceleradoras para las pestañas y también para los controles de la pestaña actual Nuevamente gracias.
Saludos
Horacio
te entiendo, pero la intencion fue tratar de simular lo mas posible la clase ribbon de window, no me gustaria hacer algo distinto a como se hace originalmente, verifica si window tiene el comportamiento que tu deseas y vemos que podemos hacer
Daniel, está bien para mi. Gracias por tu ayuda.
Saludos