TTextAnimator
v1.4
Based
on NervousText Java Applet from Sun Microsystems
|
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 |
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. In addition to animating the text in four
different styles, the control can animate color of the text.
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
No new event.
HISTORY
- 1.4 (February
4, 2001)
- Memory leak bug fixed.
- 1.3 (January
14, 2000)
- Parent class of the control changed from TCustomControl (windowed)
to TGraphicControl (non-windowed)
- Transparent property adde.d
- NextFrame method added.
- Reported bug on Delphi 5 Standard fixed
- 1.2 (December
9, 1999)
- Color animation added.
- 1.1 (December
6, 1999)
- Step property added.
- taWind animation style added.
- The default value of Style property changed from taWave to
taWind.
- 1.0 (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.