Class TgSpinTime (unit SpinTime) |
Inherits from
TCustomMaskEdit
constructor Create(AOwner: TComponent);
destructor Destroy;
Get international time seperator
procedure CMEnter(var Message: TCMGotFocus);
procedure CreateParams(var Params: TCreateParams);
NOTE: Delphi standard edit procedures.
procedure CreateWnd;
Params.
procedure DoExit;
-------------------------------------------------------------------------} {PROCEDURE: Set time on loss of focus event.
procedure DownClick (Sender: TObject);
-------------------------------------------------------------------------} {PROCEDURE: Decrement time by MinuteIncrement.
procedure KeyDown(var Key: Word; Shift: TShiftState);
-------------------------------------------------------------------------} {PROCEDURE: If up/down arrow increment/decrement time.
procedure UpClick (Sender: TObject);
-------------------------------------------------------------------------} {PROCEDURE: Increment time by MinuteIncrement.
procedure WMCut(var Message: TWMCut);
procedure WMPaste(var Message: TWMPaste);
procedure WMSize(var Message: TWMSize);
debug
function GetMinHeight: Integer;
text edit bug: if size to less than minheight, then edit ctrl does
not display the text
procedure SetEditRect;
procedure SetFormat( Format: TTimeFormat );
-------------------------------------------------------------------------} {PROCEDURE: Set international time format.
procedure SetTime;
-------------------------------------------------------------------------} {PROCEDURE: Attempt to store new time.
property About : TAboutSpinTime
property AutoSelect :
property AutoSize :
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property EditorEnabled : Boolean
property Enabled :
property Font :
property MinuteIncrement : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Text :
property TimeFormat : TTimeFormat
property Visible :
property Button : TSpinButton
property EditMask :
property MaxLength :
Moved from published
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FTime : TDateTime;
FAboutBox : TAboutSpinTime;
FButton : TSpinButton;
FCanvas : TCanvas;
FEditorEnabled : Boolean;
FFormatString : String;
FMaxValue : LongInt;
FMinIncrement : Integer;
FMinValue : LongInt;
FSeperator : String[1];
FTimeFormat : TTimeFormat;
constructor Create(AOwner: TComponent);
destructor Destroy;
Get international time seperator
procedure CMEnter(var Message: TCMGotFocus);
procedure CreateParams(var Params: TCreateParams);
NOTE: Delphi standard edit procedures.-----------------------------------
procedure CreateWnd;
Params.Style := Params.Style and not WS_BORDER;
procedure DoExit;
-------------------------------------------------------------------------} {PROCEDURE: Set time on loss of focus event. } {-------------------------------------------------------------------------
procedure DownClick (Sender: TObject);
-------------------------------------------------------------------------} {PROCEDURE: Decrement time by MinuteIncrement. } {-------------------------------------------------------------------------
procedure KeyDown(var Key: Word; Shift: TShiftState);
-------------------------------------------------------------------------} {PROCEDURE: If up/down arrow increment/decrement time. } {-------------------------------------------------------------------------
procedure UpClick (Sender: TObject);
-------------------------------------------------------------------------} {PROCEDURE: Increment time by MinuteIncrement. } {-------------------------------------------------------------------------
procedure WMCut(var Message: TWMCut);
procedure WMPaste(var Message: TWMPaste);
procedure WMSize(var Message: TWMSize);
debug
function GetMinHeight: Integer;
text edit bug: if size to less than minheight, then edit ctrl does
not display the text
procedure SetEditRect;
procedure SetFormat( Format: TTimeFormat );
-------------------------------------------------------------------------} {PROCEDURE: Set international time format. } {-------------------------------------------------------------------------
procedure SetTime;
-------------------------------------------------------------------------} {PROCEDURE: Attempt to store new time. } {-------------------------------------------------------------------------
property About : TAboutSpinTime
property AutoSelect :
property AutoSize :
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property EditorEnabled : Boolean
property Enabled :
property Font :
property MinuteIncrement : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Text :
property TimeFormat : TTimeFormat
property Visible :
property Button : TSpinButton
property EditMask :
property MaxLength :
Moved from published
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FTime : TDateTime;
FAboutBox : TAboutSpinTime;
FButton : TSpinButton;
FCanvas : TCanvas;
FEditorEnabled : Boolean;
FFormatString : String;
FMaxValue : LongInt;
FMinIncrement : Integer;
FMinValue : LongInt;
FSeperator : String[1];
FTimeFormat : TTimeFormat;