Class TgSpinTime (unit SpinTime)

Inherits from

TCustomMaskEdit

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.

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;



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;