Clase TActiveX mejorada y RibbonBar más fácil

[Antonio Linares]

Rossine,

> Seria possível incluir estas mudanças activex na versão de 9.01 ?

Si

[Antonio Linares]

Carlos,

En vez de hacer:

oGrps := oTaskP:Do( "Visible",.T.)

prueba con:

oGrps := oTaskP:SetProp( "Visible", .T. )

Ojo, tenias una "s" extra.

[Cgallegoa]

Antonio,

"oGrps := oTaskP:SetProp( "Visible", .T. )"

Genera error:

[errsysw.prg->ERRORDIALOG] (78) Called from:
errsysw.prg->(b)ERRORSYS(49)
win32ole.prg->TOLEAUTO:_VISIBLE(0)
->__OBJSENDMSG(0)
->ACTXSETPROPERTY(0)
.\source\classes\ACTIVEX.PRG->(b)TACTIVEX:TACTIVEX(0)
->TACTIVEX:SETPROP(0)
PRUEBA1.prg->MAIN(33)
Type: C >>>_VISIBLE<<<
Type: C >>>DISP_E_MEMBERNOTFOUND<<<
Type: N >>> 0<<<

Con oTaskP:Do( "Visible",.T.) no genera error, abre la ventana pero no pinta el panel. Es decir, no hace nada.

[Cgallegoa]

Me da la impresión de que falta algo, pues aunque no ponga los grupos ni los items, deberia pintar el panel.

Me explico: El objeto principal es la oWnd, a este debería pegarse uno que sea el panel, donde se indicara ubicación, tamaños, márgenes, colores de fondo, etc., y a éste último se pegarían los grupos y a éstos los items.

Pero no encuentro cómo poner el panel

[Antonio Linares]

Carlos,

Le estas dando dimensiones 0 x 0. Prueba asi:

oTaskP := TActiveX():New( oWnd, "Codejock.TaskPanel.v12.1.1.ocx", 0, 0, 100, 100 )

Estoy probando la version demo 13.0.0 pero genera un GPF nada mas crearse

[Antonio Linares]

Carlos,

Tienes una versión demo de la 12.1.1 que pueda probar ?

[Cgallegoa]

Antonio,

Funcionó !!!!! con la versión 12.1.0

Revisa tu email.

Saludos,

Carlos Gallego

[Antonio Linares]

Carlos,

Bien! Me alegro

Que version de Windows estas usando ?

[Cgallegoa]

Antonio,

XP SP3 y Vista

[Cgallegoa]

[Cgallegoa]

Con Skiner y TaskPanel


By cgallego

[Antonio Linares]

Carlos,

Puedes poner el PRG para probarlo ? gracias

[Cgallegoa]

By cgallego at 2009-04-08

[Antonio Linares]

Carlos,

Funciona bien con la demo del 13.0.0

Me equivoque de ProgId. Este es el correcto:

"Codejock.TaskPanel.13.0.0"

[Cgallegoa]

Antonio,

Sigo avanzando.

En cada evento incrustamos un Diálogo en oWnd:oWndClient para poner los objetos que se quieran.

Adjunto PRG con primeras pruebas:

http://www.mediafire.com/?sharekey=89d0 ... f6e8ebb871

Saludos,

Carlos Gallego