Estoy tratando de integrar los componentes de "Codejock Bar" usando el siguiente codigo (encontrado en el foro):
- Code: Select all Expand view
- function Main()
PUBLIC oWnd, oAct, oRb, oTabFiles, oTabEdit, oTabBuild
DEFINE WINDOW oWnd
@ 0, 0 ACTIVEX oAct PROGID "Codejock.CommandBarsFrame.16.2.6" OF oWnd
oAct:Do( "AttachToWindow", oWnd:hWnd )
oRb = oAct:Do( "AddRibbonBar", "fwh" )
oTabFiles = oRb:InsertTab( 0, "&Files" )
oTabEdit = oRb:InsertTab( 1, "&Edit" )
oTabBuild = oRb:InsertTab( 2, "&Build" )
oTabFiles:Groups:AddGroup( "Test 1", 0 )
oTabFiles:Groups:AddGroup( "Test 2", 1 )
ACTIVATE WINDOW oWnd
return nil
Al inicio el programa ejecuta correctamente y presenta el mensaje de que estoy usndo el ActiveX (Trial version) de Codejock, pero despues solo presenta una franja negra en lugar del Ribbonbar.
Estoy usando Harbour de Agosto 2013 + FWH 13.08.
Alguna sugerencia?
Gracias,
George