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)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
