Class TRxDBLookupCombo (unit RXLookup)

Inherits from

TRxLookupControl

Constructors


constructor Create(AOwner: TComponent);

TRxDBLookupCombo


Functions

procedure CloseUp(Accept: Boolean);


destructor Destroy;

GetMinHeight

procedure DropDown;


procedure ResetField;

direct drawing Canvas.

procedure Click;


procedure CreateParams(var Params: TCreateParams);


function GetPicture(Current, Empty: Boolean; var TextMargin: Integer): TGraphic;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

FListActive

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure CMCancelMode(var Message: TCMCancelMode);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMGetDataLink(var Message: TMessage);


procedure CNKeyDown(var Message: TWMKeyDown);


procedure DisplayValueChanged;


function GetMinHeight: Integer;

FDataList.

function GetText: string;


procedure InvalidateText;


procedure KeyValueChanged;


procedure ListLinkActiveChanged;


procedure ListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure StopTracking;


procedure TrackButton(X, Y: Integer);


procedure UpdateCurrentImage;


procedure UpdateDisplayEmpty(const Value: string);


procedure WMCancelMode(var Message: TMessage);


procedure WMGetDlgCode(var Message: TMessage);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetCursor(var Message: TWMSetCursor);


procedure WMSize(var Message: TWMSize);


Properties

property Color :


property Ctl3D :


property DataField :


property DataSource :


property DisplayEmpty :


property DragCursor :


property DragMode :


property DropDownAlign : TDropDownAlign


property DropDownCount : Integer


property DropDownWidth : Integer


property EmptyItemColor :


property EmptyValue :


property Enabled :


property EscapeClear : Boolean


property Font :


property IgnoreCase :


property ImeMode :


property ImeName :


property IndexSwitch :


property ItemHeight :


property ListStyle :


property LookupDisplay :


property LookupDisplayIndex :


property LookupField :


property LookupSource :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property DisplayValue :


property IsDropDown : Boolean


property KeyValue :


property ListVisible : Boolean


property Text : string


property Value :


Events

event OnChange :


event OnClick :


event OnCloseUp : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnDropDown : TNotifyEvent


event OnEndDrag :


event OnEnter :


event OnExit :


event OnGetImage :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAlignment : TAlignment;


FButtonWidth : Integer;


FDataList : TRxPopupDataList;


FDropDownAlign : TDropDownAlign;


FDropDownCount : Integer;


FDropDownWidth : Integer;


FEscapeClear : Boolean;


FListVisible : Boolean;


FOnCloseUp : TNotifyEvent;


FOnDropDown : TNotifyEvent;


FPressed : Boolean;


FSelImage : TPicture;


FSelMargin : Integer;


FTracking : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TRxDBLookupCombo


Functions


procedure CloseUp(Accept: Boolean);


destructor Destroy;

GetMinHeight


procedure DropDown;


procedure ResetField;

direct drawing Canvas.TextRect(R, X, Max(2, (R.Bottom + R.Top - Canvas.TextHeight('w')) div 2), AText); if Image <> nil then begin ImageRect := R; ImageRect.Right := ImageRect.Left + TextMargin + 2; DrawPicture(Canvas, ImageRect, Image); end;


procedure Click;


procedure CreateParams(var Params: TCreateParams);


function GetPicture(Current, Empty: Boolean; var TextMargin: Integer): TGraphic;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

FListActive


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure CMCancelMode(var Message: TCMCancelMode);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMGetDataLink(var Message: TMessage);


procedure CNKeyDown(var Message: TWMKeyDown);


procedure DisplayValueChanged;


function GetMinHeight: Integer;

FDataList.KeyValueChanged;


function GetText: string;


procedure InvalidateText;


procedure KeyValueChanged;


procedure ListLinkActiveChanged;


procedure ListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure StopTracking;


procedure TrackButton(X, Y: Integer);


procedure UpdateCurrentImage;


procedure UpdateDisplayEmpty(const Value: string);


procedure WMCancelMode(var Message: TMessage);


procedure WMGetDlgCode(var Message: TMessage);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetCursor(var Message: TWMSetCursor);


procedure WMSize(var Message: TWMSize);


Properties


property Color :


property Ctl3D :


property DataField :


property DataSource :


property DisplayEmpty :


property DragCursor :


property DragMode :


property DropDownAlign : TDropDownAlign


property DropDownCount : Integer


property DropDownWidth : Integer


property EmptyItemColor :


property EmptyValue :


property Enabled :


property EscapeClear : Boolean


property Font :


property IgnoreCase :


property ImeMode :


property ImeName :


property IndexSwitch :


property ItemHeight :


property ListStyle :


property LookupDisplay :


property LookupDisplayIndex :


property LookupField :


property LookupSource :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property DisplayValue :


property IsDropDown : Boolean


property KeyValue :


property ListVisible : Boolean


property Text : string


property Value :


Events


event OnChange :


event OnClick :


event OnCloseUp : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnDropDown : TNotifyEvent


event OnEndDrag :


event OnEnter :


event OnExit :


event OnGetImage :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAlignment : TAlignment;


FButtonWidth : Integer;


FDataList : TRxPopupDataList;


FDropDownAlign : TDropDownAlign;


FDropDownCount : Integer;


FDropDownWidth : Integer;


FEscapeClear : Boolean;


FListVisible : Boolean;


FOnCloseUp : TNotifyEvent;


FOnDropDown : TNotifyEvent;


FPressed : Boolean;


FSelImage : TPicture;


FSelMargin : Integer;


FTracking : Boolean;