topic-11087

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Alinear Aceleradores en el Menu
Posted: Sat May 10, 2008 05:44 PM

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 Collapse

#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 Collapse

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

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Alinear Aceleradores en el Menu
Posted: Mon May 12, 2008 12:02 AM

Prueba así

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

Saludos

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Alinear Aceleradores en el Menu
Posted: Mon May 12, 2008 10:27 PM

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 Collapse

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

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

FiveTech Support Forums

Continue the discussion