Class TWeekCal (unit Newcal)

Inherits from

TForm

Constructors



Functions

procedure AboutClick(Sender: TObject);


procedure Calendar1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LMonthClick(Sender: TObject);


procedure LyearClick(Sender: TObject);


procedure NMonthClick(Sender: TObject);


procedure NyearClick(Sender: TObject);

If anyone can show me how to get rid of the following 2 if statements, I would appreciate it.

procedure OkClick(Sender: TObject);

Set Day to 1, otherwise, when Month is set the calendar may try to highlight an invalid day - Month could be Feb, and day could be 31

procedure TodayClick(Sender: TObject);


Properties

Events

Variables

About : TBitBtn;


Calendar1 : TCalendar;


LMonth : TBitBtn;


Lyear : TBitBtn;


NMonth : TBitBtn;


Nyear : TBitBtn;


Ok : TBitBtn;


P1 : TPanel;


ThisDay : TLabel;


Today : TBitBtn;



Constructors


Functions


procedure AboutClick(Sender: TObject);


procedure Calendar1Change(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LMonthClick(Sender: TObject);


procedure LyearClick(Sender: TObject);


procedure NMonthClick(Sender: TObject);


procedure NyearClick(Sender: TObject);

If anyone can show me how to get rid of the following 2 if statements, I would appreciate it. Although they both do the job.


procedure OkClick(Sender: TObject);

Set Day to 1, otherwise, when Month is set the calendar may try to highlight an invalid day - Month could be Feb, and day could be 31


procedure TodayClick(Sender: TObject);


Properties


Events


Variables


About : TBitBtn;


Calendar1 : TCalendar;


LMonth : TBitBtn;


Lyear : TBitBtn;


NMonth : TBitBtn;


Nyear : TBitBtn;


Ok : TBitBtn;


P1 : TPanel;


ThisDay : TLabel;


Today : TBitBtn;