Class TSelKey (unit SelectU)

Inherits from

TComponent

Make sure these records are packed.

Constructors


constructor Create(AOwner: TComponent);

Methods that handle user searches

==========================================================} { User interface methods } {==========================================================



Functions

function SelectManyKeys(Key: TKey; Title: string; var KSL: TStringList): boolean;


function SelectManyKeysInsert(Key: TKey; Title: string; var ISL: TStringList; var KSL: TStringList): boolean;


function SelectOneKey(Key: TKey; Title: string; var found: shortstring): boolean;

=============================================================} { Search methods } { Most of the work is absorbed by the Init method.

function SelectOneKeyInsert(Key: TKey; Title: string; var ISL: TStringList; var found: shortstring): boolean;


Properties

property CharCase : TEditCharCase


property Contrast : TColor


Events

Variables

FCharCase : TEditCharCase;


FContrast : TColor;



Constructors


constructor Create(AOwner: TComponent);

Methods that handle user searches

==========================================================} { User interface methods } {==========================================================


Functions


function SelectManyKeys(Key: TKey; Title: string; var KSL: TStringList): boolean;


function SelectManyKeysInsert(Key: TKey; Title: string; var ISL: TStringList; var KSL: TStringList): boolean;


function SelectOneKey(Key: TKey; Title: string; var found: shortstring): boolean;

=============================================================} { Search methods } { Most of the work is absorbed by the Init method. These just } {set up parameters. } {=============================================================


function SelectOneKeyInsert(Key: TKey; Title: string; var ISL: TStringList; var found: shortstring): boolean;


Properties


property CharCase : TEditCharCase


property Contrast : TColor


Events


Variables


FCharCase : TEditCharCase;


FContrast : TColor;