Class TDBMaskEdit (unit Dame)

Inherits from

TCustomMaskEdit

TDBMaskEdit } { Data Aware Mask Edit

Constructors


constructor Create(AOwner: TComponent);

TDBMaskEdit } { Data Aware Masked Edit } { Override the constructor to initialize variables


Functions

destructor Destroy;


procedure Change;


function EditCanModify: Boolean;


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


procedure KeyPress(var Key: Char);


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


procedure Reset;


procedure CalcTextMargin;


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMFontChanged(var Message: TMessage);

Since edit controls do not handle justification unless multi-line (and then only poorly) we will draw right and center justify manually unless the edit has the focus.

procedure DataChange(Sender: TObject);


procedure EditingChange(Sender: TObject);

forces update

function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);


procedure SetReadOnly(Value: Boolean);


procedure UpdateData(Sender: TObject);


procedure WMCut(var Message: TMessage);


procedure WMPaint(var Message: TWMPaint);


procedure WMPaste(var Message: TMessage);


Properties

property About : TDBMaskEdAboutBox

AboutBox

property AutoSelect :


property AutoSize :


property BorderStyle :


property CharCase :


property Color :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property EditMask :

Publish EditMask and EditText properties.

property EditText :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PasswordChar :


property PopupMenu :


property ReadOnly : Boolean


property ShowHint :


property TabOrder :


property TabStop :


property Text :

Publish Text property.

property Visible :


property Field : TField


Events

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 :


Variables

FAlignment : TAlignment;


FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;


FMaskEditAbout : TDBMaskEdAboutBox;


FTextMargin : Integer;



Constructors


constructor Create(AOwner: TComponent);

TDBMaskEdit } { Data Aware Masked Edit } { Override the constructor to initialize variables


Functions


destructor Destroy;


procedure Change;


function EditCanModify: Boolean;


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


procedure KeyPress(var Key: Char);


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


procedure Reset;


procedure CalcTextMargin;


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMFontChanged(var Message: TMessage);

Since edit controls do not handle justification unless multi-line (and then only poorly) we will draw right and center justify manually unless the edit has the focus.


procedure DataChange(Sender: TObject);


procedure EditingChange(Sender: TObject);

forces update


function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);


procedure SetReadOnly(Value: Boolean);


procedure UpdateData(Sender: TObject);


procedure WMCut(var Message: TMessage);


procedure WMPaint(var Message: TWMPaint);


procedure WMPaste(var Message: TMessage);


Properties


property About : TDBMaskEdAboutBox

AboutBox


property AutoSelect :


property AutoSize :


property BorderStyle :


property CharCase :


property Color :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property EditMask :

Publish EditMask and EditText properties. EditText property does not } { need to be published if so desired.


property EditText :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PasswordChar :


property PopupMenu :


property ReadOnly : Boolean


property ShowHint :


property TabOrder :


property TabStop :


property Text :

Publish Text property. This property does not need to be published if } { so desired.


property Visible :


property Field : TField


Events


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 :


Variables


FAlignment : TAlignment;


FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;


FMaskEditAbout : TDBMaskEdAboutBox;


FTextMargin : Integer;