Class TDateDialog (unit DateDialog)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

-----------------------------------------------------------------------------} {------------------------------------------ Do standard settings on creation -


Functions

function Execute : boolean;

-----------------------------------------------------------------------------} {-------------------------------------------------------- Execute the dialog -

function GetADate(ADate : TDateTime): TDateTime;

-----------------------------------------------------------------------------} {---------------------------------------------------- Alternative to Execute -

function ShowNormal (Index : integer) : integer;

-----------------------------------------------------------------------------} {------------------------------------------ Make TDateTime readable for user -

procedure UpdateDate (Index : integer; Value : integer);

-----------------------------------------------------------------------------} {--------------------- Updating TDateTime if user changes Day, Month or Year -

Properties

property Day : integer


property DialogCaption : string


property DialogLeft : integer


property DialogPosition : TPosition


property DialogTop : integer


property Month : integer


property Tag :


property UseToday : boolean


property Year : integer

Published declarations

Events

Variables

ResultDate : TDateTime;

Public declarations

DCaption : string;


DDay : integer;


DLeft : integer;


DMonth : integer;


DPosition : TPosition;


DStartDate : TDateTime;


DTop : integer;


DUseToday : boolean;


DYear : integer;

Private declarations


Constructors


constructor Create(AOwner : TComponent);

-----------------------------------------------------------------------------} {------------------------------------------ Do standard settings on creation -


Functions


function Execute : boolean;

-----------------------------------------------------------------------------} {-------------------------------------------------------- Execute the dialog -


function GetADate(ADate : TDateTime): TDateTime;

-----------------------------------------------------------------------------} {---------------------------------------------------- Alternative to Execute -


function ShowNormal (Index : integer) : integer;

-----------------------------------------------------------------------------} {------------------------------------------ Make TDateTime readable for user -


procedure UpdateDate (Index : integer; Value : integer);

-----------------------------------------------------------------------------} {--------------------- Updating TDateTime if user changes Day, Month or Year -


Properties


property Day : integer


property DialogCaption : string


property DialogLeft : integer


property DialogPosition : TPosition


property DialogTop : integer


property Month : integer


property Tag :


property UseToday : boolean


property Year : integer

Published declarations


Events


Variables


ResultDate : TDateTime;

Public declarations


DCaption : string;


DDay : integer;


DLeft : integer;


DMonth : integer;


DPosition : TPosition;


DStartDate : TDateTime;


DTop : integer;


DUseToday : boolean;


DYear : integer;

Private declarations