Class TACDbDateEdit (unit ACDateDb) |
Inherits from
TACDateEdit
*****************************************************************************
TACDbDateEdit version 2.0
a derived component from
TDbDateEdit97 version 3.5 by BOURMAD Mehdi
(this is only a renamed component to include it in a set of component
I published in the shareware market)
Derived from
tACDateEdit
Properties
DataSource, DataField : Database informations
ReadOnly : Can modify field
Author name=BOURMAD Mehdi, Andrea Carli
Author E-mail=bourmad@mygale.org, a.carli@penteres.it
Author URL=www.mygale.org/~bourmad
constructor Create(AOwner: TComponent);
- MIO
-------------------------------------------------------------} {-------------------- TACDbDateEdit --------------------------} {-------------------------------------------------------------
procedure ClearDate(Sender: TObject);
MIO
destructor Destroy;
MIO
procedure Loaded;
procedure Click; override;
procedure PopupCalendar(Sender: TObject);
MIO
procedure Change;
FDataLink.
function GetDate: TDateTime;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: char);
//MIO tolta
procedure TACDbDateEdit.
procedure Notification(AComponent: TComponent; Operation: TOperation);
MIO
procedure SetDate(dtArg: TDateTime);
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
SetFocused(True); //3.
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);
MIO Aggiorna il field collegato
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);
MIO
-------------------------------------------------------------} {-------------------- TACDbDateEdit --------------------------} {-------------------------------------------------------------
procedure ClearDate(Sender: TObject);
MIO
destructor Destroy;
MIO
procedure Loaded;
procedure Click; override;
procedure PopupCalendar(Sender: TObject);
MIO
procedure Change;
FDataLink.Reset; {comment, because raise problem when clear a date
function GetDate: TDateTime;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: char);
//MIO tolta
procedure TACDbDateEdit.Click;
begin
FDataLink.Edit;
inherited Click;
end;
procedure Notification(AComponent: TComponent; Operation: TOperation);
MIO
procedure SetDate(dtArg: TDateTime);
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
SetFocused(True); //3.5 FDataLink.Edit; //3.5 inherited; //3.5
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);
MIO Aggiorna il field collegato
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Date : TDateTime
property Field : TField
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;