Class TDbLinkEdit (unit HJLnkEdt)

Inherits from

TCustomMaskEdit

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

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

Properties

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


Events

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 :


Variables

FAlignment : TAlignment;


fButtonWidth : integer;

Private declarations

FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;


fLinkStyle : TLinkStyle;


fOnButtonClick : TNotifyEvent;


fPressed : boolean;


fTracking : boolean;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


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


Properties


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


Events


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 :


Variables


FAlignment : TAlignment;


fButtonWidth : integer;

Private declarations


FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;


fLinkStyle : TLinkStyle;


fOnButtonClick : TNotifyEvent;


fPressed : boolean;


fTracking : boolean;