Codejock RibbonBar first tests

[Anderson.OL]

How to position the text below the image?

[Ari]

Na distribuição da OCX com o aplicativo

Sobre a Licença como resolveram ?

Ari

[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

[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

[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... .. 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

[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

  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

[Ari]

Please send a example, where i put o code

Code: Select all

   /
  ....

  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

[anserkk]

Dear Mr.Ari,

Here is the sample code

Code: Select all

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

[Ari]

Mr. Anser

Now, It is working fine

Thanks
Ari

FWH901 - xHarbour 1.1.0 - CodeJock 13.0.0 SuitePro

[Anderson.OL]

Dear Mr.Ari,

Here is the sample code

Code: Select all

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.

[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.

Code: Select all

RegisterServer( "Codejock.CommandBars.v12.1.1.ocx" )

I understand that in Vista only the user Administrator has the power to register a DLL/OCX

Regards

Anser

[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.


Melhor seria alguma documentação para poder desvendar os parametros gerais.