Class TDateEdit (unit Dateedit)

Inherits from

TEdit

Constructors


constructor Create(AOwner:TComponent);

--- TDateEdit ---


Functions

procedure CreateParams(var Params:TCreateParams);


destructor Destroy;


procedure DblClick;


procedure DoEnter;


procedure DoExit;


function GetDate:TDateTime;

if FDate=0.

procedure KeyPress(var Key:Char);


procedure MouseUp(Button:TMouseButton; ShiftState:TShiftState; X,Y:Integer);

Determine which token the user is on and highlight the entire text of that token.

procedure SetDate(dtArg:TDateTime);


procedure WMSize(var Message:TWMSize);


procedure SelectErrorToken;


procedure SelectToken;

Select the token the cursor is on.

procedure SetSeperators;

Set the positions of the seperators in text.

procedure SetToken;

Determine which token the cursor is over;

Properties

property Date : TDateTime


Events

event OnDateChange : TNotifyEvent


Variables

FButton : TDateButton;


FDate : TDateTime;


FOnDateChange : TNotifyEvent;


hBitmap : HBitmap;


nSep1 : Integer;


nSep2 : Integer;


sDateFmt : String[20];


sSep : Char;


Token : Integer;



Constructors


constructor Create(AOwner:TComponent);

--- TDateEdit ---


Functions


procedure CreateParams(var Params:TCreateParams);


destructor Destroy;


procedure DblClick;


procedure DoEnter;


procedure DoExit;


function GetDate:TDateTime;

if FDate=0.0 then Date:=Now;


procedure KeyPress(var Key:Char);


procedure MouseUp(Button:TMouseButton; ShiftState:TShiftState; X,Y:Integer);

Determine which token the user is on and highlight the entire text of that token.


procedure SetDate(dtArg:TDateTime);


procedure WMSize(var Message:TWMSize);


procedure SelectErrorToken;


procedure SelectToken;

Select the token the cursor is on.


procedure SetSeperators;

Set the positions of the seperators in text.


procedure SetToken;

Determine which token the cursor is over;


Properties


property Date : TDateTime


Events


event OnDateChange : TNotifyEvent


Variables


FButton : TDateButton;


FDate : TDateTime;


FOnDateChange : TNotifyEvent;


hBitmap : HBitmap;


nSep1 : Integer;


nSep2 : Integer;


sDateFmt : String[20];


sSep : Char;


Token : Integer;