Page 8 of 8
Re: Codejock RibbonBar first tests
Posted: Wed May 13, 2009 5:50 pm
by Anderson.OL
How to position the text below the image?
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 1:21 am
by Ari
Na distribuição da OCX com o aplicativo
Sobre a Licença como resolveram ?
Ari
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 2:54 am
by Ari
oi Lainton
eu comprei o que eu queria saber é como colocar a Licenca no momento de usar o activex, se retira o arquivo .lic dá erro. já tentei todas as formas que colocaram no forum, menos aquela de criar o file momentos antes de chamar o active de depois apagar..parece gambiarra, gostaria de usar o GlobalSettings.
Ari
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 2:57 am
by Ari
Lainton
Aproveitando, voce sabe onde encontrar os includes das contantes que aparece direto no exemplos tipo:
XTP_ID_TOOLBAR_EXPAND
tem aquelas de Theme.. tem muita coisa onde eu acho elas ?
Nao veio no Suite pro as arquivos de contantes. (include)
Ari
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 3:34 am
by Ari
Lainton,
Quando eu for enviar para meu cliente o sistema, vou enviar o activex, e se nao tem o arquivo .LIC na roda.. o que eles falam na documentação é para colocar no GlobalSettings.license ..a licença.. para evitar enviar o .LIC.. se um esperto pegar os dois..faz a pirataria..se ninguem saber..
Estava olhando suas mensagens na codejock..vc já tá bem na frente..passou por problemas que vou chegar neles...
![Sad :-(](./images/smilies/icon_sad.gif)
.. eu ainda nao peguei o macete de acessar os objetos com o Activex..só dá pau de notmember..notfound..etc..quando consiguo acessar o objeto..não tem efeito..nada muda..
peguei os exemplos do forum fivetech e fui fuçando..tó aprendendo.. comprei no sabado a noite.. tô que nem criando com carrinho novo..tem muita coisa para explorar..
valeu..
Ari
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 5:47 am
by anserkk
Dear Mr.Ari,
There is a direct method to activate the license without the need to create a Text file and then erase.
Here is the direct method. This solution is also available in the previous page of this thread.
Code: Select all | Expand
LOCAL GLOBALSettings:= NIL
GlobalSettings:= CreateObject("Codejock.CommandbarsGlobalSettings.13.0.0")
WiTH OBJECT GlobalSettings
:License:= "CommandBars Control Copyright (c) " + ;
"2003-2006 Codejock Software" +CRLF+ "PRODUCT-ID: " + ;
"XCB-ESD-ACTX-9600" + CRLF + "VALIDATE-CODE: XXX-XXX-XXX-XXX"
END WITH
Thanks to Mr.Dionisis
Regards
Anser
Re: Codejock RibbonBar first tests
Posted: Thu May 21, 2009 12:42 pm
by Ari
Please send a example, where i put o code
Code: Select all | Expand
/
....
DEFINE WINDOW oWnd
/* aqui gera GPF */
License() <-- aqui ?
@ 0, 0 ACTIVEX oAct PROGID "Codejock.CommandBarsFrame.13.0.0" OF oWnd SIZE 0, 0
oAct:bOnEvent = { | cEvent, aParams, pParams | RibbonBarEvent( cEvent, aParams, pParams, aButtons ) }
oAct:Do( "AttachToWindow", oWnd:hWnd )
...
ACTIVATE WINDOW oWnd ----> ON INIT License() <-- ?
Tanks
Ari
Re: Codejock RibbonBar first tests
Posted: Fri May 22, 2009 4:42 am
by anserkk
Dear Mr.Ari,
Here is the sample code
Code: Select all | Expand
LOCAL GLOBALSettings:= NIL
RegisterServer( "Codejock.CommandBars.v12.1.1.ocx" )
// Method to Activate CodeJock Licence
GlobalSettings:= CreateObject("Codejock.CommandbarsGlobalSettings.12.1.1")
WiTH OBJECT GlobalSettings
:License:= "CommandBars Control Copyright (c) " + ;
"2003-2008 Codejock Software" +CRLF+ "PRODUCT-ID: " + ;
"Codejock.CommandBars.ActiveX.v12.1" + CRLF + "VALIDATE-CODE: XXX-XXX-XXX-XXX"
END WITH
DEFINE WINDOW oWnd TITLE "FWH Support Codejock ActiveX"
oAct := TActiveX():New( oWnd, "Codejock.CommandBarsFrame.12.1.1", 0, 0, 0, 0 )
It is working fine here.
Regards
Anser
Re: Codejock RibbonBar first tests
Posted: Fri May 22, 2009 2:01 pm
by Ari
Mr. Anser
Now, It is working fine
Thanks
Ari
FWH901 - xHarbour 1.1.0 - CodeJock 13.0.0 SuitePro
Re: Codejock RibbonBar first tests
Posted: Fri May 22, 2009 8:02 pm
by Anderson.OL
anserkk wrote:Dear Mr.Ari,
Here is the sample code
Code: Select all | Expand
LOCAL GLOBALSettings:= NIL
RegisterServer( "Codejock.CommandBars.v12.1.1.ocx" )
// Method to Activate CodeJock Licence
GlobalSettings:= CreateObject("Codejock.CommandbarsGlobalSettings.12.1.1")
WiTH OBJECT GlobalSettings
:License:= "CommandBars Control Copyright (c) " + ;
"2003-2008 Codejock Software" +CRLF+ "PRODUCT-ID: " + ;
"Codejock.CommandBars.ActiveX.v12.1" + CRLF + "VALIDATE-CODE: XXX-XXX-XXX-XXX"
END WITH
DEFINE WINDOW oWnd TITLE "FWH Support Codejock ActiveX"
oAct := TActiveX():New( oWnd, "Codejock.CommandBarsFrame.12.1.1", 0, 0, 0, 0 )
It is working fine here.
Regards
Anser
this does not work with Windows Vista / windows seven.
Re: Codejock RibbonBar first tests
Posted: Sat May 23, 2009 4:31 am
by anserkk
Dear Mr.Anderson,
this does not work with Windows Vista / windows seven.
It works fine in Vista and Windows 7, I have already tested it. You must run FwhApplication.Exe as Administrator or else the OS will get struck at the following line.
I understand that in Vista only the user Administrator has the power to register a DLL/OCX
Regards
Anser
Re: Codejock RibbonBar first tests
Posted: Mon May 25, 2009 2:55 pm
by Personal
oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
oStatusBar:StatusBar:Visible=.T.
oStatusBar:StatusBar:AddPane( 0 )
oStatusBar:StatusBar:IdleText = "xxx"
Demais parametros para ficar similar a msg nativa.
![Image](http://www.personal.com.br/img/b1a.jpg)
Melhor seria alguma documentação para poder desvendar os parametros gerais.