| Class TDateEdit (unit DateEdt) |
TCustomEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure UpdateEdit;
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DoEnter;
procedure DoExit;
procedure KeyPress(var Key: Char);
function ValidateDate: TDateTime;
function DaysPerMonth(AYear, AMonth: Integer): Integer;
function GetDateElement(Index: integer): integer;
function IsValidChar(Pos: word; Key: char): boolean;
procedure SetCentury(Value: Boolean);
procedure SetDateElement(Index: integer; Value: integer);
procedure SetEditDate(Value: TDateTime);
procedure SetEmptyChar(Value: char);
procedure SetInternational(Value: boolean);
procedure SetLeadingZero(Index: integer; Value: boolean);
procedure SetOrder(Value: TDateOrder);
procedure SetSeparator(Value: Char);
procedure SetUseCurrentDate(Value: boolean);| Properties |
property AutoSelect :
property AutoSize :
property BorderStyle :
property Century : Boolean
property Color :
property Ctl3D :
property Day : integer
property DayLeadingZero : Boolean
property DragCursor :
property DragMode :
property EmptyChar : char
property Enabled :
property Font :
property International : Boolean
property Month : integer
property MonthLeadingZero : Boolean
property Order : TDateOrder
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property Separator : Char
property ShowHint :
property TabOrder :
property TabStop :
property UseCurrentDate : Boolean
property Visible :
property Year : integer
property EditDate : TDateTime| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
AllDigits : set of SelIndex;
DayDigit : SelIndex;
FCentury : Boolean;
FDayLeadingZero : Boolean;
FEditDate : TDateTime;
FEmptyChar : Char;
FInternational : Boolean;
FMonthLeadingZero : Boolean;
FOrder : TDateOrder;
FSelText : PChar;
FSeparator : Char;
FUseCurrentDate : Boolean;
MonthDigit : SelIndex;
Separators : set of SelIndex;
TOList : TList;
YearDigit : SelIndex;| Constructors |
constructor Create(AOwner: TComponent);--------------------------- TDateEdit-class -------------------------------
| Functions |
destructor Destroy;
procedure UpdateEdit;
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DoEnter;+1 is workaround for windows paint bug
procedure DoExit;
procedure KeyPress(var Key: Char);
function ValidateDate: TDateTime;
function DaysPerMonth(AYear, AMonth: Integer): Integer;
function GetDateElement(Index: integer): integer;
function IsValidChar(Pos: word; Key: char): boolean;
procedure SetCentury(Value: Boolean);
procedure SetDateElement(Index: integer; Value: integer);
procedure SetEditDate(Value: TDateTime);
procedure SetEmptyChar(Value: char);
procedure SetInternational(Value: boolean);
procedure SetLeadingZero(Index: integer; Value: boolean);
procedure SetOrder(Value: TDateOrder);
procedure SetSeparator(Value: Char);
procedure SetUseCurrentDate(Value: boolean);| Properties |
property AutoSelect :
property AutoSize :
property BorderStyle :
property Century : Boolean
property Color :
property Ctl3D :
property Day : integer
property DayLeadingZero : Boolean
property DragCursor :
property DragMode :
property EmptyChar : char
property Enabled :
property Font :
property International : Boolean
property Month : integer
property MonthLeadingZero : Boolean
property Order : TDateOrder
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property Separator : Char
property ShowHint :
property TabOrder :
property TabStop :
property UseCurrentDate : Boolean
property Visible :
property Year : integer
property EditDate : TDateTime| Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
AllDigits : set of SelIndex;
DayDigit : SelIndex;
FCentury : Boolean;
FDayLeadingZero : Boolean;
FEditDate : TDateTime;
FEmptyChar : Char;
FInternational : Boolean;
FMonthLeadingZero : Boolean;
FOrder : TDateOrder;
FSelText : PChar;
FSeparator : Char;
FUseCurrentDate : Boolean;
MonthDigit : SelIndex;
Separators : set of SelIndex;
TOList : TList;
YearDigit : SelIndex;