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
constructor Create(AOwner: TComponent);
- -------------------------------------------------------------} {-------------------- TDbDateEdit97 --------------------------} {-------------------------------------------------------------
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);
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Date : TDateTime
property Field : TField
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
constructor Create(AOwner: TComponent);
-------------------------------------------------------------} {-------------------- TDbDateEdit97 --------------------------} {-------------------------------------------------------------
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);
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Date : TDateTime
property Field : TField
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;