Class TUPCustomDateEdit (unit uUPDateEdit)

Inherits from

TCustomMaskEdit

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

procedure CreateParams(var Params: TCreateParams);


destructor Destroy;

FormatText;

procedure Loaded;


procedure BoundsChanged;


procedure CalendarDeActivate(Sender: TObject);

if Assigned(FOnDropDown) then FOnDropDown(Self);

procedure Change;


procedure DropDownClick(Value: Boolean);

then FDateTime := StrToDateTime(Text);

procedure FormatText;


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


procedure KeyPress(var Key: Char);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure PaintWindow(DC: HDC);


procedure SelectDate;


procedure SetDate(Value: TDateTime);

Private declarations

if Assigned(FOnDateChanged) then FOnDateChanged(Self);


procedure SetDayDisplay(Value: TDayDisplay);


procedure SetDayLayout(Value: TDayLayout);


procedure WMPaint(var Message: TWMPaint);


procedure WMSetCursor(var Message: TWMSetCursor);

draw drop down button

procedure WMSize(var Message: TWMSize);


Properties

property Date : TDateTime


property DayDisplay : TDayDisplay


property DayLayout : TDayLayout


property Font :


property MonthButtonsFlat : Boolean


property NoDateText : string


property Text :


Events

Variables

ButtonPressed : Boolean;


ButtonWidth : Integer;


Calendar : TfrmCalendarEdit;


FDateTime : TDateTime;


FDayDisplay : TDayDisplay;


FDayLayout : TDayLayout;


FFlat : Boolean;


FNoDateText : string;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


procedure CreateParams(var Params: TCreateParams);


destructor Destroy;

FormatText;


procedure Loaded;


procedure BoundsChanged;


procedure CalendarDeActivate(Sender: TObject);

if Assigned(FOnDropDown) then FOnDropDown(Self);


procedure Change;


procedure DropDownClick(Value: Boolean);

then FDateTime := StrToDateTime(Text);


procedure FormatText;


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


procedure KeyPress(var Key: Char);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure PaintWindow(DC: HDC);


procedure SelectDate;


procedure SetDate(Value: TDateTime);

Private declarations

if Assigned(FOnDateChanged) then FOnDateChanged(Self);


procedure SetDayDisplay(Value: TDayDisplay);


procedure SetDayLayout(Value: TDayLayout);


procedure WMPaint(var Message: TWMPaint);


procedure WMSetCursor(var Message: TWMSetCursor);

draw drop down button


procedure WMSize(var Message: TWMSize);


Properties


property Date : TDateTime


property DayDisplay : TDayDisplay


property DayLayout : TDayLayout


property Font :


property MonthButtonsFlat : Boolean


property NoDateText : string


property Text :


Events


Variables


ButtonPressed : Boolean;


ButtonWidth : Integer;


Calendar : TfrmCalendarEdit;


FDateTime : TDateTime;


FDayDisplay : TDayDisplay;


FDayLayout : TDayLayout;


FFlat : Boolean;


FNoDateText : string;