[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