Unit Utility

Classes

TStack - Standard transparent color

Functions

AppPath - ******************************************** Return the application path minus file name.
CreateBitmapMasks - ******************************************** Produce the 2 mask bitmaps for animation.
Delay - ******************************************** Delay for the specified number of seconds.
Distance - ******************************************** Standard distance formula.
EqualPt -
FormatMemo - ******************************************** Remove hard returns from a memo control, formating the text to fit into the dimensions of the control.
GetDeviceColors - ******************************************** Find out how many colors the screen supports.
GetToken - ******************************************** Strips a token from a string.
HiNibble -
IndexOf -
LoNibble -
MicroDelay - ******************************************** Delay for the specified number of microseconds.
PlayWave - ******************************************** Play a WAV file.
RandomizeValue - ******************************************** Randomize a float by a specified factor.
SecondsApart -
SendClick - ******************************************** Send a click message
TagOf - ******************************************** Return the control with the specified tag.
TagOfClass -
WMPaletteChanged - ******************************************** Stock functions that respsond to Windows palette messages
WMQueryNewPalette -

Types

Constants

bit1
bit2
bit3
bit4
bit5
bit6
bit7
bit8
clLightBlue
clTrans

Variables


Functions


function AppPath: String;

******************************************** Return the application path minus file name.

procedure CreateBitmapMasks( bmSource, bm1, bm2: Graphics.TBitmap; clTrans: TColor );

******************************************** Produce the 2 mask bitmaps for animation.

procedure Delay( nSeconds: integer );

******************************************** Delay for the specified number of seconds.

function Distance( const pt1, pt2: TPoint ) : real;

******************************************** Standard distance formula.

function EqualPt( const pt1, pt2: TPoint ): boolean;


procedure FormatMemo( memo: TMemo );

******************************************** Remove hard returns from a memo control, formating the text to fit into the dimensions of the control.

function GetDeviceColors( h: HDC ): longint;

******************************************** Find out how many colors the screen supports.

function GetToken( var sString: String; const sDelim: String ): String;

******************************************** Strips a token from a string.

function HiNibble( n: byte ): byte;


function IndexOf( str: TStrings; const sItem: string ): integer;


function LoNibble( n: byte ): byte;


procedure MicroDelay( nMicroSeconds: integer );

******************************************** Delay for the specified number of microseconds.

procedure PlayWave( const sFile: String; bOption: boolean );

******************************************** Play a WAV file.

function RandomizeValue( const x, xRandomness: extended ): extended;

******************************************** Randomize a float by a specified factor. Randomness = 0 (No Randomness) to 1 (Full Randomness)

function SecondsApart( const t1, t2: TDateTime ): integer;


procedure SendClick( hWnd: THandle );

******************************************** Send a click message

function TagOf( frm: TForm; const i: integer ): TComponent;

******************************************** Return the control with the specified tag.

function TagOfClass( frm: TForm; const i: integer; cls: string ): TComponent;


procedure WMPaletteChanged( var Msg: TWMPaletteChanged; f: TForm; bm: Graphics.TBitmap );

******************************************** Stock functions that respsond to Windows palette messages

procedure WMQueryNewPalette( var Msg: TWMQueryNewPalette; f: TForm; bm: Graphics.TBitmap );


Types


Constants

bit1 = 1

bit2 = 2

bit3 = 4

bit4 = 8

bit5 = 16

bit6 = 32

bit7 = 64

bit8 = 128

clLightBlue = TColor($FFFF80)

Colors

clTrans = 8421376


Variables