Class TDbDateEdit97 (unit DtEdDB97)

Inherits from

TDateEdit97

***************************************************************************** TDbDateEdit97 Derived from tDateEdit97 Properties DataSource, DataField : Database informations ReadOnly : Can modify field Author name=BOURMAD Mehdi Author E-mail=bourmad@mygale.org Author URL=www.mygale.org/~bourmad

Constructors


constructor Create(AOwner: TComponent);

-------------------------------------------------------------} {-------------------- TDbDateEdit97 --------------------------} {-------------------------------------------------------------


Functions

destructor Destroy;


procedure Change;

FDataLink.

procedure ClearDate;


procedure Click;


function GetDate: TDateTime;


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


procedure KeyPress(var Key: char);


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


procedure SetDate(dtArg: TDateTime);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure DataChange(Sender: TObject);


procedure EditingChange(Sender: TObject);

Transform date to number before edit necessary if the cursor is already on the edit box

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 WMPaste(var message: TMessage);


Properties

property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Date : TDateTime


property Field : TField


Events

Variables

FAlignment : TAlignment;


FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;



Constructors


constructor Create(AOwner: TComponent);

-------------------------------------------------------------} {-------------------- TDbDateEdit97 --------------------------} {-------------------------------------------------------------


Functions


destructor Destroy;


procedure Change;

FDataLink.Reset; {comment, because raise problem when clear a date


procedure ClearDate;


procedure Click;


function GetDate: TDateTime;


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


procedure KeyPress(var Key: char);


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


procedure SetDate(dtArg: TDateTime);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure DataChange(Sender: TObject);


procedure EditingChange(Sender: TObject);

Transform date to number before edit necessary if the cursor is already on the edit box


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 WMPaste(var message: TMessage);


Properties


property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Date : TDateTime


property Field : TField


Events


Variables


FAlignment : TAlignment;


FCanvas : TControlCanvas;


FDataLink : TFieldDataLink;


FFocused : Boolean;