| Class TACDbDateEdit (unit ACDateDb) |
***************************************************************************** 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
| Constructors |
constructor Create(AOwner: TComponent);-------------------------------------------------------------} {-------------------- TACDbDateEdit --------------------------} {-------------------------------------------------------------
| Functions |
procedure ClearDate(Sender: TObject);
destructor Destroy;
procedure Loaded;
procedure PopupCalendar(Sender: TObject);
procedure Change;
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);
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);MIO
-------------------------------------------------------------} {-------------------- TACDbDateEdit --------------------------} {-------------------------------------------------------------
| Functions |
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
| 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;