Class TDateDialog (unit DateDialog) |
Inherits from
TComponent
constructor Create(AOwner : TComponent);
- -----------------------------------------------------------------------------} {------------------------------------------ Do standard settings on creation -
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 -
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
ResultDate : TDateTime;
Public declarations
DCaption : string;
DDay : integer;
DLeft : integer;
DMonth : integer;
DPosition : TPosition;
DStartDate : TDateTime;
DTop : integer;
DUseToday : boolean;
DYear : integer;
Private declarations
constructor Create(AOwner : TComponent);
-----------------------------------------------------------------------------} {------------------------------------------ Do standard settings on creation -
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 -
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
ResultDate : TDateTime;
Public declarations
DCaption : string;
DDay : integer;
DLeft : integer;
DMonth : integer;
DPosition : TPosition;
DStartDate : TDateTime;
DTop : integer;
DUseToday : boolean;
DYear : integer;
Private declarations