Class TDateEdit97 (unit DtEdit97) |
Inherits from
TCustomEdit
****************** DateEdit97 Component
constructor Create(AOwner: TComponent);
- -------------------------------------------------------------} {---------------------- TDateEdit97 --------------------------} {-------------------------------------------------------------
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.
procedure WMSize(var message: TWMSize);
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 : boolean
properties
property DayArray : PDayArray
property MonthArray : PMonthArray
property ValidDates : tStringList
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
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;
constructor Create(AOwner: TComponent);
-------------------------------------------------------------} {---------------------- TDateEdit97 --------------------------} {-------------------------------------------------------------
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);
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 : boolean
properties
property DayArray : PDayArray
property MonthArray : PMonthArray
property ValidDates : tStringList
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
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;