Class TDateDialogForm (unit DateDialogUnit)

Inherits from

TForm

Constructors



Functions

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 -


Properties

Events

Variables

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;



Constructors


Functions


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 -


Properties


Events


Variables


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;