| Class TSelKey (unit SelectU) |
TComponent
Make sure these records are packed.
| Constructors |
constructor Create(AOwner: TComponent);==========================================================} { 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;
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;