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

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.

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

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;