Una sobre RIBBONBAR (SOLUCIONADO)

[Armando]

Saludos al todo el foro, feliz inicio de mes:

Para crear una RIBBONBAR tengo el siguiente trozo de código con el PROMPT de forma constante y funciona al 100

Code: Select all  Expand view  RUN

      DEFINE RIBBONBAR oRibbon WINDOW oWindow PROMPT "Ventas",;               //  1
                                                      "Cuentas por cobrar",;  //  2
                                                      "Compras",;             //  3
                                                      "Cuentas por pagar",;   //  4
                                                      "Nóminas",;             //  5
                                                      "Proyectos",;           //  6
                                                      "Almacén",;             //  7
                                                      "Consultas",;           //  8
                                                      "Archivos",;            //  9
                                                      "Soporte",;             // 10
                                                      "Ayuda" ;               // 11
                                                      HEIGHT 120 TOPMARGIN 25
 

Ahora, necesito que el PROMPT sea variable y lo defino así:

Code: Select all  Expand view  RUN

   cTxt := "Ventas" +;
            ",Cuentas por cobrar" +;
            ",Compra" +;
            ",Cuentas por pagar" +;
            ",Nóminas" +;
            ",Proyectos" +;
            ",Almacén" +;
            ",Consultas" +;
            ",Archivos" +;
            ",Soporte" +;
            ",Ayuda"

DEFINE RIBBONBAR oRibbon WINDOW oWindow PROMPT cTxt HEIGHT 120 TOPMARGIN 25
 

Me tira el ERROR NON DEFINED DIALOGS

Alguna sugerencia?

[Antonio Linares]

Estimado Armando,

Si revisas el comando puedes ver que espera una lista de palabras que se transforma en un array:

[ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ]

Code: Select all  Expand view  RUN

#xcommand DEFINE RIBBONBAR [ <oRBar> ] ;
                           [ <of:OF, WINDOW> <oWnd> ] ;
                           [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
                           [ <act: ACTION, EXECUTE, ON CHANGE> <uAction> ] ;
                           [ OPTION <nOption> ] ;
                           [ HEIGHT <nHeight> ] ;
                           [ TOPMARGIN <nTopMargin> ];
                           [ COLOR <nClrPane> ] ;
                           [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
                           [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ;
                           [ <l2010: 2010, _2010> ];
                           [ <l2013: 2013, _2013> ];
                           [ STARTBTN <nStart> ];
                           [ <l2015: 2015, _2015> ];
                           [ <l2016: 2016, _2016> ];
       => ;
          [<oRBar> := ] TRibbonBar():New( <oWnd>, [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ;
             <nOption>, , <nHeight>, <nTopMargin>, <nClrPane>, <nClrBoxOut>, <nClrBoxIn>, <nClrBoxSelOut>, ;
             <nClrBoxSelIn>, , , , , <.l2010.>, <nStart>, <.l2013.>, <.l2015.>, <.l2016.> )

Lo que puedes hacer es llamar directamente al resultado y ahi darle tu el array que quieras usar que previamente habrás construido de forma dinámica:

oRBar := TRibbonBar():New( oWnd, aMiListaDePrompts, ...

[Armando]

Antonio:

Muchas gracias por el empujón.

Saludos