| Class TgSpinTime (unit SpinTime) |
TCustomMaskEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CMEnter(var Message: TCMGotFocus);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DoExit;
procedure DownClick (Sender: TObject);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure UpClick (Sender: TObject);
procedure WMCut(var Message: TWMCut);
procedure WMPaste(var Message: TWMPaste);
procedure WMSize(var Message: TWMSize);
function GetMinHeight: Integer;
procedure SetEditRect;
procedure SetFormat( Format: TTimeFormat );
procedure SetTime;| Properties |
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 : | Events |
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 : | Variables |
FTime : TDateTime;
FAboutBox : TAboutSpinTime;
FButton : TSpinButton;
FCanvas : TCanvas;
FEditorEnabled : Boolean;
FFormatString : String;
FMaxValue : LongInt;
FMinIncrement : Integer;
FMinValue : LongInt;
FSeperator : String[1];
FTimeFormat : TTimeFormat;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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. } {-------------------------------------------------------------------------
| Properties |
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
| Events |
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 : | Variables |
FTime : TDateTime;
FAboutBox : TAboutSpinTime;
FButton : TSpinButton;
FCanvas : TCanvas;
FEditorEnabled : Boolean;
FFormatString : String;
FMaxValue : LongInt;
FMinIncrement : Integer;
FMinValue : LongInt;
FSeperator : String[1];
FTimeFormat : TTimeFormat;