| Class TDateTimeDlg (unit Datetime) |
TEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CalendarClick (Sender: TObject);
procedure ClockClick (Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DownClick (Sender: TObject);
procedure IncOnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure UpClick (Sender: TObject);
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CMEnter(var Message: TCMGotFocus);
procedure DrawButtons;
function GetButtons: TButtonOptions;
function GetCalendarGlyph: TBitmap;
function GetClockGlyph: TBitmap;
function GetDownGlyph: TBitmap;
function GetMinHeight: Integer;
function GetNumCalendarGlyphs: TNumGlyphs;
function GetNumClockGlyphs: TNumGlyphs;
function GetNumDownGlyphs: TNumGlyphs;
function GetNumUpGlyphs: TNumGlyphs;
function GetUpGlyph: TBitmap;
procedure IncDateTime(Down: Boolean);text edit bug: if size to less than minheight, then edit ctrl does not display the text
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure SetButtons(Value: TButtonOptions);
procedure SetCalendarGlyph(Value: TBitmap);
procedure SetClockGlyph(Value: TBitmap);
procedure SetDownGlyph(Value: TBitmap);
procedure SetEditRect;
procedure SetEnableEditor(Value: Boolean);
procedure SetFocusBtn (Btn: TComponentButton);
procedure SetIncrementBtns(Value: Boolean);
procedure SetIncrementBy(Value: Integer);
procedure SetNumCalendarGlyphs(Value: TNumGlyphs);
procedure SetNumClockGlyphs(Value: TNumGlyphs);
procedure SetNumDownGlyphs(Value: TNumGlyphs);
procedure SetNumUpGlyphs(Value: TNumGlyphs);
procedure SetUpGlyph(Value: TBitmap);
procedure WMCut(var Message: TWMCut);
procedure WMPaste(var Message: TWMPaste);
procedure WMSize(var Message: TWMSize);| Properties |
property About : TAbout
property BtnCalendarGlyph : TBitmap
property BtnClockGlyph : TBitmap
property BtnDownGlyph : TBitmap
property BtnUpGlyph : TBitmap
property Buttons : TButtonOptions
property EnableEditor : Boolean
property IncrementBy : Integer
property IncrementScale : TIncrementScale
property NumCalendarGlyphs : TNumGlyphs
property NumClockGlyphs : TNumGlyphs
property NumDownGlyphs : TNumGlyphs
property NumUpGlyphs : TNumGlyphs| Events |
| Variables |
FAbout : TAbout;
FButtons : TButtonOptions;
FCalendarButton : TComponentButton;
FClockButton : TComponentButton;
FDownButton : TComponentButton;
FEnableEditor : Boolean;
FFocusedButton : TComponentButton;
FIncrementBtns : Boolean;
FIncrementBy : Integer;
FIncrementScale : TIncrementScale;
FUpButton : TComponentButton;| Constructors |
constructor Create(AOwner: TComponent);TDateTimeDlg Implementation
| Functions |
destructor Destroy;
procedure CalendarClick (Sender: TObject);
procedure ClockClick (Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;debug
procedure DownClick (Sender: TObject);
procedure IncOnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure UpClick (Sender: TObject);Cannot update date if only time is showing
procedure BtnMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CMEnter(var Message: TCMGotFocus);
procedure DrawButtons;For sizing and redrawing
function GetButtons: TButtonOptions;
function GetCalendarGlyph: TBitmap;
function GetClockGlyph: TBitmap;
function GetDownGlyph: TBitmap;
function GetMinHeight: Integer;
function GetNumCalendarGlyphs: TNumGlyphs;
function GetNumClockGlyphs: TNumGlyphs;
function GetNumDownGlyphs: TNumGlyphs;
function GetNumUpGlyphs: TNumGlyphs;
function GetUpGlyph: TBitmap;
procedure IncDateTime(Down: Boolean);increment
text edit bug: if size to less than minheight, then edit ctrl does not display the text
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure SetButtons(Value: TButtonOptions);
procedure SetCalendarGlyph(Value: TBitmap);
procedure SetClockGlyph(Value: TBitmap);
procedure SetDownGlyph(Value: TBitmap);
procedure SetEditRect;
procedure SetEnableEditor(Value: Boolean);
procedure SetFocusBtn (Btn: TComponentButton);
procedure SetIncrementBtns(Value: Boolean);
procedure SetIncrementBy(Value: Integer);
procedure SetNumCalendarGlyphs(Value: TNumGlyphs);
procedure SetNumClockGlyphs(Value: TNumGlyphs);
procedure SetNumDownGlyphs(Value: TNumGlyphs);
procedure SetNumUpGlyphs(Value: TNumGlyphs);
procedure SetUpGlyph(Value: TBitmap);Setting & getting properties
procedure WMCut(var Message: TWMCut);
procedure WMPaste(var Message: TWMPaste);Cutting and Pasting
procedure WMSize(var Message: TWMSize);Set Buttons for Calendar and timer buttons
| Properties |
property About : TAbout
property BtnCalendarGlyph : TBitmap
property BtnClockGlyph : TBitmap
property BtnDownGlyph : TBitmap
property BtnUpGlyph : TBitmap
property Buttons : TButtonOptions
property EnableEditor : Boolean
property IncrementBy : Integer
property IncrementScale : TIncrementScale
property NumCalendarGlyphs : TNumGlyphs
property NumClockGlyphs : TNumGlyphs
property NumDownGlyphs : TNumGlyphs
property NumUpGlyphs : TNumGlyphs| Events |
| Variables |
FAbout : TAbout;
FButtons : TButtonOptions;Dummy for about property editor} Buttons
FCalendarButton : TComponentButton;
FClockButton : TComponentButton;
FDownButton : TComponentButton;
FEnableEditor : Boolean;
FFocusedButton : TComponentButton;
FIncrementBtns : Boolean;
FIncrementBy : Integer;
FIncrementScale : TIncrementScale;
FUpButton : TComponentButton;