Class TTextObject (unit Text)

Inherits from

TVisibleObject

****** * * 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);

Class constructor.


Functions

procedure AssignShapes;

Color of the text.

procedure SetColor(clrColor: TColor);

Display the current score.

procedure SetText(szText: String);

Methods for getting/setting property values.

function szGetShapeFile(cChar: Char): string;

Redraw the text now to avoid flickering.

Properties

property clrColor : TColor


property szText : String

Exposed properties.

Events

Variables

m_clrColor : TColor;

Current text displayed by the object.

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 : String

Exposed properties.


Events


Variables


m_clrColor : TColor;

Current text displayed by the object.


m_szText : String;