Tecla Alt en Ribbon

Tecla Alt en Ribbon

Postby horacio » Wed Nov 19, 2014 2:43 pm

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.
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby horacio » Sat Nov 22, 2014 2:29 pm

Adjunto código que falla

Code: Select all  Expand view

#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
   
 


Las herramientas que uso para este proyecto FWH14.09, Harbour 3.2.0dev (r1406271520), BCC582. Gracias

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby Antonio Linares » Sun Nov 23, 2014 6:53 am

Horacio,

Si pruebas el ejemplo FWH\samples\ribbon.prg verás que al pulsar Alt las opciones numéricas aparecen correctamente:

Image

Es a esto a lo que te refieres ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Tecla Alt en Ribbon

Postby horacio » Sun Nov 23, 2014 10:20 am

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
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby karinha » Mon Nov 24, 2014 6:58 pm

Code: Select all  Expand view

    Define Ribbonbar oRBar Window oWndMain Height 112 TopMargin 40 prompts 'EMPLEADOS', "CONCEPTOS", 'FACTURACION', 'RECIBOS', 'ADMINISTRACION' // 2013
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Tecla Alt en Ribbon

Postby horacio » Mon Nov 24, 2014 7:19 pm

Gracias 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
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby Antonio Linares » Tue Nov 25, 2014 6:18 am

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! :-D
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Tecla Alt en Ribbon

Postby horacio » Fri Nov 28, 2014 9:13 am

Alguna sugerencia ??? Gracias.

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby Antonio Linares » Fri Nov 28, 2014 5:30 pm

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í :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Tecla Alt en Ribbon

Postby horacio » Fri Nov 28, 2014 5:44 pm

Muchísimas gracias Antonio

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby Daniel Garcia-Gil » Fri Nov 28, 2014 9:39 pm

Saludos

a la brevedad posible lo reviso...
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Tecla Alt en Ribbon

Postby Daniel Garcia-Gil » Sat Nov 29, 2014 2:24 pm

Saludos

localiza esta linea dentro del archivo tribbon.prg, methodo: PaintAccControls

Code: Select all  Expand view
nToNum    := Max( 0, ( nLen % 10 ) - 1 )


cambiala por esta otra

Code: Select all  Expand view
nToNum    = Max( 0, if( nLen % 10 == 0, 10, nLen % 10 ) - 1)


prueba y nos comentas como te va para actualizar (hasta ahora a mi me funciona)
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Tecla Alt en Ribbon

Postby horacio » Sun Nov 30, 2014 5:58 pm

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
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Tecla Alt en Ribbon

Postby Daniel Garcia-Gil » Sun Nov 30, 2014 8:53 pm

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
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Tecla Alt en Ribbon

Postby horacio » Mon Dec 01, 2014 12:46 pm

Daniel, está bien para mi. Gracias por tu ayuda.

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 2 guests