Please have a look at next FWH built-in RibbonBar 
Dear Mr.Antonio,
Its a good news and the Ribbonbar control looks really cool 
FWH's own inbuilt control and no need to use 3rd party OCX controls.
Regards
Anser
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FWH built-in RibbonBar !
Very impressive Antonio!
Can we see some sample source code--not the ribbon source, but a sample of using it?
Regards,
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James,
Here you have a simple test:
Here you have a simple test:
#include "fivewin.ch"
function Main()
local oRibbonBar, oGroup1, oGroup2, oGroup3, oGroup4, oBtn1, oBtn2, oBtn3, oBtn5
DEFINE WINDOW oWnd TITLE "FWH RibbonBar"
oRibbonBar := TRibbonBar():New( oWnd )
oWnd:oTop := oRibbonBar
oGroup1 := oRiBbonBar:AddGroup( 150, "Group 1" )
oGroup2 := oRiBbonBar:AddGroup( 150, "Group 2" )
oGroup3 := oRiBbonBar:AddGroup( 150, "Group 3" )
oGroup4 := oRiBbonBar:AddGroup( 150, "Group 4" )
oBtn1 := oGroup1:AddButton( 2, 2, 90, 60, "Test", { || nil },,, "keys.bmp" )
oBtn2 := oGroup2:AddButton( 2, 62 , 90, 60, "Test", { || nil }, 3,, "keys.bmp" )
oBtn3 := oGroup2:AddButton( 2, 2, 90, 60, "Test", { || nil },,, "keys.bmp", .T., .F. )
oBtn4 := oGroup2:AddButton( 2, 64, 90, 60, "Test", { || nil },, 3,, "keys.bmp", .T., .T. )
oBtn5 := oGroup3:AddButton( 2, 2, 90, 60, "", {|| nil },,, "lock.bmp" )
ACTIVATE WINDOW oWnd
return nil