PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → WD 7.5-Creating Window Effect
WD 7.5-Creating Window Effect
Iniciado por Peter Purton, abr., 22 2004 4:42 AM - 6 respostas
Publicado em abril, 22 2004 - 4:42 AM
Hi all
I been playing with Window Effects.
I am able to Open a Window so it Slowly
Starts as Transperant to Full, Looks effective.
But what I want to do is also have a Window open in a
Frame effect, I wrote a little proc to test, does not
Work too well any Insight welcome.
------------------------
PROCEDURE WindowEffect()
XHeight is int = 1
FOR XHeight=1 TO 426
Form_Customer..Height = 0+XHeight

END
------------------------
TIA
Keep well
Peter Purton
Publicado em abril, 23 2004 - 5:45 AM
Try this:
PROCEDURE WindowEffect()
Form_customer..Height=1
FOR XHeight=1 TO 426
Form_customer..Height = Form_customer..Height+XHeight
END
Keep well,
King
Hi all
I been playing with Window Effects.
I am able to Open a Window so it Slowly
Starts as Transperant to Full, Looks effective.
But what I want to do is also have a Window open in a
Frame effect, I wrote a little proc to test, does not
Work too well any Insight welcome.
------------------------
PROCEDURE WindowEffect()
XHeight is int = 1
FOR XHeight=1 TO 426
Form_Customer..Height = 0+XHeight

END
------------------------
TIA
Keep well
Peter Purton
Publicado em abril, 24 2004 - 2:58 AM
Hi all
I been playing with Window Effects.
I am able to Open a Window so it Slowly
Starts as Transperant to Full, Looks effective.
But what I want to do is also have a Window open in a
Frame effect, I wrote a little proc to test, does not
Work too well any Insight welcome.
------------------------
PROCEDURE WindowEffect()
XHeight is int = 1
FOR XHeight=1 TO 426
Form_Customer..Height = 0+XHeight

END
------------------------
TIA
Keep well
Peter Purton

Hi Peter,
Would you be willing to share that code with us.
thank you,
joe
Publicado em abril, 26 2004 - 2:30 AM
Hi Joe
As always, I am willing to share any of my
WinDev Knowledge with fellow developers.
I use CallDLL32("user32", "GetWindowLongA",)
API, I have created a Class for ease of use.
I will put together a little eg:
All you would have to do to use the "Class"
is import it into your current Project
And call it as required.
I will have to see how big the example ends up.
Keep well
Peter Purton

Hi all
I been playing with Window Effects.
I am able to Open a Window so it Slowly
Starts as Transperant to Full, Looks effective.
But what I want to do is also have a Window open in a
Frame effect, I wrote a little proc to test, does not
Work too well any Insight welcome.
------------------------
PROCEDURE WindowEffect()
XHeight is int = 1
FOR XHeight=1 TO 426
Form_Customer..Height = 0+XHeight

END
------------------------
TIA
Keep well
Peter Purton
Hi Peter,

Would you be willing to share that code with us.
thank you,
joe
Publicado em abril, 26 2004 - 2:32 AM
Hi
I will give it a go.
Tnanx
Keep well
Peter Purton

Try this:
PROCEDURE WindowEffect()
Form_customer..Height=1
FOR XHeight=1 TO 426
Form_customer..Height = Form_customer..Height+XHeight
END
Keep well,
King
Hi all
I been playing with Window Effects.
I am able to Open a Window so it Slowly
Starts as Transperant to Full, Looks effective.
But what I want to do is also have a Window open in a
Frame effect, I wrote a little proc to test, does not
Work too well any Insight welcome.
------------------------
PROCEDURE WindowEffect()
XHeight is int = 1
FOR XHeight=1 TO 426
Form_Customer..Height = 0+XHeight

END
------------------------
TIA
Keep well
Peter Purton
Publicado em abril, 28 2004 - 9:46 PM
Thank you...looking forward to seeing it.
joe
Publicado em abril, 29 2004 - 5:54 AM
Hi Joe
Kevin Willis may be giving me some FTP
Space shortly.
Soon as I know, I will inform you.
Keep well
Peter Purton
Thank you...looking forward to seeing it.
joe