Class TWeekCal (unit Newcal) |
Inherits from
TForm
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);
About : TBitBtn;
Calendar1 : TCalendar;
LMonth : TBitBtn;
Lyear : TBitBtn;
NMonth : TBitBtn;
Nyear : TBitBtn;
Ok : TBitBtn;
P1 : TPanel;
ThisDay : TLabel;
Today : TBitBtn;
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);
About : TBitBtn;
Calendar1 : TCalendar;
LMonth : TBitBtn;
Lyear : TBitBtn;
NMonth : TBitBtn;
Nyear : TBitBtn;
Ok : TBitBtn;
P1 : TPanel;
ThisDay : TLabel;
Today : TBitBtn;