Copyright© Kambiz R. Khojasteh. All rights reserved.
Get future component updates from http://www.delphiarea.com.

• Delphi 1
• Delphi 3
• Delphi 4
• Delphi 5
• Delphi 6
• Delphi 7
• Delphi 2005
• Delphi 2006
• Delphi 2007
• Delphi 2009
• Delphi 2010

DESCRIPTION

Probably you have seen Java Applet of Sun Microsystems named NervousText. TTextAnimator control has used the same idea for animating text. The control is like a TLabel with a few additional properties. This component can also animate the color of the text as well as letters.

KEY PROPERTIES

• Active: Boolean
  Toggles text animation on/off.
• Alignment: TAlignment
  TAlignment = (taLeftJustify, taRightJustify, taCenter)
  Specifies how the text is aligned within the client area of the control.
• AutoSize: Boolean
  If set to true, automatically sizes the control to the size of the Caption if set.
• Caption: String
  Specifies the Text that will be animated.
• Color: TColor
  Determines the background of the control.
• ColorAnimation: Boolean
  If set to true, color of the Caption's characters will animate from ColorStart to ColorStop and vice versa.
• ColorStart: TColor
  Determines the initial text color of the color animation.
• ColorStop: TColor
  Determines the final text color of the color animation.
• Delay: Word
  Determines the amount of delay before showing the next frame of the animation.
• Font: TFont
  Specifies the base font of the animation.
  IMPORTANT NOTE: Use only TrueType fonts.
• MaxStep: Word
  The largest font of the animated text is determined by summation of base font size and value of this property.
• Step: Word
  Determines the incremental/decremental value of the font size in each text animation step. If you want to use only color animation without having character animation, set Step to zero.
• Style: TTextAnimStyle
  TTextAnimStyle = (taAll, taRandom, taWave, taWind)
  Determines the using effect of text animation.
• Transparent: Boolean
  Specifies whether controls that sit below the control can be seen through it.

KEY METHODS

• procedure NextFrame
  Creates a new animation frame and draws it on the control client area. This procedure allows you to generate manually frames of the animation without need of the control's internal timer.

KEY EVENTS

• OnMouseEnter: TNotifyEvent
  Occurs when mouse pointer moves over the control.
• OnMouseLeave: TNotifyEvent
  Occurs when mouse pointer moves off from over the control.

HISTORY

• 1.41 (April 7, 2006)
  - The new OnMouseEnter and OnMouseLeave events are added.
• 1.40 (February 4, 2001)
  - Memory leak fixed.
• 1.30 (January 14, 2000)
  - Parent class of the control changed from TCustomControl (windowed) to TGraphicControl (non-windowed)
  - Transparent property added.
  - NextFrame method added.
  - Reported bug on Delphi 5 Standard fixed.
• 1.20 (December 9, 1999)
  - Color animation added.
• 1.10 (December 6, 1999)
  - Step property added.
  - taWind animation style added.
  - The default value of Style property changed from taWave to taWind.
• 1.00 (December 6, 1999)
  - Initial release.

LICENSE

TTextAnimator component is freeware. You may copy component's files AS LONG AS YOU COPY ALL OF THEM. If you want to change the source code in order to improve the component's features, performance, etc. please send me the new source code so that I can have a look at it. The changed source code should contain descriptions what you have changed, and of course your name. The only thing you MAY NOT CHANGE is the ORIGINAL COPYRIGHT INFORMATION.

DISCLAIMER

TTextAnimator is provided "AS IS" without any warranty of any kind, either express or implied. The entire risk as to the quality and performance of the software is with you. The author is NOT liable for any DAMAGES resulting from the use and misuse of the component, especially he is NOT liable for DAMAGES that were caused BY ANY VERSION WHICH HAS NOT BEEN PROGRAMMED BY THE AUTHOR HIMSELF.