| Class TsCustomDateEdit (unit sToolsEdit) |
| Constructors |
constructor Create( AOwner: TComponent );| 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;
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);
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;