vote

FireMonkey: Extending TFloatAnimation to support maximum loops

JED Software Blog – Background In response to a QC report I wrote early last year I decided to implement a LoopCount property on the TFloatAnimation component. Report No: 105140 Status: Open Add a LoopCount property to the TAnimation class http://qc.embarcadero.com/wc/qcmain.aspx?d=105140 Class Definition TJSCustomLoopCountFloatAnimation = class(TFloatAnimation) public type TAnimationLoopEvent = reference to procedure (Sender: TObject; const LoopNumber: Integer; var Cancel: Boolean); private FLoopCount: Integer; FCheckingLooping: Boolean; FOnLoop: TAnimationLoopEvent; protected ...

Favorite? Off-Topic? JED @ 2013-02-09 05:02