| Class TTestForm (unit TestUnit) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure CalendarDayDblClick(Sender: TObject; ADate: TDateTime);
procedure CalendarSelectYear(Sender: TObject; Year: Integer;
var YearStart, YearFinish: TDateTime);
procedure CalendarSetupDay(Sender: TObject; Date: TDateTime;
var AColor: TColor; var AHint: String);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Last2MonthsBtnClick(Sender: TObject);
procedure Last6MonthsBtnClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure ThisMonthBtnClick(Sender: TObject);
procedure YearToDateBtnClick(Sender: TObject);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel2 : TBevel;
Button1 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
Edit1 : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Last2MonthsBtn : TSpeedButton;
Last6MonthsBtn : TSpeedButton;
Memo1 : TMemo;
ODCalendar1 : TODCalendar;
ODCalendarDialog1 : TODCalendarDialog;
ODDBCalendar1 : TODDBCalendar;
ODDBPopupCalendar1 : TODDBPopupCalendar;
ODPopupCalendar1 : TODPopupCalendar;
PageControl1 : TPageControl;
Table1 : TTable;
Table1FinishDate : TDateField;
Table1StartDate : TDateField;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
ThisMonthBtn : TSpeedButton;
YearToDateBtn : TSpeedButton;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);ODCalendar1.StartDate := EncodeDate(1998, 1, 15); ODCalendar1.FinishDate := Date;} { ODPopupCalendar1.StartDate := Date - 14; ODPopupCalendar1.FinishDate := Date;
procedure CalendarDayDblClick(Sender: TObject; ADate: TDateTime);as for a business year
procedure CalendarSelectYear(Sender: TObject; Year: Integer;
var YearStart, YearFinish: TDateTime);customise certain days -
procedure CalendarSetupDay(Sender: TObject; Date: TDateTime;
var AColor: TColor; var AHint: String);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Last2MonthsBtnClick(Sender: TObject);
procedure Last6MonthsBtnClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure ThisMonthBtnClick(Sender: TObject);
procedure YearToDateBtnClick(Sender: TObject);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
Bevel2 : TBevel;
Button1 : TButton;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TDBNavigator;
Edit1 : TEdit;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Image1 : TImage;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Last2MonthsBtn : TSpeedButton;
Last6MonthsBtn : TSpeedButton;
Memo1 : TMemo;
ODCalendar1 : TODCalendar;
ODCalendarDialog1 : TODCalendarDialog;
ODDBCalendar1 : TODDBCalendar;
ODDBPopupCalendar1 : TODDBPopupCalendar;
ODPopupCalendar1 : TODPopupCalendar;
PageControl1 : TPageControl;
Table1 : TTable;
Table1FinishDate : TDateField;
Table1StartDate : TDateField;
TabSheet1 : TTabSheet;
TabSheet2 : TTabSheet;
TabSheet3 : TTabSheet;
ThisMonthBtn : TSpeedButton;
YearToDateBtn : TSpeedButton;