Class TSelKey (unit SelectU) |
Inherits from
TComponent
Make sure these records are packed.
constructor Create(AOwner: TComponent);
- Methods that handle user searches
==========================================================} { User interface methods } {==========================================================
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;
property CharCase : TEditCharCase
property Contrast : TColor
FCharCase : TEditCharCase;
FContrast : TColor;
constructor Create(AOwner: TComponent);
Methods that handle user searches
==========================================================} { User interface methods } {==========================================================
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;
property CharCase : TEditCharCase
property Contrast : TColor
FCharCase : TEditCharCase;
FContrast : TColor;