Class TDBHistoryComboBox (unit HistoryCombo)

Inherits from

TDBComboBox

Constructors


constructor Create (AOwner : TComponent);

TDBHistoryComboBox


Functions

destructor Destroy;


procedure Change;


procedure KeyPress(var Key : char);


procedure Loaded;


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


class procedure AddString (SelfObject : TObject; const Cad : string);


class procedure DeleteFromList (Obj : TObject);


function GetDataField : string;


function GetDataSource : TDataSource;


function GetKeepGlobalHistory : boolean;


class procedure InsertInList (const Value : string; Obj : TObject);


procedure NewGridKeyPress (Sender : TObject; var Key : char);


procedure NewOnExit (Sender : TObject);

The next line is because the implementation of the SelStart and the SelLength properties is buggy in the class TCustomComboBox, this is the correct way to use the message CB_SETEDITSEL message

procedure NewUpdateData (Sender : TObject);


procedure SetAddStringMode (value : TAddStringModeSet);


procedure SetDataField (const value : string);


procedure SetDataSource (value : TDataSource);


procedure SetDBGrid (value : TDBGrid);


procedure SetHistoryId (const value : string);


procedure SetKeepGlobalHistory (value : boolean);


Properties

property AddStringMode : TAddStringModeSet


property DataField : string


property DataSource : TDataSource


property DBColumn : integer


property DBGrid : TDBGrid


property EnabledGridTypeHelp : boolean


property EnabledTypeHelp : boolean


property HistoryId : string


property KeepGlobalHistory : boolean


property MaxLength :


Events

Variables

DataLink : TFieldDataLink;


FAddStringMode : TAddStringModeSet;


FDBColumn : integer;


FDBGrid : TDBGrid;


FEnabledGridTypeHelp : boolean;


FEnabledTypeHelp : boolean;


FHistoryId : string;


FItemsList : TStringList;


FLastOnExit : TNotifyEvent;


FLastUpdateData : TNotifyEvent;


LastGridKeyPress : TKeyPressEvent;


UpdateSelStart : boolean;


WaitChange : boolean;



Constructors


constructor Create (AOwner : TComponent);

TDBHistoryComboBox


Functions


destructor Destroy;


procedure Change;


procedure KeyPress(var Key : char);


procedure Loaded;


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


class procedure AddString (SelfObject : TObject; const Cad : string);


class procedure DeleteFromList (Obj : TObject);


function GetDataField : string;


function GetDataSource : TDataSource;


function GetKeepGlobalHistory : boolean;


class procedure InsertInList (const Value : string; Obj : TObject);


procedure NewGridKeyPress (Sender : TObject; var Key : char);


procedure NewOnExit (Sender : TObject);

The next line is because the implementation of the SelStart and the SelLength properties is buggy in the class TCustomComboBox, this is the correct way to use the message CB_SETEDITSEL message


procedure NewUpdateData (Sender : TObject);


procedure SetAddStringMode (value : TAddStringModeSet);


procedure SetDataField (const value : string);


procedure SetDataSource (value : TDataSource);


procedure SetDBGrid (value : TDBGrid);


procedure SetHistoryId (const value : string);


procedure SetKeepGlobalHistory (value : boolean);


Properties


property AddStringMode : TAddStringModeSet


property DataField : string


property DataSource : TDataSource


property DBColumn : integer


property DBGrid : TDBGrid


property EnabledGridTypeHelp : boolean


property EnabledTypeHelp : boolean


property HistoryId : string


property KeepGlobalHistory : boolean


property MaxLength :


Events


Variables


DataLink : TFieldDataLink;


FAddStringMode : TAddStringModeSet;


FDBColumn : integer;


FDBGrid : TDBGrid;


FEnabledGridTypeHelp : boolean;


FEnabledTypeHelp : boolean;


FHistoryId : string;


FItemsList : TStringList;


FLastOnExit : TNotifyEvent;


FLastUpdateData : TNotifyEvent;


LastGridKeyPress : TKeyPressEvent;


UpdateSelStart : boolean;


WaitChange : boolean;