#include "FiveWin.ch"
#include "ribbon.ch"
function BuildRibbonBar( oWnd, _oRBar )
local oRBar, oGr1_1, oGr2_1, oBtn1_1_1, oBtn2_1_1, oBtn1_2_1
DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "One", "Two", "Three" HEIGHT 138 TOPMARGIN 25
ADD GROUP oGr1_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 205
@ 3, 3 ADD BUTTON oBtn1_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 POPUP TOP MENU BuildMenu1_1_1()
@ 3, 83 ADD BUTTON oBtn2_1_1 PROMPT "new" GROUP oGr1_1 ACTION MsgInfo( "click" ) SIZE 80, 83 POPUP TOP MENU BuildMenu2_1_1()
ADD GROUP oGr2_1 RIBBON oRBar TO OPTION 1 PROMPT "new" WIDTH 203
@ 3, 3 ADD BUTTON oBtn1_2_1 PROMPT "new" GROUP oGr2_1 ACTION MsgInfo( "click" ) SIZE 80, 85 POPUP TOP MENU BuildMenu1_2_1()
return _oRBar := oRBar
static function BuildMenu1_1_1()
local oMenu
MENU oMenu POPUP
MENUITEM "New"
MENUITEM "New"
MENUITEM "New"
MENUITEM "New"
ENDMENU
return oMenu
static function BuildMenu2_1_1()
local oMenu
MENU oMenu POPUP
MENUITEM "New"
MENUITEM "New"
MENUITEM "New"
MENUITEM "New"
ENDMENU
return oMenu
static function BuildMenu1_2_1()
local oMenu
MENU oMenu POPUP
MENUITEM "one"
MENUITEM "two"
MENUITEM "three"
ENDMENU
return oMenu
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 41 guests