TStack - Standard transparent color
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 -
bit1
bit2
bit3
bit4
bit5
bit6
bit7
bit8
clLightBlue
clTrans
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 );
bit1 = 1
bit2 = 2
bit3 = 4
bit4 = 8
bit5 = 16
bit6 = 32
bit7 = 64
bit8 = 128
clLightBlue = TColor($FFFF80)
Colors
clTrans = 8421376