Class TCustomDateEdit (unit ToolEdit)

Inherits from

TCustomComboEdit

Constructors


constructor Create(AOwner: TComponent);

TCustomDateEdit


Functions

procedure CheckValidDate;


destructor Destroy;

force update

function GetDateMask: string;


procedure UpdateMask;


function AcceptPopup(var Value: Variant): Boolean;


procedure AcceptValue(const Value: Variant);


procedure ButtonClick;


procedure CreateWnd;


procedure DestroyWnd;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure UpdateFormat;


procedure UpdatePopup;


procedure CalendarHintsChanged(Sender: TObject);


procedure CMExit(var Message: TCMExit);


function FormatSettingsChange(var Message: TMessage): Boolean;

force update

function FourDigitYear: Boolean;


function GetCalendarStyle: TCalendarStyle;


function GetDate: TDateTime;


function GetDialogTitle: string;


function GetPopupColor: TColor;


function IsCustomTitle: Boolean;


procedure SetBlanksChar(Value: Char);


procedure SetCalendarHints(Value: TStrings);


procedure SetCalendarStyle(Value: TCalendarStyle);


procedure SetDate(Value: TDateTime);


procedure SetDialogTitle(const Value: string);


procedure SetPopupColor(Value: TColor);


procedure SetStartOfWeek(Value: TDayOfWeekName);


procedure SetWeekendColor(Value: TColor);


procedure SetWeekends(Value: TDaysOfWeek);


procedure SetYearDigits(Value: TYearDigits);


function TextStored: Boolean;


Properties

property Date : TDateTime


property PopupVisible :


property BlanksChar : Char


property CalendarHints : TStrings


property CalendarStyle : TCalendarStyle


property CheckOnExit : Boolean


property DefaultToday : Boolean


property DialogTitle : string


property EditMask :


property GlyphKind :


property MaxLength :


property PopupColor : TColor


property StartOfWeek : TDayOfWeekName


property Text :


property WeekendColor : TColor


property Weekends : TDaysOfWeek


property YearDigits : TYearDigits


Events

event OnAcceptDate : TExecDateDialog


Variables

FBlanksChar : Char;


FCalendarHints : TStrings;


FCheckOnExit : Boolean;


FDateFormat : string[10];


FDefaultToday : Boolean;


FOnAcceptDate : TExecDateDialog;


FPopupColor : TColor;


FStartOfWeek : TDayOfWeekName;


FTitle : PString;


FWeekendColor : TColor;


FWeekends : TDaysOfWeek;


FYearDigits : TYearDigits;



Constructors


constructor Create(AOwner: TComponent);

TCustomDateEdit


Functions


procedure CheckValidDate;


destructor Destroy;

force update


function GetDateMask: string;


procedure UpdateMask;


function AcceptPopup(var Value: Variant): Boolean;


procedure AcceptValue(const Value: Variant);


procedure ButtonClick;


procedure CreateWnd;


procedure DestroyWnd;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure UpdateFormat;


procedure UpdatePopup;


procedure CalendarHintsChanged(Sender: TObject);


procedure CMExit(var Message: TCMExit);


function FormatSettingsChange(var Message: TMessage): Boolean;

force update


function FourDigitYear: Boolean;


function GetCalendarStyle: TCalendarStyle;


function GetDate: TDateTime;


function GetDialogTitle: string;


function GetPopupColor: TColor;


function IsCustomTitle: Boolean;


procedure SetBlanksChar(Value: Char);


procedure SetCalendarHints(Value: TStrings);


procedure SetCalendarStyle(Value: TCalendarStyle);


procedure SetDate(Value: TDateTime);


procedure SetDialogTitle(const Value: string);


procedure SetPopupColor(Value: TColor);


procedure SetStartOfWeek(Value: TDayOfWeekName);


procedure SetWeekendColor(Value: TColor);


procedure SetWeekends(Value: TDaysOfWeek);


procedure SetYearDigits(Value: TYearDigits);


function TextStored: Boolean;


Properties


property Date : TDateTime


property PopupVisible :


property BlanksChar : Char


property CalendarHints : TStrings


property CalendarStyle : TCalendarStyle


property CheckOnExit : Boolean


property DefaultToday : Boolean


property DialogTitle : string


property EditMask :


property GlyphKind :


property MaxLength :


property PopupColor : TColor


property StartOfWeek : TDayOfWeekName


property Text :


property WeekendColor : TColor


property Weekends : TDaysOfWeek


property YearDigits : TYearDigits


Events


event OnAcceptDate : TExecDateDialog


Variables


FBlanksChar : Char;


FCalendarHints : TStrings;


FCheckOnExit : Boolean;


FDateFormat : string[10];


FDefaultToday : Boolean;


FOnAcceptDate : TExecDateDialog;


FPopupColor : TColor;


FStartOfWeek : TDayOfWeekName;


FTitle : PString;


FWeekendColor : TColor;


FWeekends : TDaysOfWeek;


FYearDigits : TYearDigits;