Class TDateEdit (unit DateEdt)

Inherits from

TCustomEdit

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;



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;