Class TDateTimeDlg (unit Datetime) |
Inherits from
TEdit
constructor Create(AOwner: TComponent);
- TDateTimeDlg Implementation
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
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
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;
constructor Create(AOwner: TComponent);
TDateTimeDlg Implementation
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
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
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;