ribbonbar high

[Otto]

Hello,
I am still working on the “Metro like” release.
Although I made some changes in usability. I do not use full screen obligatory as I planed when I started.

It seems to me that the ribbonbar consumes to much space. How can I reduce high.
Best regard,
Otto

[cnavarro]

Otto, try with clausule nHeight ?
As always, his designs are great

Code: Select all  Expand view

#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> ];
       => ;
          [<oRBar> := ] TRibbonBar():New( <oWnd>, [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ;
             <nOption>, , <nHeight>, <nTopMargin>, <nClrPane>, <nClrBoxOut>, <nClrBoxIn>, <nClrBoxSelOut>, ;
             <nClrBoxSelIn>, , , , , <.l2010.>, <nStart>, <.l2013.> )

 

[Otto]

Hello Cristobal,
Thank you and thank you for your kind words.
Now it is working. I have to set HEIGHT and TOPMARGIN.
Best regards,
Otto