Class TFilterCallback (unit Fltcback)

Inherits from

TComponent

Actual component doing the work.

Constructors


constructor Create(AOwner: TComponent);

** Create component which handles the BDE callbacks.


Functions

destructor Destroy;

** Destroy resources used by component

procedure EndFilter;

** Terminates filter

procedure StartFilter;

** Starts filter active

function GetFilteredCount: Longint;

Users callback event handler } {$ifdef BDEFilterCount

** Returns the exact amount of records after the filter has been applied


procedure Notification(AComponent: TComponent; Operation: TOperation);

** Removes our reference to the selected table if it is being removed

procedure SetActive(Value: boolean);

** Activate or Deactivate the filter callback.

procedure SetTable(Value: TTable);

** When a table name is entered, read in all field names.

Properties

property Active : boolean


property FilteredRecordCount : Longint


property Table : TTable


Events

event OnFilter : TFilterEvent


Variables

FActive : boolean;


FFilterObject : TFilterObject;

Whether or not the filter is active

FOnFilter : TFilterEvent;

Handle of Filter when applied

FTable : TTable;

Pointer to our record handler

hFilter : hDbiFilter;

Table Filter to be applied to


Constructors


constructor Create(AOwner: TComponent);

** Create component which handles the BDE callbacks.


Functions


destructor Destroy;

** Destroy resources used by component


procedure EndFilter;

** Terminates filter


procedure StartFilter;

** Starts filter active


function GetFilteredCount: Longint;

Users callback event handler } {$ifdef BDEFilterCount

** Returns the exact amount of records after the filter has been applied


procedure Notification(AComponent: TComponent; Operation: TOperation);

** Removes our reference to the selected table if it is being removed


procedure SetActive(Value: boolean);

** Activate or Deactivate the filter callback.


procedure SetTable(Value: TTable);

** When a table name is entered, read in all field names. ** Whilst then component is created, the LoadFields method cannot be called ** because the dependant variables and objects have not been completely ** created. This eventuality is taken care of by the SetActive method


Properties


property Active : boolean


property FilteredRecordCount : Longint


property Table : TTable


Events


event OnFilter : TFilterEvent


Variables


FActive : boolean;


FFilterObject : TFilterObject;

Whether or not the filter is active


FOnFilter : TFilterEvent;

Handle of Filter when applied


FTable : TTable;

Pointer to our record handler


hFilter : hDbiFilter;

Table Filter to be applied to