| Class TUPCustomDateEdit (unit uUPDateEdit) |
TCustomMaskEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CreateParams(var Params: TCreateParams);
destructor Destroy;
procedure Loaded;
procedure BoundsChanged;
procedure CalendarDeActivate(Sender: TObject);
procedure Change;
procedure DropDownClick(Value: Boolean);
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);if Assigned(FOnDateChanged) then FOnDateChanged(Self);
procedure SetDayDisplay(Value: TDayDisplay);
procedure SetDayLayout(Value: TDayLayout);
procedure WMPaint(var Message: TWMPaint);
procedure WMSetCursor(var Message: TWMSetCursor);
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;