Class TDbLinkEdit (unit HJLnkEdt) |
Inherits from
TCustomMaskEdit
constructor Create(AOwner: TComponent);
- Public declarations
destructor Destroy;
Create
procedure BoundsChanged;
CreateParams
procedure Change;
Protected declarations set field link to calendar date
procedure CreateParams(var Params: TCreateParams);
call the inherited Change method
procedure DoEnter;
StopTracking;
procedure DoExit;
DoEnter
procedure EditButtonClick;
SetLinkStyle
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
WMSetCursor
procedure KeyPress(var Key: Char);
KeyDown
procedure Loaded;
Destroy
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
TrackButton
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
MouseDown
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;Operation: TOperation);
procedure Reset;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TWMNoParams);
procedure CMGetDataLink(var Message: TMessage);
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);
must have proper parameters for event and (FDataLink.
function GetDataField: string;
Remove the elipsis button (if present) when we lose focus
function GetDataSource: TDataSource;
returns the name of the data field
function GetField: TField;
assigns new data source
function GetReadOnly: Boolean;
tell data link to update database
function GetTextMargins: TPoint;
procedure SetDataField(const Value: string);
returns reference to the data source
procedure SetDataSource(Value: TDataSource);
assigns name of data field
procedure SetFocused(Value: Boolean);
procedure SetLinkStyle(Value: TLinkStyle);
BoundsChanged
procedure SetReadOnly(Value: Boolean);
procedure StopTracking;
MouseMove
procedure TrackButton(X,Y: Integer);
if the mouse was released (after being pressed) on the button
then perform its associated action
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);
EditButtonClick
procedure WMPaste(var Message: TMessage);
procedure WMSetCursor(var Msg: TWMSetCursor);
WMPaint
property AutoSelect :
Published declarations
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ImeMode :
property ImeName :
property LinkStyle : TLinkStyle
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Field : TField
event OnButtonClick : TNotifyEvent
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAlignment : TAlignment;
fButtonWidth : integer;
Private declarations
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
fLinkStyle : TLinkStyle;
fOnButtonClick : TNotifyEvent;
fPressed : boolean;
fTracking : boolean;
constructor Create(AOwner: TComponent);
Public declarations
destructor Destroy;
Create
procedure BoundsChanged;
CreateParams
procedure Change;
Protected declarations
set field link to calendar date
procedure CreateParams(var Params: TCreateParams);
call the inherited Change method
procedure DoEnter;
StopTracking;
procedure DoExit;
DoEnter
procedure EditButtonClick;
SetLinkStyle
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
WMSetCursor
procedure KeyPress(var Key: Char);
KeyDown
procedure Loaded;
Destroy
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
TrackButton
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
MouseDown
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;Operation: TOperation);
procedure Reset;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TWMNoParams);
procedure CMGetDataLink(var Message: TMessage);
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);
must have proper parameters for event
and (FDataLink.Modified
function GetDataField: string;
Remove the elipsis button (if present) when we lose focus
function GetDataSource: TDataSource;
returns the name of the data field
function GetField: TField;
assigns new data source
function GetReadOnly: Boolean;
tell data link to update database
function GetTextMargins: TPoint;
procedure SetDataField(const Value: string);
returns reference to the data source
procedure SetDataSource(Value: TDataSource);
assigns name of data field
procedure SetFocused(Value: Boolean);
procedure SetLinkStyle(Value: TLinkStyle);
BoundsChanged
procedure SetReadOnly(Value: Boolean);
procedure StopTracking;
MouseMove
procedure TrackButton(X,Y: Integer);
if the mouse was released (after being pressed) on the button
then perform its associated action
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);
EditButtonClick
procedure WMPaste(var Message: TMessage);
procedure WMSetCursor(var Msg: TWMSetCursor);
WMPaint
property AutoSelect :
Published declarations
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ImeMode :
property ImeName :
property LinkStyle : TLinkStyle
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Field : TField
event OnButtonClick : TNotifyEvent
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAlignment : TAlignment;
fButtonWidth : integer;
Private declarations
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
fLinkStyle : TLinkStyle;
fOnButtonClick : TNotifyEvent;
fPressed : boolean;
fTracking : boolean;