topic-44389

Board index FiveWin para Harbour/xHarbour Una sobre RIBBONBAR (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Una sobre RIBBONBAR (SOLUCIONADO)
Posted: Mon Apr 01, 2024 01:43 AM

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 (fw): Select all Collapse

      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 (fw): Select all Collapse

   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?

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Una sobre RIBBONBAR
Posted: Mon Apr 01, 2024 07:52 AM

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 (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Una sobre RIBBONBAR (SOLUCIONADO)
Posted: Mon Apr 01, 2024 04:19 PM

Antonio:

Muchas gracias por el empujón.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion