FiveTech Software tech support forums

Saludos !
Ribonbar.prg, necesita que tengas instalado el Codejock.CommandBars.v13.0.0.Demo.ocx, puedes bajar la demo de este link
http://www.codejock.com/products/commandbars/

... dispatch FUNC VARIANT GUIDFromString( [in] VARIANT ) STDCALL dispatch FUNC VARIANT AppLoadString( [in] int ) STDCALL dispatch PROPERTYGET PTR CommandBars() STDCALL dispatch PROPERTYGET PTR Assistant() STDCALL dispatch FUNC void FollowHyperlink( [in] BSTR, [defaultvalue] BSTR, [defaultvalue] ...

... PROPERTYGET PTR Cells() STDCALL dispatch PROPERTYGET PTR Charts() STDCALL dispatch PROPERTYGET PTR Columns() STDCALL dispatch PROPERTYGET PTR CommandBars() STDCALL dispatch PROPERTYGET int DDEAppReturnCode() STDCALL dispatch FUNC void DDEExecute( [in] int, [in] BSTR ) STDCALL dispatch FUNC ...

... VARIANT_BOOL DisplayRecentFiles() STDCALL dispatch PROPERTYPUT void DisplayRecentFiles( [in] VARIANT_BOOL ) STDCALL dispatch PROPERTYGET PTR CommandBars() STDCALL dispatch PROPERTYGET PTR SynonymInfo( [in] BSTR, [optional] PTR ) STDCALL dispatch PROPERTYGET PTR VBE() STDCALL dispatch PROPERTYGET ...

... .t. return .t. endif Luego en mis funciones de guardar, cerrar fichero, etc. hago la comprobación de que el objeto da error: local omm := oexcel:CommandBars('Worksheet Menu Bar') if uerrorex = .t. MsgAlert('Para guardar o cerrar el libro salga antes del modo edicción') uerrorex := .f. return ...

... valtype(oexcel) devuelve 'O', pero valtype(oexcel:ActiveWorkBook) devuelve el mismo error si está en modo edición. Si pudiera acceder a: oexcel:CommandBars('Worksheet Menu Bar'):Controls('Archivo'):Controls('Nuevo...'):Enabled() podría detectarlo, puesto que el menu de Archivo->Nuevo se deshabilita ...

http://img245.imageshack.us/img245/9629/erroy.jpg if i use en class TActiveX():new(ownd,"codejock.CommandBars.13.0.0") the same erro. in class TactiveX need to be codejock.commandbarsframe.13.0.0 and in class OleWevent need to be codejock.commandbars.13.0.0 ...

... ownd, oOle public left:=0, Top:=0, Right:=0, Bottom:=0 define window ownd color 0,0// oOle:=OleWEvent():new(ownd,"Codejock.CommandBars.13.0.0",0,0,oWnd:nRight,oWnd:nBottom) oOle:=TactiveX():New(ownd,"Codejock.CommandBarsFrame.13.0.0") cToolA:=oOle:Do("Add","ToolBar",0) cToolB:=oOle:Do("Add","ToolBar",0) cToolB:GetWindowRect(@Left, ...

Lailton, Please modify these lines and the GPF is solved :-) oCommandBar:= OleWEvent():New("Codejock.CommandBars.13.0.0", oWnd:hWnd) y HB_FUNC( OLEWECREATE ){   HWND hWndCtrl;   LoadAtl();   hWndCtrl = CreateWindowEx(      (DWORD)   ...

... oToolA public Left:=Top:=Right:=Bottom:=0 define window ownd    oCommandBar:= TactiveX():New(oWnd,"Codejock.CommandBarsFrame.12.1.1",0,0,0,0)    oCommandBar:Do("AttachToWindow", oWnd:hWnd )    oRibbonBar:= oCommandBar:Do("AddRibbonBar","Redstarsoft")  ...

... oToolA public Left:=Top:=Right:=Bottom:=0 define window ownd    oCommandBar:= TactiveX():New(oWnd,"Codejock.CommandBarsFrame.12.1.1",0,0,0,0)    oCommandBar:Do("AttachToWindow", oWnd:hWnd )    oRibbonBar:= oCommandBar:Do("AddRibbonBar","Redstarsoft")  ...

el tema es que esto no funciona:: if ! IsActiveX( "Codejock.CommandBars.v13.0.0.Demo.ocx" ) RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" ) endif tampoco esto:: WinExec( "REGSVR32 " + cDestino + " /s" ) como ...

... is initialised. I don't know how to do that using FWH. It appears that the problem I'm having is that you can't access the public members of CommandBars until after the control is fully initialized. Trying to access them before full initialization throws an error. However, when you finalize ...

... IsActivex() is working now as expected. I found out my mistake The Parameter to IsActivex which I used was wrong IsActivex("Codejock.CommandBars.v12.1.1.ocx") // wrong one The parameter should be IsActivex("Codejock.CommandBars.12.1.1") or you can use the class id of ...

You can distributed for users files Codejock.CommandBars.v12.1.1.ocx and Codejock.CommandBars.v12.1.1.lic. Hi Mr.Natter, If we distribute the license key file (that too in a plain text Ascii file), then if somebody has access to the license key ...