Class TDateTimeDlg (unit Datetime)

Inherits from

TEdit

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;



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;