Class TRangeDateDlg (unit Unit7)

Inherits from

TForm

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;



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;