Copyright©
Kambiz R. Khojasteh. All rights reserved.
Get future component updates from http://www.delphiarea.com.
Delphi
3 |
Delphi
4 |
Delphi
5 |
Delphi
6 |
DESCRIPTION
This component
gets a list of lines and shows them sequentially on the screen by a fade effect.
Properties of this component let you to:
- Specify the
speed of text transition
- Define a background
image for the control
- Make the control's
background as transparent
ACKNOWLEDGMENT
Special thanks
to:
KEY PROPERTIES
- Active: Boolean
Toggles text fading on/off.
- Alignment:
TAlignment
TAlignment = (taLeftJustify, taRightJustify, taCenter)
Specifies how the text is aligned within the client area of the control.
- Background:
TPicture
Contains the background image of the control.
- BackgroundMode:
TBackgroundMode
TBackgroundMode = (bmNone, bmTiled, bmStretched, bmCentered)
Determines how the control displays the background image on its client
area.
bmNone |
|
Ignores
the background image. |
bmTiled |
|
Fills
the client area of the control by the background image as tiled. |
bmStretched |
|
Fills
the client area of the control by stretching (or shrinking) the background
image. |
bmCentered |
|
Draws
the background image on the center of the control's client area. |
- FadeDelay:
Word
Determines the amount of delay in milliseconds before showing the next
frame.
- FadeStep:
1..100
Determines the maximum amount of transparency difference (in percent)
between to consequent frames.
- LineDelay:
Word
Determines the amount of delay in milliseconds before showing the next
line of text.
- LineIndex:
Integer
Determines the index of the next line of text that will be displayed.
- Lines: TStrings
Contains the lines of text.
- RepeatCount:
TBorderWidth
Specifies the number of iterations. When the control shows all lines of
text for the number of specified iteration, the Active property
automatically will set to false.
- RepeatedCount:
Integer (Read-only)
Specified the number of times that all the lines has been shown.
- Transparent:
Boolean
Specifies whether controls that sit below the control can be seen through
it.
- WordWrap:
Boolean
Specifies whether the line of text wraps when it is too long for the width
of the control.
KEY METHODS
- procedure
Reset
Clears the control's client area and restart to show the lines from the
first line of the text. This method does not change the value of RepeatedCount
property.
KEY EVENTS
- OnComplete:
TNotifyEvent
Occurs when the current line of the text has been displayed completely.
GLOBAL ROUTINES
- procedure
DrawTiled(Canvas: TCanvas; Rect: TRect; Graphic: TGraphic)
Fills the specified rectangular area of the Canvas with the Graphic as
tiled.
- procedure
DrawTransparent(dstBitmap, srcBitmap: TBitmap; Transparency: TPercent)
Draws the srcBitmap over the dstBitmap with the specified amount of transparency
in percent. Two bitmaps must have same dimension.
HISTORY
- 1.2 (February
4, 2001)
- Memory leak bug fixed.
- 1.1 (July
28, 2000)
- I have forgotten to track changes in this release.
- 1.0 (May
30, 2000)
- Initial release.
LICENSE
TTextFader 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
TTextFader 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.