Ribbonbar doubt

[wartiaga]

Hi,

How can I size the width and height of a ribbonbar tabs? Is it possible to increase the group prompt height as well? How? Thanks.

[Marc Venken]

Code: Select all  Expand view  RUN

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Databases", "Leveranciers", "Ingeven Documenten","Software";
      HEIGHT 130 TOPMARGIN 25

   ADD GROUP oGr1  RIBBON oRBar TO OPTION 1 PROMPT "Databases" width 130 ;
      BITMAP "bitmaps\maveco.ico"

   @ 02, 05 ADD BUTTON oBtn1_1 GROUP oGr1 BITMAP "bitmaps\cut16.BMP" ;
      SIZE 120, 20 PROMPT "Klanten"  MOSTLEFT round ;
      action ( Folder_klanten(oWnd) )

   @ 24, 05 ADD BUTTON oBtn1_2 GROUP oGr1 BITMAP "bitmaps\copy16.BMP" ;
      SIZE 120, 20 PROMPT "Leveranciers"  MOSTLEFT round;
      action ( Folder_Leveranciers(oWnd) )

   @ 46, 05 ADD BUTTON oBtn1_3 GROUP oGr1 BITMAP "bitmaps\paste16.BMP" ;
      SIZE 120, 20 PROMPT "Artikels"  MOSTLEFT round;
      action ( Folder_artikels(oWnd) )

//  Documents =============================

   ADD GROUP oGr2  RIBBON oRBar TO OPTION 1 PROMPT "Documents" width 130 ;
      BITMAP "bitmaps\fivetech.BMP"

   @ 02, 05 ADD BUTTON oBtn2_1 GROUP oGr2 BITMAP "bitmaps\cut16.BMP" ;
      SIZE 120, 20 PROMPT "Orders"  MOSTLEFT round ;
      action ( Folder_Orders(oWnd) )

 

[wartiaga]

Code: Select all  Expand view  RUN

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Databases", "Leveranciers", "Ingeven Documenten","Software";
      HEIGHT 130 TOPMARGIN 25

   ADD GROUP oGr1  RIBBON oRBar TO OPTION 1 PROMPT "Databases" width 130 ;
      BITMAP "bitmaps\maveco.ico"

   @ 02, 05 ADD BUTTON oBtn1_1 GROUP oGr1 BITMAP "bitmaps\cut16.BMP" ;
      SIZE 120, 20 PROMPT "Klanten"  MOSTLEFT round ;
      action ( Folder_klanten(oWnd) )

   @ 24, 05 ADD BUTTON oBtn1_2 GROUP oGr1 BITMAP "bitmaps\copy16.BMP" ;
      SIZE 120, 20 PROMPT "Leveranciers"  MOSTLEFT round;
      action ( Folder_Leveranciers(oWnd) )

   @ 46, 05 ADD BUTTON oBtn1_3 GROUP oGr1 BITMAP "bitmaps\paste16.BMP" ;
      SIZE 120, 20 PROMPT "Artikels"  MOSTLEFT round;
      action ( Folder_artikels(oWnd) )

//  Documents =============================

   ADD GROUP oGr2  RIBBON oRBar TO OPTION 1 PROMPT "Documents" width 130 ;
      BITMAP "bitmaps\fivetech.BMP"

   @ 02, 05 ADD BUTTON oBtn2_1 GROUP oGr2 BITMAP "bitmaps\cut16.BMP" ;
      SIZE 120, 20 PROMPT "Orders"  MOSTLEFT round ;
      action ( Folder_Orders(oWnd) )

 

Thank you for the answer, the problem is:

oRBar:SetFont( TFont():New( cFont, 0, - ( nFontSize - 3 ) ) )
oRBar:nHeightFld := 25

After changing the font size of the tabs, their size does not increase by itself, how can I force the increase? Thanks in advance.

[Marc Venken]

I suppose you tried :

oBar:Refresh()

or

oBar:Adjust()

Just my idea's .... Mayby someone else has the sollution.

[wartiaga]

I suppose you tried :

oBar:Refresh()

or

oBar:Adjust()

Just my idea's .... Mayby someone else has the sollution.

oBar:Adjust() does not exist and oBar:Refresh() does not work.

Thanks.

[wartiaga]

I found the solution:

oRbar:CalcPos()

[Marc Venken]

Great,

From this topic ?

Code: Select all  Expand view  RUN

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36145&start=0&sid=8fc1815c7d7a316892c7425be53fbf34

[wartiaga]

Great,

From this topic ?

Code: Select all  Expand view  RUN

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=36145&start=0&sid=8fc1815c7d7a316892c7425be53fbf34

Yes!

Thank you!