[DUG] Friday giveaway - Form Effects

Kyley Harris kyleyharris at gmail.com
Fri Nov 9 14:50:43 NZDT 2007


Can't remember the component name but there Is a free one out there,  
maybe Jedi that mimics that fully including stacking and decent event  
driven clicking. It works well

Regards,
Kyley
021-671821

On Nov 9, 2007, at 2:37 PM, "John Bird" <johnkbird at paradise.net.nz>  
wrote:

> Anyone looked at the little popup windows from Outlook/Skype  
> messaging/Antivirus programs/Google news alerts/, you know the  
> little windows that slide into a corner of the screen and/or fade in  
> and out and thought "I would like to be able to do that"?
>
> I wrote a simple function in a standalone unit that can be called to  
> provide several such simple form effects - can be called for any  
> form  instead of calling the show or hide methods.  I thought I  
> would do it as a free giveaway, and for anyone to suggest any  
> possible improvements.
>
> It does not do sounds on show/hide yet, but I may add that later.
>
> Anyone interested? either email me or I can post it here in email,  
> its not very long.  And it looks pretty cool.
> (I have a full test program for it as well.)
>
> here is the description of the parameters
>
>
> (*
> Form Effects
>
> Freeware from JBCL - John Bird
> A function unit - code only (no form attached) that can be called
> to provide some pretty form effects.
>
> Call by function
> jFormEffect(
>
>   aForm   TForm or descendent
>
>   aShowfl    one of jfeShow jfeShowModal jfeHide jfeClose
>
>   //from here to simplify parameters are in alphabetic order
>   Note you can call using numbers, or if you prefer using the
>   constant values defined below, as they are in scope -
>   eg for aShowfl can be 1 (show) or you can use jfeShow
>             Hide form can be 3 or jfeHide
>
>   aBorderfl  Borderstyle of form
>             0=no change
>             jfeStd      (bsSizeable)
>             jfeToolwin  (bsToolWin)
>             jfeNone
>             NOTE! only change this when form is not visible
>
>   acolorfl  0=no set color of form
>           1=set to aColorval folowing
>   aColorval  if set sets color of form.
>
>   aFadefl   0=None
>           1=Fade in/out
>           Form becomes gradually less transparent as shows,
>           and more transparent as hidden, (fades out gradually).
>
>   aPosfl   0=No Move - use form position
>           1=Position at point on screen, no movement
>           2=Moveout/Hide into border
>
>   aPosVal    0=none (ie as defined)
>                 rest correspond to clock hour positions
>                 eg 1= 1 O'Clock is top border, on right side
>                 2=right border, at top  up to 12=middle top border
>                 13=Centre
>                 for Show, this is where form ends up
>                 for Hide, this is where form will disappear to
>                 eg aPosFl=2 and aPosVal=1 means Form slides down  
> when shown
>                 or slides up into on Hide to or from 1 O'Clock  
> position on screen
>                 in the case of 1 O'Clock slides down from top right  
> hand
>                 corner of screen to occupy top right hand corner of  
> screen.
>                 and so on for the other 12 clock positions
>                 eg 2 O'Clock is same position, but slides in from
>                 the right screen border on show,
>                 and off to the right on hide.
>
>   aRollfl    0=None
>            1=Roll down/Roll up
>            that is the form drops down from the title bar as shown,  
> and
>            rolls up into the title bar as hidden.
>            Can be used along with the position function as well.
>
>
>   aSmoothfl   one of jfeLow jfeMed jfeHigh  how  many iterations done
>
>   aTimeval     time in Milliseconds to take - default 1000
>
>
> Note form show ends at transparency,pos and height of form as set  
> when called.
> after disappears, set to original values so that show and hide do  
> valid things...
>
> Note - to avoid windows UI bugs, do not change forms border type  
> while the
> form is visible, only when not visible (does not repaint correctly).
> *)
>
> John
>
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with  
> Subject: unsubscribe
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.adventureeducation.co.nz/pipermail/delphi/attachments/20071109/1cbd62cb/attachment.html


More information about the Delphi mailing list