FiveTech Support Forums

Rossine,

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

Si

Carlos,

En vez de hacer:

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

prueba con:

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

Ojo, tenias una "s" extra.

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.

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

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

Carlos,

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

Antonio,

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

Revisa tu email.

Saludos,

Carlos Gallego

Carlos,

Bien! Me alegro

Que version de Windows estas usando ?

Carlos,

Puedes poner el PRG para probarlo ? gracias

Carlos,

Funciona bien con la demo del 13.0.0

Me equivoque de ProgId. Este es el correcto:

"Codejock.TaskPanel.13.0.0"

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