Class TDbCalendar97 (unit DtCaDb97) |
Inherits from
TCalendar97
*****************************************************************************
TDbCalendar97
Derived from
tCalendar97
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);
- -------------------------------------------------------------} {-------------------- TDbCalendar97 --------------------------} {-------------------------------------------------------------
destructor Destroy;
procedure DateChange(Sender: TObject);
function GetDate: TDateTime;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetDate(dtArg: TDateTime);
procedure CMExit(var Message: TCMExit);
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetReadOnly(Value: Boolean);
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);
-------------------------------------------------------------} {-------------------- TDbCalendar97 --------------------------} {-------------------------------------------------------------
destructor Destroy;
procedure DateChange(Sender: TObject);
function GetDate: TDateTime;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetDate(dtArg: TDateTime);
procedure CMExit(var Message: TCMExit);
procedure DataChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetReadOnly(Value: Boolean);
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Date : TDateTime
property Field : TField
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;