Hello, I was using in Fivewin component codej with activex and I wonder if you can convert the example below for use with harbour + activex. I tried but failed: (
[CODE] // CodeJock RibbonBar OCX support #include "FiveWin.ch" #define xtpControlError 0 #define xtpControlButton 1 #define xtpControlPopup 2 #define xtpControlButtonPopup 3 #define xtpControlSplitButtonPopup 4 #define xtpControlComboBox 5 #define xtpControlEdit 6 #define xtpControlCustom 7 #define xtpControlLabel 8 #define xtpControlCheckBox 9 #define xtpControlGallery 10 #define xtpControlRadioButton 11 #define xtpFlagRightAlign 1 #define xtpImageNormal 0 #define xtpImageDisabled 1 #define xtpImageHot 2 #define xtpImageChecked 3 #define xtpImagePressed 4 #define ID_ADDTAB 10 #define ID_ADDGROUP 20 #define ID_ADDBUTTON 30 #define ID_ADDEDIT 40 #define ID_ADDIMAGE 50 static oIcons, oRb function Main() local oWnd, oAct, oMenu, oTabs, oGroups, oControls, oImages if ! IsActiveX( "Codejock.CommandBars.v13.0.0.Demo.ocx" ) RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" ) endif DEFINE WINDOW oWnd TITLE "Visual RibbonBar" @ 0, 0 ACTIVEX oAct PROGID "Codejock.CommandBarsFrame.13.0.0" OF oWnd SIZE 0, 0 oAct:bOnEvent = { | cEvent, aParams | RibbonBarEvent( cEvent, aParams ) } oAct:AttachToWindow( oWnd:hWnd ) oIcons = oAct:Icons() oRb = oAct:AddRibbonBar( "fwh" ) oMenu = oRb:Controls:Add( 2, 0, "Menu" ) oMenu:Flags = xtpFlagRightAlign oTabs = oMenu:CommandBar:Controls:Add( 2, 0, "Tabs" ) oTabs:CommandBar:Controls:Add( 1, ID_ADDTAB, "Add" ) oGroups = oMenu:CommandBar:Controls:Add( 2, 0, "Groups" ) oGroups:CommandBar:Controls:Add( 1, ID_ADDGROUP, "Add" ) oControls = oMenu:CommandBar:Controls:Add( 2, 0, "Controls" ) oControls:CommandBar:Controls:Add( 1, ID_ADDBUTTON, "Add Button" ) oControls:CommandBar:Controls:Add( 1, ID_ADDEDIT, "Add Edit" ) oImages = oMenu:CommandBar:Controls:Add( 2, 0, "Images" ) oImages:CommandBar:Controls:Add( 1, ID_ADDIMAGE, "Load Image" ) ACTIVATE WINDOW oWnd return nil function RibbonBarEvent( cEvent, aParams ) local oControl, oTab, oGroup, oItem, cBmpFile do case case cEvent == "Execute" msgstop( "execute " + hb_valtostr( aParams ) ) endcase return nil [ENDCODE] Best Regards, Rossine. -- View this message in context: http://old.nabble.com/OT---Sample-with-activex-of-harbour-tp28682170p28682170.html Sent from the Harbour - Dev mailing list archive at Nabble.com. _______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour