#include "FiveWin.ch"
#define ID_TAB_WRITE 5004
#define ID_GROUP_CLIPBOARD 5001
function Main()
local oWnd, oCommandBars, oRibbonBar, oTabWrite, oGroups, oGroupClipborad
DEFINE WINDOW oWnd
// Begin XtremeCommandBars.CommandBars CommandBars
oCommandBars = TActiveX():New( oWnd, "Codejock.CommandBarsFrame.10.2" )
oCommandBars:SetSize( 200, 100 )
// Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
oRibbonBar = oCommandBars:Do( "AddRibbonBar", "The Ribbon" )
// Set TabWrite = RibbonBar.InsertTab(0, "Writ&e")
oTabWrite = OleInvoke( oRibbonBar, "InsertTab", 0, "Writ&e" )
// TabWrite.Id = ID_TAB_WRITE
OleSetProperty( oTabWrite, "Id", ID_TAB_WRITE )
// Set GroupClipborad = TabWrite.Groups.AddGroup("&Clipboard", ID_GROUP_CLIPBOARD)
oGroups = OleGetProperty( oTabWrite, "Groups" )
oGroupClipborad = OleInvoke( oGroups, "AddGroup", "&Clipboard", ID_GROUP_CLIPBOARD )
MsgInfo( oGroupClipborad ) // A numeric value different from zero shows that it is a valid handle
ACTIVATE WINDOW oWnd
return nil
nageswaragunupudi wrote:Mr Antonio
Bringing back this topic discussed long time back. We are not looking for ribbon bar control from FW now. noway is providing for those who are interested in using their product.
You said in this discussion that we can get some similar functionality with windows ribbon bars and tool bars in folders. Yes, but we miss the beauty of our FWH 2007 button bar.
Instead of toolbars we like to use office2007 buttonbars of FWH. If we can fit the buttonbars in folders and use it instead of single buttonbar we get some functionality similar to office2007 ribbon bar
nageswaragunupudi wrote:Very good Mr. Richard.
Even noway also makes it easy.
But I try to do as much as I can with FWH, without relying on 3rd party tools. With some effort the effect similar to your second picture can be created with FWH, if we can put FWH buttonbars in folders/
TimStone wrote:Otto,
Have you contacted the support at Codejock directly ? I have had some communication and they are very good about replying. I've looked at their library, but presently what I'm doing is different. However, their library seems to work well, and their support is very good about responding.
Tim
James Bott wrote:Do you mean like this?
DEFINE WINDOW oWnd TITLE "Testing rebars and toolbars" ;
MENU BuildMenu()
oReBar = TReBar():New( oWnd )
oPanel := TPanel():New( 0, 0, 75, 300, oReBar )
oImageList = TImageList():New()
oImageList:AddMasked( TBitmap():Define( , "\fwh\bitmaps\16x16\new2.bmp", oWnd ),;
nRGB( 255, 0, 255 ) )
oImageList:AddMasked( TBitmap():Define( , "\fwh\bitmaps\16x16\open2.bmp", oWnd ),;
nRGB( 255, 0, 255 ) )
oImageList:Add( TBitmap():Define( , "\fwh\bitmaps\16x16\icon.bmp", oWnd ),;
TBitmap():Define( , "\fwh\bitmaps\16x16\icoMask.bmp", oWnd ) )
@ 10, 2 FOLDER oFolder PROMPTS "One", "Two", "Three" SIZE 400, 62
oToolBar2 = TToolBar():New( oFolder:aDialogs[ 1 ],,, oImageList )
oToolBar2:AddButton( { || MsgInfo( "pointer" ) }, "pointer" )
oToolBar2:AddSeparator()
oToolBar2:AddButton( ,"label" )
oToolBar2:AddButton( ,"button" )
oReBar:InsertBand( oFolder )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 37 guests