FiveTech Software tech support forums

Hola,
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

George,

FIVEWIN disponibiliza uma classe nativa para RIBBON BAR:

c:\fwh\samples\ribbon.prg
c:\fwh\samples\ribbon2.prg
c:\fwh\samples\ribbon3.prg

Gracias SGS por responder.
He visto la clase Ribbon de FW y parece que es bien completa.
Lo que sucede es que quiero hacer algunas pruebas, con este y otros componentes de Codejock (como el GRAPH), para ver como interactuan con Harbour+FWH.

Has tenido alguna experiencia con el Codejock?

Saludos,

George