FiveTech Support Forums

FiveWin / Harbour / xBase community
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
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
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

Continue the discussion