| Class TRangeDateDlg (unit Unit7) |
TForm
| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);
procedure OkBtnClick(Sender: TObject);
procedure PopupCalBtnFromClick(Sender: TObject);
procedure PopupCalToBtnClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
function GetFromDate: TDateTime;
function GetToDate: TDateTime;
procedure SetFromDate(NewDate: TDateTime);
procedure SetToDate(NewDate: TDateTime);| Properties |
property FromDate : TDateTime
property ToDate : TDateTime| Events |
| Variables |
Bevel1 : TBevel;
CancelBtn : TBitBtn;
FromEdit : TMaskEdit;
Label1 : TLabel;
Label2 : TLabel;
Msglab : TLabel;
OkBtn : TBitBtn;
PopupCalBtnFrom : TSpeedButton;
PopupCalToBtn : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
ToEdit : TMaskEdit;| Constructors |
| Functions |
procedure CancelBtnClick(Sender: TObject);start with current date
procedure OkBtnClick(Sender: TObject);
procedure PopupCalBtnFromClick(Sender: TObject);
procedure PopupCalToBtnClick(Sender: TObject);start with current date
procedure SpeedButton2Click(Sender: TObject);
function GetFromDate: TDateTime;
function GetToDate: TDateTime;
procedure SetFromDate(NewDate: TDateTime);
procedure SetToDate(NewDate: TDateTime);| Properties |
property FromDate : TDateTime
property ToDate : TDateTime| Events |
| Variables |
Bevel1 : TBevel;
CancelBtn : TBitBtn;
FromEdit : TMaskEdit;
Label1 : TLabel;
Label2 : TLabel;
Msglab : TLabel;
OkBtn : TBitBtn;
PopupCalBtnFrom : TSpeedButton;
PopupCalToBtn : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton5 : TSpeedButton;
ToEdit : TMaskEdit;