Alinear Aceleradores en el Menu

[cuatecatl82]

Saludos a todos:

Tengo una duda sobre la alineación de los Aceleradores en los menus, ya que he buscado en el foro como vizualizarlos, pero se ven desalineados, me pregunto si habrá alguna forma de hacer que todos los aceleradores se vean en columna como lo hacen las otras aplicaciones:



He intentado esto:

Code: Select all  Expand view  RUN

#Define TAB Chr(9)  // <TABS>

              MENUITEM "Productos "                                  ;
              + TAB + "Alt+P"                                                ;
              RESOURCE "Prod"                                          ;
              ACCELERATOR ACC_ALT, ASC( "P" )                                ;
              ACTION( Productos() )

              SEPARATOR
              MENUITEM "Clientes "                                ;
              + TAB + "Shift+C"                                          ;
              ACCELERATOR ACC_SHIFT, ASC( "C" )                          ;
              RESOURCE "Clien"                                       ;
              ACTION( Clientes() )

y tambien he probado asignandole espacios de tal manera que la longitud de los textos sean iguales pero tampoco funciona:

Code: Select all  Expand view  RUN


              MENUITEM "Productos          ALT+P"                                                ;
              RESOURCE "Prod"                                          ;
              ACCELERATOR ACC_ALT, ASC( "P" )                                ;
              ACTION( Productos() )

              SEPARATOR
              MENUITEM "Clientes          Shift+C"                                          ;
              ACCELERATOR ACC_SHIFT, ASC( "C" )                          ;
              RESOURCE "Clien"                                       ;
              ACTION( Clientes() )

Oja ay alguien me pueda hechar una manita con esto. gracias anticipadas..

[horacio]

Prueba así

MenuItem aoSub[ 14 ] Prompt '&Cambio de Empresa' + Chr( 9 ) + 'Ctrl-F2' Action Seleccionalo()

Saludos

[cuatecatl82]

Horacio:

Gracias por responder, volví a retomar el mismo procedimiento, solo que agregue un pequeño truco, que la verdad no pense que funcionara pero lo logre, concistio en agregar espacios en blanco, con lo cual quedo solucionado.

Les dejo como quedo, por si alguien mas le sirve:

Code: Select all  Expand view  RUN

MENUITEM "&Archivo"                                                                                                                                     
      MENU
         MENUITEM '&Almacénes'          +SPACE(20)+CHR(9)+'F12'       ACCELERATOR 0,          VK_F12     
         SEPARATOR
         MENUITEM 'Pr&oveedores'                                                                         
         MENUITEM '&Familias'                                                                             
         MENUITEM '&Productos'          +SPACE(15)+CHR(9)+'Ctrl+P'    ACCELERATOR ACC_CONTROL, ASC("P")   
         SEPARATOR
         MENUITEM '&Inventario Inicial'                                                                   
         SEPARATOR
         MENUITEM '&Clientes'           +SPACE(18)+CHR(9)+'Shift+C'   ACCELERATOR ACC_SHIFT,   ASC("C")   
         SEPARATOR
         MENUITEM '&Usuarios'           +SPACE(18)+CHR(9)+'Ctrl+U'    ACCELERATOR ACC_CONTROL, ASC("U")   
         SEPARATOR
         MENUITEM '&Salir'              +SPACE(25)+CHR(9)+'Alt+F4'    ACCELERATOR ACC_ALT,     VK_F4     
      ENDMENU
ENDMENU

Es muy raro este procedimiento, pero funciono...

Saludos..