New UserLib : GadAnim

[Flype]

Code: Select all

;-------------------------------------------------------------------------------
;
; Name        : GadAnim
; Version     : 1.0
;
; Author      : Flype ( flype@altern.org )
; Date        : 08 may 2004
;
; Purpose     : GadAnim allow the creation of Button and/or Image animated
;
; Compilation : TailBite 1.1 PR 10 and PureBasic 3.90
;
; Commands    : GadAnimButton(GadgetID.l, x.l, y.l, w.l, h.l, ImageID.l, ImageNB.l)
;               GadAnimImage(GadgetID.l, x.l, y.l, ImageID.l, ImageNB.l, Flags.l)
;               GadAnimStart(hWindow.l, TimerID.l, Delay.l)
;               GadAnimRestart()
;               GadAnimPause()
;               GadAnimStop()
;
;-------------------------------------------------------------------------------

GadAnim is available here :

http://www.serveurperso.com/~flype/Pure ... adAnim.zip

[PolyVector]

Nice work Flype

[Flype]

thanx polyvector

i need feedback...
is it ok for you, even on PB 3.91 ?
any flickering problem to report ?

[PolyVector]

every few seconds i'll catch a glimps of the retrace... but that's true of most animated things....

The only problem I've noticed is that if you set the speed slow... something like:
GadAnimStart(WindowID(), 1, 500)
the gadgets don't draw until the 500ms is up....
maybe you could have it draw once when that command is called?

I'm running 3.91 Beta 1 on WinXP Pro...

[Flype]

hmmm, i see. i will correct it
thanx