FONTREG.DCU contains Six components;

TFONTCOMBO
TSIZECOMBO
TSTYLEBOX
TALIGNBOX
TCOLORBOX
TSTATUSPANEL

New Procedure to fill TSizeCombo with correct font sizes. See below.

These components are all freeware. They are not crippled in any way. Use them as
you see fit in your own programs but you must not make money from them by passing them 
off as your own.
If you find them useful and have any components of your own that you are willing
to share with other Delphi enthusiasts then please send me at the address below,
or post on compuserve for all the world to see.
If you have any questions or ideas you would like to see included in this set then 
I would like to hear from you.

Install the components in Delphi in the usual manner by selecting FontReg.pas.

A sample program is included which gives full details on how to use these components.
I have not included the source code because all the relevant procedures can
be read in the memo component on the sample.
There are no events available in the TSTATUSPANEL component. To use, just place the
component on the form and it will align it's self to the bottom of the form. 
There are three parts to the component.
1. The status panel. When running it will automatically track any application hints.
2. The keys panel. This part can be made invisible at run time but it will always 
show up during the design stage. It will track the state of the Number Lock, Caps Lock
and Scroll lock keys. When first placed on the form the panel will reflect the current
state of these keys but any changes made ie: pressing the caps lock key will not
be shown. When the program is running then the keys will work as expected showing 
changes to the keys as theuy happen.
3. User panel. This part can be made invisible at run time but it will always 
show up during the design stage. This panel can be linked to a Datasource which will
then change with the state of the datasource. ie: browse mode, insert mode etc. It can
be overriden at any time by using the UserText property. 
ie: TStatusPanel1.UserText:='Delete Record'
There are lots of properties for changing the text and panel colours and changing the
inner and outer bevels so you can customise the panel to suit your needs.
Two bonus properties allow you to set the colour and delay of the mouse hints.

New Procedure:  
procedure FillSizeCombo(Box: TSizeCombo; FontName: String);
In order for the SizeCombo to be filled with the correct font sizes
for the selected Font you must call the FillSizeCombo procedure.
BOX is the TSizeCombo you wish to fill.
FONTNAME is the font name as a string.

The best time to do this is just after the TFontCombo has been changed
as the font name is passed in string form in the variable NewFont.

ie: FillSizeCombo(SizeCombo1,NewFont);
The SizeCombo can be filled at anytime.
ie: OnFormShow event > FillSizeCombo(MySizeCombo,'Ms Sans Serif');

refer to the sample program if you are unsure on this point.

History:
VERSION 1	TFONTCOMBO, TSIZECOMBO, TSTYLEBOX, TALIGNBOX created around
                the begining of November 95. 
VERSION 1.1     TCOLORBOX added Friday 17th November 1995.
		Posted on Compuserve, Saturday 18th November 1995. No bugs
		known as yet. Please keep me informed if you discover any.
VERSION 1.2     Added new property to TFONTCOMBO to set the TT colour in the
		drop down list.
		Added TSTATUSPANEL control.
		Now uses Win API EnumFontFamilies to establish number of
		font sizes available for selected font.
		Posted on Compuserve Sunday 26th November 1995.
	

For the future:
		A proper windows help file.
		New component in the pipe line which will display the current
		record number as you move through the dataset.


Legal:
Normal disclaimers go here. I hold no responsibility for any damage caused using
these components. Use at your own risk.


E-Mail: 
-------
Andrew Maule
Compuserve: 101357,432
Internet: 101357.432@compuserve.com