| Class TTextObject (unit Text) |
****** * * Module: Text * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * This module defines the behavior required by Text objects. Text objects * actual like other visible objects, but form the basis for fonts within * the game. All characters on the Rocks screen are polygon-based. This * object class allows the program to work with text more easily. * * Just other visible objects, Text objects can be scaled, rotated, and * moved on the fly. This is used in the credits screen that comes up * when you leave Rocks open for a minute or two without starting a game. * ******
| Constructors |
constructor Create(listObjects: TList; szText: String; clrColor: TColor);| Functions |
procedure AssignShapes;
procedure SetColor(clrColor: TColor);
procedure SetText(szText: String);
function szGetShapeFile(cChar: Char): string;| Properties |
property clrColor : TColor
property szText : String| Events |
| Variables |
m_clrColor : TColor;
m_szText : String;| Constructors |
constructor Create(listObjects: TList; szText: String; clrColor: TColor);Class constructor.
| Functions |
procedure AssignShapes;Color of the text. } { Methods to assign polygon shapes to represent the current text.
Display the current score.
procedure SetColor(clrColor: TColor);Display the current score.
procedure SetText(szText: String);Methods for getting/setting property values.
Initialize the text polygons.
function szGetShapeFile(cChar: Char): string;Redraw the text now to avoid flickering.
| Properties |
property clrColor : TColor
property szText : StringExposed properties.
| Events |
| Variables |
m_clrColor : TColor;Current text displayed by the object.
m_szText : String;