| Class TWeekCal (unit Newcal) |
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);
procedure OkClick(Sender: TObject);
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;