Class TRxDBLookupCombo (unit RXLookup) |
Inherits from
TRxLookupControl
constructor Create(AOwner: TComponent);
- TRxDBLookupCombo
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);
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 :
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 :
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;
constructor Create(AOwner: TComponent);
TRxDBLookupCombo
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);
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 :
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 :
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;