Class TDateDialogForm (unit DateDialogUnit) |
Inherits from
TForm
procedure CancelButtonClick(Sender: TObject);
-----------------------------------------------------------------------------} {-------------------------------------------- Cancel pressed, set resultdate -
procedure FormActivate(Sender: TObject);
-----------------------------------------------------------------------------} {-------------------------------------------- On Activation, Do all settings -
procedure MonthGridClick(Sender: TObject);
-----------------------------------------------------------------------------} {----------------------------------------------- User clicked on a new daynr -
procedure MonthSelectorChange(Sender: TObject);
-----------------------------------------------------------------------------} {---------------------------------------------- User selected an other month -
procedure OKButtonClick(Sender: TObject);
-----------------------------------------------------------------------------} {------------------------------------------------ OK pressed, set resultdate -
procedure YearUpDownClick(Sender: TObject; Button: TUDBtnType);
-----------------------------------------------------------------------------} {-------------------------------------------------- Up & Down click for Year -
function WeekNo(ADate : TDateTime): integer;
let dialog determine date, Startdate or Today -----------------------------------------------------------------------------
procedure DrawDialog;
Storing vars in humanformat --------------------------------------------- Redraw all data on dialogform -
function IsLeapYear(AYear : integer) : boolean;
Sync TDateTime and Day.
procedure UpdateCurrentDate;
Redraw routine for Dialog ---------------------------------- Syncs CurrentDate with Day Month and Year -
CancelButton : TBitBtn;
DataGroupbox : TGroupBox;
DateLabel : TLabel;
MonthGrid : TStringGrid;
MonthSelector : TComboBox;
OKButton : TBitBtn;
YearSelector : TEdit;
YearUpDown : TUpDown;
CurrentDate : TDateTime;
given by user
ResultDate : TDateTime;
used while active
StartDate : TDateTime;
Public declarations
UseToday : Boolean;
result after active
Day : word;
Private declarations
Month : word;
Year : word;
procedure CancelButtonClick(Sender: TObject);
-----------------------------------------------------------------------------} {-------------------------------------------- Cancel pressed, set resultdate -
procedure FormActivate(Sender: TObject);
-----------------------------------------------------------------------------} {-------------------------------------------- On Activation, Do all settings -
procedure MonthGridClick(Sender: TObject);
-----------------------------------------------------------------------------} {----------------------------------------------- User clicked on a new daynr -
procedure MonthSelectorChange(Sender: TObject);
-----------------------------------------------------------------------------} {---------------------------------------------- User selected an other month -
procedure OKButtonClick(Sender: TObject);
-----------------------------------------------------------------------------} {------------------------------------------------ OK pressed, set resultdate -
procedure YearUpDownClick(Sender: TObject; Button: TUDBtnType);
-----------------------------------------------------------------------------} {-------------------------------------------------- Up & Down click for Year -
function WeekNo(ADate : TDateTime): integer;
let dialog determine date, Startdate or Today
-----------------------------------------------------------------------------
procedure DrawDialog;
Storing vars in humanformat
--------------------------------------------- Redraw all data on dialogform -
function IsLeapYear(AYear : integer) : boolean;
Sync TDateTime and Day..Year
-----------------------------------------------------------------------------} {--------------------------------------------- Determine if year is leapyear -
procedure UpdateCurrentDate;
Redraw routine for Dialog
---------------------------------- Syncs CurrentDate with Day Month and Year -
CancelButton : TBitBtn;
DataGroupbox : TGroupBox;
DateLabel : TLabel;
MonthGrid : TStringGrid;
MonthSelector : TComboBox;
OKButton : TBitBtn;
YearSelector : TEdit;
YearUpDown : TUpDown;
CurrentDate : TDateTime;
given by user
ResultDate : TDateTime;
used while active
StartDate : TDateTime;
Public declarations
UseToday : Boolean;
result after active
Day : word;
Private declarations
Month : word;
Year : word;