Class TsCustomDateEdit (unit sToolsEdit)

Inherits from

TsCustomLinkEdit

Constructors


constructor Create( AOwner: TComponent );

calculator


Functions

procedure CloseUp;


destructor Destroy;


procedure DropDown;


procedure ButtonClick;


procedure Change;


procedure DoEnter;


function EmptyText: String;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function GetReadOnly: Boolean;


function IsValidChar(const Key: Char): Boolean;

remove backspace

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


procedure KeyPress(var Key: Char);


procedure OnAccept(Sender: TObject);


procedure OnCancel(Sender: TObject);


function Validate: Boolean;


procedure ArrowKeys(var CharCode: Word; Shift: TShiftState);


procedure CMCancelMode(var Message: TCMCancelMode);


procedure DateChanged( Sender: TObject);


procedure DeleteKeys(var CharCode: Word; Shift: TShiftState);

if (CharCode = VK_RIGHT) then

procedure FormatDateText;


function GetBeginingOfWeek: Integer;


procedure NextCell;


procedure SetBeginingOfWeek(Value: Integer);


procedure SetCursor(Pos: Integer);


procedure SetDateFormat(Value: TDateFormat);


procedure SetPopupColor( Value: TColor);


procedure SetSeparator( Value: Char);


procedure WMPaste(var Message: TMessage);


Properties

property EditDate : TsDate


property BeginingOfWeek : Integer


property DateFormat : TDateFormat


property DateSeparator : Char


property PopupColor : TColor


Events

event OnDateChange : TNotifyEvent


Variables

FCalPop : TsPopupCalendar;


FCaretPos : Integer;


FDate : TsDate;


FDateFormat : TDateFormat;


FOnDateChange : TNotifyEvent;


FPopupColor : TColor;


FSeparator : Char;



Constructors


constructor Create( AOwner: TComponent );

calculator


Functions


procedure CloseUp;


destructor Destroy;


procedure DropDown;


procedure ButtonClick;


procedure Change;


procedure DoEnter;


function EmptyText: String;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function GetReadOnly: Boolean;


function IsValidChar(const Key: Char): Boolean;

remove backspace


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


procedure KeyPress(var Key: Char);


procedure OnAccept(Sender: TObject);


procedure OnCancel(Sender: TObject);


function Validate: Boolean;


procedure ArrowKeys(var CharCode: Word; Shift: TShiftState);


procedure CMCancelMode(var Message: TCMCancelMode);


procedure DateChanged( Sender: TObject);


procedure DeleteKeys(var CharCode: Word; Shift: TShiftState);

if (CharCode = VK_RIGHT) then


procedure FormatDateText;


function GetBeginingOfWeek: Integer;


procedure NextCell;


procedure SetBeginingOfWeek(Value: Integer);


procedure SetCursor(Pos: Integer);


procedure SetDateFormat(Value: TDateFormat);


procedure SetPopupColor( Value: TColor);


procedure SetSeparator( Value: Char);


procedure WMPaste(var Message: TMessage);


Properties


property EditDate : TsDate


property BeginingOfWeek : Integer


property DateFormat : TDateFormat


property DateSeparator : Char


property PopupColor : TColor


Events


event OnDateChange : TNotifyEvent


Variables


FCalPop : TsPopupCalendar;


FCaretPos : Integer;


FDate : TsDate;


FDateFormat : TDateFormat;


FOnDateChange : TNotifyEvent;


FPopupColor : TColor;


FSeparator : Char;