FWH built-in RibbonBar !

[Antonio Linares]

Please have a look at next FWH built-in RibbonBar

[anserkk]

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

[James Bott]

Very impressive Antonio!

Can we see some sample source code--not the ribbon source, but a sample of using it?

Regards,
James

[Antonio Linares]

James,

Here you have a simple test:

Code: Select all  Expand view

#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