Page 1 of 2
Animado, nuevos cambios
Posted: Fri Jan 02, 2009 5:59 am
by Daniel Garcia-Gil
_ a la clase animado...
ahora se puden animar BTNBMP e IMAGEN, se puede hacer uso del REDEFINE
agregadas las DATAS para estas nuevas caracteristicas
nueva clasula en los comandos @ x,y - REDEFINE BLINKTEXT, para hacer texto parpadente en BTNBMP
para mejorres resultados usar en BTNBMP alpha channel (
http://forums.fivetechsupport.com/viewt ... 17&t=13192 )
http://rapidshare.com/files/182763389/animation.rar
Re: Animado, nuevos cambios
Posted: Fri Jan 02, 2009 9:17 am
by Antonio Linares
Daniel,
gracias!
Re: Animado, nuevos cambios
Posted: Fri Jan 02, 2009 10:51 am
by rolando
Daniel,
Muy bueno lo tuyo.
Lástima que tengo el FWH 2.7 y no todos los efectos puedo visualizar.
Le incluí el Manifiest pero sigue igual.
De cualquier modo repito, muy bueno.
Saludos.
Rolando
Re: Animado, nuevos cambios
Posted: Fri Jan 02, 2009 2:55 pm
by Daniel Garcia-Gil
rolando gracias, la clase es muy sencilla y causa buenos efectos, es facil modificarla y adaptarla a tus necesidades,
no te pierdas de todas las mejoras que ha tenido FW, dale mas valor a tu inversion, he leido que AL esta brindando una oferta impelable, deberias aprovechar esta oportunidad...
Re: Animado, nuevos cambios
Posted: Fri Jan 02, 2009 7:47 pm
by rolando
Daniel,
Te aseguro que quisiera actualizarme pero, como comenté en otros post's, lo mío es hobby, es pasión por la programación.
No programo profesionalmente, sólo he creado tres aplicaciones (y las mejoro permanentemente en el poco tiempo que me queda libre), una para el lugar donde trabajo y las otras dos para escuelas muy humildes de la zona (a donde fueron a parar además, las dos PC que tuve antes de la actual comprada a credito en 12 meses). Todo Ad Honorem.
Además, en mi trabajo la cosa está muy difícil y el dinero cada vez rinde menos. El Euro cuesta unos $4.5 lo cual no ayuda mucho y hace que por el momento me sea prohibitibo actualizarme ya que soy cabeza de familia y tengo dos niños que mantener.
No pretendo "dar lástima" contando esto, sólo es mi realidad. Debo dejar de lado muchas cosas por la buena crianza de mis hijos. Ellos y su amor son lo que me hacen Rico aunque no tenga un duro de más para gastar en mí.
Saludos y de nuevo, gracias por compartir. Voy a intentar reformarla para mis necesidades.
Rolando
Re: Animado, nuevos cambios
Posted: Sat Jan 03, 2009 8:10 pm
by hmpaquito
Rolando,
> Debo dejar de lado muchas cosas por la buena crianza de mis hijos. Ellos y su amor son lo que me hacen Rico aunque no >tenga un duro de más para gastar en mí.
Como decimos por aqui ¡ olé tus güevos !
Saludos
Re: Animado, nuevos cambios
Posted: Sun Jan 04, 2009 12:11 am
by Daniel Garcia-Gil
Como padre de 2 hijas entiendo perfectamente tu situacion, siga adelante y no mire atras
No pretendo "dar lástima" contando esto
mi sentimiento fue admiracion, pocas personas toman esas labores en sus manos, te felicito por tus acciones
Re: Animado, nuevos cambios
Posted: Wed Jan 07, 2009 4:27 pm
by ADBLANCO
Mis Respetos, colega yo estoy como tú (más una Esposa Desauciada), Pero no estoy haciendo nada por nadie, Admirable!!!
Suerte, Paciencia, y Continúa, que Dios Aprieta pero no ahoga.
Re: Animado, nuevos cambios
Posted: Fri Jan 09, 2009 10:24 pm
by rolando
Daniel,
Sigo intentando usarlo desde el redefine pero no hay caso. Me sale un error en ejecución:
Code: Select all
Error description: Error BASE/1004 Class: 'NIL' has no exported method: DEFCONTROL
Args:
[ 1] = U
[ 2] = O Object
Stack Calls
===========
Called from: => DEFCONTROL(0)
Called from: BTNBMP.PRG => TBTNBMP:REDEFINE(305)
Called from: anima.prg => ANIMADO:REDEFINEBUTTON(314)
Called from: anima.prg => ANIMADO:REDEFINE(190)
Called from: test.prg => TEST(84)
Según entiendo hay un problema en el method DEFCONTROL. lo ubiqué en la clase dialog.prg pero, la verdad no se para donde ir.
¿Habrá alguna posibilidad que se adapte al FWH2.7 que uso?
Gracias.
Rolando
Re: Animado, nuevos cambios
Posted: Fri Jan 09, 2009 10:48 pm
by Daniel Garcia-Gil
voy a ver que puedo hacer...
Re: Animado, nuevos cambios
Posted: Sat Jan 10, 2009 12:18 am
by Daniel Garcia-Gil
Ok rolando creo que el problema esta en los tipos de archivo de las imagenes, creo que la version que usas utiliza la DLL nviewlib.dll, actualmente se usa freeimagen, trata de usar archivos BMP, los botones te deberian funcionar bien ya que usan ese formato, ahora las imagenes no estoy seguro, pero podrias intentarlo por esa via
Re: Animado, nuevos cambios
Posted: Sat Jan 10, 2009 11:37 am
by rolando
Daniel,
Gracias por tu interés, pero lamentablemente no funciona.
En el dialog dejé sólo el botón y dá el mismo error.
Sigo creyendo que hay un problema en el method DEFCONTROL (que ubiqué en la clase dialog.prg).
Obviamente es por la versión que uso (FWH2.7). Lo que más me molesta es que funciona bién lo definido fuera del dialog.
Que se va a hacer, como dice un viejo dicho: "Se hace lo que se puede y, lo que no, se compra hecho".
Por ahora seguiré sin usar tu magnifica clase. Gracias.
Rolando
Re: Animado, nuevos cambios
Posted: Sat Jan 10, 2009 1:44 pm
by Daniel Garcia-Gil
no rolando el peoblema no es tuyo sino mio, he estado esudiando detenidamente tu situacion y encintre _ que me gustaria que hicieras...
priemro vamos a agregar esta linea en los metodos NEW y REDEFINE
::oWnd = oWnd
solo esa linea en ambos metodos
segundo...
en "METHOD RedefineButton"
despues de ::bAction agrega ::oWnd
debe quedarte algo asi
Code: Select all
::oBmp := TBtnBmp():ReDefine( ::nId, , ,;
if( len( ::aFileName ) > 0, ::cPath + ::aFileName[ 1 ],), , , ::bAction,;
::oWnd, ::bWhen, , ,;
::cPrompt, ::oFont, , , ::lBorder,;
::cLayout )
has esto para _, cuando usas recursos y files...
has la prueba y me comentas
Re: Animado, nuevos cambios
Posted: Sat Jan 10, 2009 4:50 pm
by rolando
Daniel,
Ahora el error es otro, pero siempre en el method redefine de la clase BTNBMP.PRG
Code: Select all
Error description: Error BASE/1077 Argument error: .NOT.
Args:
[ 1] = C CENTER
Stack Calls
===========
Called from: BTNBMP.PRG => TBTNBMP:REDEFINE(269)
Called from: anima.prg => ANIMADO:REDEFINEBUTTON(317)
Called from: anima.prg => ANIMADO:REDEFINE(193)
Called from: test.prg => TEST(84)
Called from: test.prg => (b)MAIN(46)
copio el trozo de la clase en donde da el error (es la última línea)
Code: Select all
METHOD ReDefine( nId, cResName1, cResName2, cBmpFile1, cBmpFile2, cMsg,;
bAction, oBar, lAdjust, bWhen, lUpdate, cToolTip,;
cPrompt, oFont, cResName3, cBmpFile3, lBorder, cLayout ) CLASS TBtnBmp
DEFAULT cMsg := "", lAdjust := .f., lUpdate := .f., lBorder := .t.,;
cLayout := "CENTER"
Gracias.
Rolando
Re: Animado, nuevos cambios
Posted: Sat Jan 10, 2009 4:53 pm
by Daniel Garcia-Gil
rolando he intentado comunicarme contigo por gmail