Efeito ao abrir formulário

[Sommus]

Pessoal,
í‰ possí­vel colocar efeito ao abrir/mostrar e fechar/ocultar o form?
Vi que existe na api do windows a função "AnimateWindow", mas, parece que
ela não está disponí­vel no xailer...
Alguém sabe se é possí­vel fazer isso?
Obrigado pela atenção,
Reginaldo

[joselalinf]

Reginaldo,
aquí­ la tienes:
HB_FUNC( ANIMATEWINDOW ) // AnimateWindow( <hWnd>, <nTime>, <nFlags> ) -->
lSuccess
{
hb_retl( AnimateWindow( (HWND) hb_parnl( 1 ), hb_parnl( 2 ), hb_parnl(
3 ) ) );
}
Los parámetros aquí­:
http://msdn.microsoft.com/en-us/library ... sktop/ms63 2669%28v=vs.85%29.aspx
Saludos,
José Lalí­n

[jrcpoli-quitar]

Alguno puede poner un ejemplo de utilización de este tipo de apertura y
cierre de ventanas, puede dar un aspecto interesante.
José R.Castro.
El 05/02/2013 18:15, José Lalí­n escribió:
> Reginaldo,
>
> aquí­ la tienes:
>
> HB_FUNC( ANIMATEWINDOW ) // AnimateWindow( <hWnd>, <nTime>, <nFlags> )
> --> lSuccess
> {
> hb_retl( AnimateWindow( (HWND) hb_parnl( 1 ), hb_parnl( 2 ),
> hb_parnl( 3 ) ) );
> }
>
> Los parámetros aquí­:
>
> http://msdn.microsoft.com/en-us/library ... sktop/ms63 2669%28v=vs.85%29.aspx
>
>
> Saludos,
> José Lalí­n
>

[joselalinf]

José Ramón,
nunca lo he utilizado pero será cuestión de experimentar.
En el evento OnActivate() del formulario:
AnimateWindow( ::Handle, 1500, nOr( AW_ACTIVATE, AW_HOR_POSITIVE, AW_SLIDE ) )
Buscando en Google imagino que aparecerán cientos de ejemplos de uso.
Saludos,
José Lalí­n

[XeviCOMAS]

José,
Por probar... que no quede, jejeje.
Está Xulo!!!
Gracias.
Si alguien consigue algun efecto más que sorprendente...
como el de Mac al mostrar/ocultar ventanas, que tiene un efecto "abanico" de
pequeño hasta la construcción total de la ventana
y quiere compartirlo... es de agradecer.
Un Saludo,
Xevi.
"José Lalí­n" ha escrit al missatge:51122e78$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
José Ramón,
nunca lo he utilizado pero será cuestión de experimentar.
En el evento OnActivate() del formulario:
AnimateWindow( ::Handle, 1500, nOr( AW_ACTIVATE, AW_HOR_POSITIVE,
AW_SLIDE ) )
Buscando en Google imagino que aparecerán cientos de ejemplos de uso.
Saludos,
José Lalí­n

[joselalinf]

Xevi,
¿puedes poner un enlace donde verlo?
Mientras tanto prueba con AW_CENTER.
Saludos,
José Lalí­n

[XeviCOMAS]

José,
El efecto que digo és el de minimizar/maximizar...
Hace un efecto de embudo que lo descomprime/comprime del o al icono del
dock.
el efecto "pillarlo" no se como hacerlo.
Ahora bien, si quieres, tirando de las nuevas tecnologí­as, te conectas a mi
MAC.
Conectamos el TeamViewer y lo ves en vivo y directo.
Es una xorrada... que ni siquiera se si se podria aplicar a abrir ventanas
en nuestra aplicación.
No me preocupa en nada el que sea o no posible. Solo era por comentar.
Un Saludo,
Xevi.
"José Lalí­n" ha escrit al missatge:51124e83$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
¿puedes poner un enlace donde verlo?
Mientras tanto prueba con AW_CENTER.
Saludos,
José Lalí­n

[XeviCOMAS]

José,
me gusta más como propones...
AnimateWindow( ::Handle, 400, AW_CENTER )
Gracias.
Y si además, en lugar de ponerlo en el evento OnActivate se pone en
OnShow...
METHOD FormShow( oSender ) CLASS TFrmMagatzemIGLlistats
AnimateWindow( ::Handle, 400, AW_CENTER )
RETURN Nil
Queda de lujo!!!
Se elimina el pintado del borde de la ventana hasta que no termina la
animación.
Esto ya roza la perfección!!! jejeje.
Un Saludo,
Xevi.
"José Lalí­n" ha escrit al missatge:51124e83$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
¿puedes poner un enlace donde verlo?
Mientras tanto prueba con AW_CENTER.
Saludos,
José Lalí­n

[XeviCOMAS]

No se que he escrito!!!
Estoy mirando el efecto de pintado de la ventana y no entiendo nada. El
efecto se produce en OnShow no creo que haga nada.
NO HE DICHO NADA!!!
Un Saludo,
Xevi.
"Xevi" ha escrit al missatge:5112ae7a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
José,
me gusta más como propones...
AnimateWindow( ::Handle, 400, AW_CENTER )
Gracias.
Y si además, en lugar de ponerlo en el evento OnActivate se pone en
OnShow...
METHOD FormShow( oSender ) CLASS TFrmMagatzemIGLlistats
AnimateWindow( ::Handle, 400, AW_CENTER )
RETURN Nil
Queda de lujo!!!
Se elimina el pintado del borde de la ventana hasta que no termina la
animación.
Esto ya roza la perfección!!! jejeje.
Un Saludo,
Xevi.
"José Lalí­n" ha escrit al missatge:51124e83$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Xevi,
¿puedes poner un enlace donde verlo?
Mientras tanto prueba con AW_CENTER.
Saludos,
José Lalí­n

[joselalinf]

Xevi,
> El efecto que digo és el de minimizar/maximizar...
> Hace un efecto de embudo que lo descomprime/comprime del o al icono deldock.
Ahora sí­, no lo recordaba.
> Es una xorrada... que ni siquiera se si se podria aplicar a abrir ventanas
> en nuestra aplicación.
> No me preocupa en nada el que sea o no posible. Solo era por comentar.
Probablemente no sea muy complicado pero si te digo la verdad no soy muy
partidario de estas historias.
Saludos,
José Lalí­n

[Sommus]

Caro José Lalí­n,
No meu caso, trabalho com o formulário principal da aplicação, em "TELA
CHEIA", e centralizo o form principal, porém com animatewindow() a tela não
fica centralizada... e também há outro problema, num formulário simples onde
tenho uma imagem de fundo e alguns labels sobre essa imagem, quando uso
animatewindow() nesse form, somente aparece a imagem, os labels não
aparecem...
Obrigado pela atenção,
Reginaldo
"José Lalí­n" <joselalinf@gmail.com> escreveu na notí­cia da
mensagem:51122e78$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> José Ramón,
>
> nunca lo he utilizado pero será cuestión de experimentar.
>
> En el evento OnActivate() del formulario:
>
> AnimateWindow( ::Handle, 1500, nOr( AW_ACTIVATE, AW_HOR_POSITIVE,
> AW_SLIDE ) )
>
> Buscando en Google imagino que aparecerán cientos de ejemplos de uso.
>
> Saludos,
> José Lalí­n
>