Class TDateEdit97 (unit DtEdit97)

Inherits from

TCustomEdit

****************** DateEdit97 Component

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.

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 : boolean

properties

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;



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 : boolean

properties


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;