FiveTech Support Forums

Estimados compañeros:

Con objeto de mejorar mis aplicaciones he decidido incluirles algunas mejoras visuales: Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con

oAnimate = TAnimate():Redefine( 160, vera2 )
oAnimate:Play()

... según el ejemplo de sample\win32.prg.

También modifiqué mi RC, pero en mi EXE no consigo visualizar la animación. No me genera error pero tampoco la visualizo.

¿ Que me falta ?
Mil gracias.
LORENZO.
FWH 2.7 + xHarbour

Loren wrote:Estimados compañeros:

Con objeto de mejorar mis aplicaciones he decidido incluirles algunas mejoras visuales: Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con

oAnimate = TAnimate():Redefine( 160, vera2 )
oAnimate:Play()

... según el ejemplo de sample\win32.prg.

También modifiqué mi RC, pero en mi EXE no consigo visualizar la animación. No me genera error pero tampoco la visualizo.

Mi PRG es:

define dialog vera2 resource 'CONTROL'
REDEFINE SAY on prompt 'AGE' id 201 of vera2 font ofnt1
REDEFINE BITMAP inten id 108 of vera2 resource 'keys' transparent
redefine say otexto prompt texto id 300 of vera2
oAnimate = TAnimate():Redefine( 160, vera2 )
activate dialog vera2 center nowait on init oAnimate:Play()

¿ Que me falta ?
Mil gracias.
LORENZO.
FWH 2.7 + xHarbour

hi.

Lore

yo lo utilizo sin problemas cuando indexo mis archivos,,,

oAnimate:CopyFiles()
_tipoDeAnimacion(oAnimate,4)
oAnimate:Play()

• aqui mi proceso

oAnimate:stop()

function _tipoDeAnimacion( oAnimate, nAvi )

do case
case nAVI == 1
oAnimate:Search()

  case nAVI == 2
       oAnimate:FindFile()

  case nAVI == 3
       oAnimate:Locate()

  case nAVI == 4
       oAnimate:CopyFiles()

  case nAVI == 5
       oAnimate:CopyFile()

  case nAVI == 6
       oAnimate:DelFile()

  case nAVI == 7
       oAnimate:EmptyCan()

  case nAVI == 8
       oAnimate:DestFile()

endcase

return nil

saludos...

Gracias sysctrl2, me fuiste de mucha ayuda. me faltaba por incluir el tipo de animación.
Ahora ya se visualiza aunque no consigo que tenga animación. Seguiré probanco.

Mil gracias.
LOREN

Donde se encuentran estos archivos en windows findfile() y los otros