Unit Rck

Record Label Component Designer: Craig Ward, 100554.2072@compuserve.com Date: 2/1/96 Version: 1.3 Function: Displays the current position in a data-set Calling: To update the current record position the developer must call something similar to: recordPosition1.Dataset := Table1; recordPosition1.UpdateLabel; Of course, the dataset could be specified in the object- inspector. I've found that the best place to call the updateLabel procedure from is the OnDataChange event for a TDataSource component. Notes: Some of this code is derived from an un-named source who contributed it to a compuserve forum. Update: The component possesses two new properties: [1] RecordNo - this stores the current record number of the datatset [2] FilteredTable - this is a bool used in the determination of the label (see below) Filters: The previous version of the component would not work correctly if used on tables that contained a filter (it would still present the full record-count). However, the component now possesses a boolean property to take into account filters. If the table will contain an active filter, then set this property to true BEFORE setting the filter. For example: recordPosition1.FilteredTable := true; << filter code goes here >> If this property is set to true then the component will present only the record number (ie: "Record n"). This has been designed to reflect the behaviour of Paradox on filtered tables. Obviously you will need to set this property to false when the filter is removed: recordPostion1.FilteredTable := false; << filter code goes here >> Thanks: Thanks to Martin Brekhof (100424.716@compuserve.com) for additions to the component.

Classes

TRecordPosition -

Functions

Register - procedure to register this as a custom component

Types

Constants

Variables


Functions


procedure Register;

procedure to register this as a custom component

Types


Constants


Variables