Class TODDBPopupCalendar (unit ODDBCal)

Inherits from

TODPopupCalendar

Constructors


constructor Create(AOwner: TComponent);

TODDBPopupCalendar


Functions

destructor Destroy;


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure ButtonClick(Sender: TObject);


procedure Change(Sender: TObject);


procedure FinishDataChange(Sender: TObject);


procedure StartDataChange(Sender: TObject);


procedure UpdateFinishData(Sender: TObject);


procedure UpdateStartData(Sender: TObject);


function GetDataSource: TDataSource;


function GetFinishDate: TDateTime;


function GetFinishDateField: TField;


function GetFinishDateName: string;


function GetStartDate: TDateTime;


function GetStartDateField: TField;


function GetStartDateName: string;


procedure SetDataSource(Value: TDataSource);


procedure SetFinishDateName(const Value: string);


procedure SetStartDateName(const Value: string);


Properties

property DataSource : TDataSource


property FinishDateName : string


property StartDateName : string


property FinishDate :


property FinishField : TField


property StartDate :


property StartField : TField


Events

Variables

FEditing : Boolean;


FFinishDateLink : TFieldDataLink;


FStartDateLink : TFieldDataLink;



Constructors


constructor Create(AOwner: TComponent);

TODDBPopupCalendar


Functions


destructor Destroy;


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure ButtonClick(Sender: TObject);


procedure Change(Sender: TObject);


procedure FinishDataChange(Sender: TObject);


procedure StartDataChange(Sender: TObject);


procedure UpdateFinishData(Sender: TObject);


procedure UpdateStartData(Sender: TObject);


function GetDataSource: TDataSource;


function GetFinishDate: TDateTime;


function GetFinishDateField: TField;


function GetFinishDateName: string;


function GetStartDate: TDateTime;


function GetStartDateField: TField;


function GetStartDateName: string;


procedure SetDataSource(Value: TDataSource);


procedure SetFinishDateName(const Value: string);


procedure SetStartDateName(const Value: string);


Properties


property DataSource : TDataSource


property FinishDateName : string


property StartDateName : string


property FinishDate :


property FinishField : TField


property StartDate :


property StartField : TField


Events


Variables


FEditing : Boolean;


FFinishDateLink : TFieldDataLink;


FStartDateLink : TFieldDataLink;