Unit Explform |
****************************************************************************** ** ** Explode Form ** ** Puts a "Exploding" effect on a form. Simply drop the component on ** the form and set the Source Rect for the effect. Tested ** only in Delphi 2.0. I really don't know if it works under Delphi 1.0, ** but I think it will... ** ** Feedback to: ** Carlos Augusto Grahl ** cgrahl@posthaus.com.br ** ** Controls: ** This code may be used, modified, included in applications without any ** license agreements as long as the disclaimers are accepted, and the ** comments are left intact. ** ** Disclaimer: ** This software is released into the public domain on the strict understanding ** that neither myself nor any associates or companies I work for have any ** liability explicity or implied. ** ** Possible Enhancements: ** I'm waiting for your ideas/comments... ** ******************************************************************************* ** ** Enhancements done by Ken Jones, 01.09.1997 ** ** I think the idea of this Exploding-Form is quite neat! Gives me a touch of ** Macintosh :) or OS/2 :( ... ** The only Problem was, that it ran way too fast on my P133. The Exploding- ** Effect was nearly unvisible. So i added and modified some minor stuff: ** ** - Added Property: ExplodeType ** Whatfor : Now you can choose between a exploding Rectangle Animation, ** for slower Computers, or a exploding FilledRecangle Anim. ** ** - Modified Procedure: FormShow and FormHide ** What's new : It doesn't paint all (steps) Rectangles first, and then ** delete's them, befor showing the Targetform. ** Now it paint's only a single Rectangle, changing it's ** size with each step, till it reaches the Targetform's ** position. ** ** - Corrected Procedure: FormShow and FormHide ** What was wrong : Due to the use of 'Trunc' for the In/Decrementing ** Variables, the exploding Animation did not end up ** at the exact Targetform position. Now i changed the ** calculation a bit, so it works perfectly. Now you can ** even enter up to 32768 steps (if you really like:) ** and it run's smoothly (and veery sloowly...). ** ** B.t.w, i don't know eather, if it works under Delphi 1.0. ** If you like my enhancements, or not, or if you just like to tell me what a ** bad english i got, do that by writing an email to: ** ** email: k.jones@coastlight.com ** ** have fun with this... (Cool idea Carlos, keep on !) **
Classes |
Functions |
Register -
Types |
Constants |
Variables |
Functions |
Types |
TExplodeType = (etFilled, etHollow);
TShowType = (stAlways, stShow, stHide);
Constants |
Variables |