FiveTech Support Forums

#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd
   
   BuildRibbonBar( oWnd )
   
   ACTIVATE WINDOW oWnd MAXIMIZED
   
return nil   

function BuildRibbonBar( oWnd, _oRBar )

   local oRBar, oGr1_1, oGr2_1, oCbx, cItem := "One"

   DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT  "One", "Two", "Three" HEIGHT 134 TOPMARGIN 25

   ADD GROUP oGr1_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

   ADD GROUP oGr2_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 201 GRADIANT { { 0.1, RGB( 218, 229, 243 ), RGB( 218, 229, 243 ) }, { 0.9, RGB( 199, 216, 237 ), RGB( 218, 229, 243 ) } }

   @ 1, 1 COMBOBOX oCbx VAR cItem ITEMS { "One", "Two", "Three" } OF oGr2_1 SIZE 80, 100

return nil