| Class TDateEdit97 (unit DtEdit97) |
TCustomEdit
****************** DateEdit97 Component
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AddValidDate(dt: TDateTime);
procedure AfterClick(Sender: TObject);
procedure ClearDate(Sender: TObject);
procedure ClearValidDates;
procedure CreateParams(var Params: TCreateParams);
function DateInList(dt: TDateTime): Boolean;
destructor Destroy;
procedure DoDate;
procedure DoEdit;
procedure Loaded;
procedure PopupCalendar(Sender: TObject);
procedure SetDateCorrect(pValue : boolean);
procedure ValidateDate(Sender: TObject);
procedure AdjustDate;
procedure AdjustEdit;
Procedure ClosePopFct (Sender: TObject; var Action: TCloseAction);
procedure CMEnabledChanged(var Message: TMessage);
procedure CreateFormCalendar;
procedure DoEnter;
procedure DoExit;
procedure FireAfterNewMonthEvent(Sender: TObject; FromDate, TillDate: TDateTime);
procedure FireBeforeNewMonthEvent(Sender: TObject; FromDate, TillDate: TDateTime);
function GetDayArray: PDayArray;
function GetMonthArray: PMonthArray;
function GetValidDates : tStringList;
procedure InitFormCalendar;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: char);
function PadDate (aStr : String) : String;
function RemoveChr (aChar : Char; aStr : String) : String;
procedure SetBevelInner(Value: TPanelBevel);
procedure SetBevelOuter(Value: TPanelBevel);
procedure SetBtnDateStyle (value : tDateBtnStyle);
procedure SetBtnStyle (value : tButtonStyle);
procedure SetDate(aDate: TDateTime);
procedure SetKeyRepeat (value : word);
procedure SetOnlyMonth (value: boolean);
procedure SetOnlyValidDates (value: boolean);
procedure SetOptions (value : tDateOptions);
procedure SetStartOfWeek(Value: TDayOfWeek);
procedure SetStartOfWeekEnd(Value: TDayOfWeek);
procedure SetTextFromDate;
function TextToDate (aStr: String) : tDateTime;
procedure WMSize(var message: TWMSize);| Properties |
property About : TAboutMeProperty
property AfterNewMonth : TNewMonthEvent
property BeforeNewMonth : TNewMonthEvent
property BevelInner : tPanelBevel
property BevelOuter : tPanelBevel
property BorderStyle :
property ButtonDateStyle : tDateBtnStyle
property ButtonStyle : tButtonstyle
property ColorCalendar : tCalendarColors
property ColorError : tColor
property Date : TDateTime
property DayNames : TDayName
property Font :
property KeyRepeat : Word
property MonthNames : TMonthName
property Options : tDateOptions
property ShortCuts : TButtonsShortCut
property StartOfWeek : TDayOfWeek
property StartOfWeekend : TDayOfWeek
property TabOrder :
property TabStop :
property DateCorrect : boolean
property DayArray : PDayArray
property MonthArray : PMonthArray
property ValidDates : tStringList| Events |
event OnAfterClick : TNotifyEvent
event OnChange :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnlyMonth : boolean
event OnlyValidDates : boolean
event OnValidateClick : TNotifyEvent| Variables |
FBtnClear : tBitBtn;
FBtnPopup : tBitBtn;
FBtnValidate : tBitBtn;
NewShortDateFormat : string;
FAbout : TAboutMeProperty;
FAfterNewMonth : TNewMonthEvent;
FBeforeNewMonth : TNewMonthEvent;
FBevelInner : tPanelBevel;
FBevelOuter : tPanelBevel;
FBtnDateStyle : tDateBtnStyle;
FBtnStyle : tButtonStyle;
FColorCalendar : TCalendarColors;
FColorError : TColor;
FColorNormal : TColor;
FDate : TDateTime;
FDateCorrect : boolean;
FDayArray : TDayArray;
FDayName : TDayName;
FKeyRepeat : Word;
FMonthArray : TMonthArray;
FMonthName : TMonthName;
FOnAfterClick : TNotifyEvent;
FOnlyMonth : Boolean;
FOnlyValidDates : Boolean;
FOnValidated : TNotifyEvent;
FOptions : tDateOptions;
FrmCalendar : tDtCalPop97;
FShortCuts : TButtonsShortCut;
FStartOfWeek : TDayOfWeek;
FStartOfWeekEnd : TDayOfWeek;| Constructors |
constructor Create(AOwner: TComponent);-------------------------------------------------------------} {---------------------- TDateEdit97 --------------------------} {-------------------------------------------------------------
| Functions |
procedure AddValidDate(dt: TDateTime);******************************************** Maintain list of valid dates.
procedure AfterClick(Sender: TObject);
procedure ClearDate(Sender: TObject);******************************************** Clear the Date field
procedure ClearValidDates;
procedure CreateParams(var Params: TCreateParams);
function DateInList(dt: TDateTime): Boolean;******************************************** Is the supplied data in the date list?
destructor Destroy;
procedure DoDate;******************************************** Transform number in date and assign values
procedure DoEdit;******************************************** Like DoEnter without Selectall
procedure Loaded;create the Calendar
procedure PopupCalendar(Sender: TObject);******************************************** Show (or hide) Popup Calendar when click
procedure SetDateCorrect(pValue : boolean);
procedure ValidateDate(Sender: TObject);
procedure AdjustDate;******************************************** Transform number in date
procedure AdjustEdit;******************************************** Transform date in number
Procedure ClosePopFct (Sender: TObject; var Action: TCloseAction);
procedure CMEnabledChanged(var Message: TMessage);
procedure CreateFormCalendar;
procedure DoEnter;
procedure DoExit;Act like standard edit controls
procedure FireAfterNewMonthEvent(Sender: TObject; FromDate, TillDate: TDateTime);
procedure FireBeforeNewMonthEvent(Sender: TObject; FromDate, TillDate: TDateTime);
function GetDayArray: PDayArray;
function GetMonthArray: PMonthArray;
function GetValidDates : tStringList;
procedure InitFormCalendar;Create Form
procedure KeyDown(var Key: Word; Shift: TShiftState);******************************************** handling procedure (SHORTCUTKEYS)
procedure KeyPress(var Key: char);
function PadDate (aStr : String) : String;******************************************** Update local ShortDateFormat with 4digits years
function RemoveChr (aChar : Char; aStr : String) : String;******************************************** Remove a character from a string
procedure SetBevelInner(Value: TPanelBevel);
procedure SetBevelOuter(Value: TPanelBevel);
procedure SetBtnDateStyle (value : tDateBtnStyle);
procedure SetBtnStyle (value : tButtonStyle);
procedure SetDate(aDate: TDateTime);
procedure SetKeyRepeat (value : word);
procedure SetOnlyMonth (value: boolean);
procedure SetOnlyValidDates (value: boolean);
procedure SetOptions (value : tDateOptions);******************************************** Set Options
procedure SetStartOfWeek(Value: TDayOfWeek);
procedure SetStartOfWeekEnd(Value: TDayOfWeek);
procedure SetTextFromDate;
function TextToDate (aStr: String) : tDateTime;if Date century<>Current century, then FullYear=true (ie. show century when draw date
procedure WMSize(var message: TWMSize);| Properties |
property About : TAboutMeProperty
property AfterNewMonth : TNewMonthEvent
property BeforeNewMonth : TNewMonthEvent
property BevelInner : tPanelBevel
property BevelOuter : tPanelBevel
property BorderStyle : properties
property ButtonDateStyle : tDateBtnStyle
property ButtonStyle : tButtonstyle
property ColorCalendar : tCalendarColors
property ColorError : tColor
property Date : TDateTime
property DayNames : TDayName
property Font :
property KeyRepeat : Word
property MonthNames : TMonthName
property Options : tDateOptions
property ShortCuts : TButtonsShortCut
property StartOfWeek : TDayOfWeek
property StartOfWeekend : TDayOfWeek
property TabOrder :
property TabStop :
property DateCorrect : booleanproperties
property DayArray : PDayArray
property MonthArray : PMonthArray
property ValidDates : tStringList| Events |
event OnAfterClick : TNotifyEvent
event OnChange : events
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnlyMonth : boolean
event OnlyValidDates : boolean
event OnValidateClick : TNotifyEvent| Variables |
FBtnClear : tBitBtn;
FBtnPopup : tBitBtn;
FBtnValidate : tBitBtn;
NewShortDateFormat : string;
FAbout : TAboutMeProperty;
FAfterNewMonth : TNewMonthEvent;
FBeforeNewMonth : TNewMonthEvent;
FBevelInner : tPanelBevel;
FBevelOuter : tPanelBevel;
FBtnDateStyle : tDateBtnStyle;
FBtnStyle : tButtonStyle;
FColorCalendar : TCalendarColors;
FColorError : TColor;
FColorNormal : TColor;
FDate : TDateTime;
FDateCorrect : boolean;
FDayArray : TDayArray;
FDayName : TDayName;
FKeyRepeat : Word;
FMonthArray : TMonthArray;
FMonthName : TMonthName;
FOnAfterClick : TNotifyEvent;
FOnlyMonth : Boolean;
FOnlyValidDates : Boolean;
FOnValidated : TNotifyEvent;
FOptions : tDateOptions;
FrmCalendar : tDtCalPop97;
FShortCuts : TButtonsShortCut;
FStartOfWeek : TDayOfWeek;
FStartOfWeekEnd : TDayOfWeek;