This code is a contribution from Petrus Van Breda. If you have questions, 
improvments, comments or bug reports please contact the author at the
following address:  "sandp@netactive.co.za"


Foreword from the author:
-------------------------

Record Number Component.

INTRODUCTION

Included you will find a component I have written (in Delphi 3) to add a
Record Number Label to your application. Just drop it on a form and it will
have a caption field shows Record Number and Record Count.

 This product has been released into the public domain, FREE! I want no money
in return, and you are welcome to make as many copies, and distribute them, as
you like. I will not however be held responsible for any damages or mishaps
that may occur out of the use of this component. However, I would appreciate
some feedback, especially bugs or improvements that you think that I should
make. The source is included. If you make any changes or improvements to it
please send me a copy. If you use the component let me know so that I know it
is of use for anybody.

INSTALLATION DELPHI 3

Unzip the ZIP file into a directory.

Start Delphi.

Note that RecNoLabel was only tested with Delphi 3.0.

Installing for Delphi 3.0

 Go to Component |Install Component option of the main menu.  Select the tab
Into existing package. Click on the Browse button to the right of Unit file
name, and select RECNOLBL.PAS. You will notice that Delphi will automatically
add the directory where RECNOLBL.PAS is if it is not already in the "Search
Path".  "Package filename" will have something like C:\Program
Files\Borland\Delphi 3\Lib\dclusr30.dpk;. You do not need to change anything
there.  Click on OK button.  Delphi will compile the RecNoLabel unit and
install the RecNoLabel component on the SPSoft component palette.

 The last step is to close all open windows. Delphi will ask you if you want
to save C:\Program Files\Borland\Delphi 3\Lib\dclusr30.dpk.  Select "Yes".

 When finished, if you scroll your component palette to the right, you will
notice that you now have a new component page, SPSoft, as the last tab on your
component palette.

 I recommend that you now move the source code file to another directory (or
zip it up), so that the DCUs do not get rebuilt each time you build an
application. Installation is complete!

Properties of RecNoLabel:

The RecNoLabel Alignment is RightJustify as default.

Select the DataSource from the Database that you want to display record
numbers.  Position is the record number and will show -1 if the database is
not open or  if there is no database.

If the database property Active is set to True you will see the following
information on the database:  "1324 : 8745 " first the Record Number and
Second the Total Number of Records in the Database.

Alfred of Software Science INC has helped me to change the component to be
able to be used with any third party components including the BDE. {The first
version only worked with Topaz for Delphi}. He also added the Formatting
string property. To use it is quit easy.

"%d : %d" is the default and will show RecNo : RecCount.

You can change this to read something like:

"Record %d of %d" or "%d / %d" and so on. Let your imagination do the work.

Copyright (c) 1998 SPSoft Software Development.
All Rights Reserved Worldwide.
Email: sandp@netactive.co.za
http://www.geocities.com/SiliconValley/Sector/9913/
