Define Class TBox as TextBox
	FontName=_FontName
	FontSize= 8 
	BorderStyle= 0 
	Margin= 0 
	Width= 60 
	Value= 0 
	Visible=.T.
	SpecialEffect= 0 
	InputMask='99:99'
	Format='Z'
	StatusBarText="Укажите время в формате HH:MM"

	Procedure KeyPress( nKeyCode, nShiftAltCtrl)
	with this
		if InList(nKeyCode, 44 , 46 , 58 )
			.SelStart= 3 
			NoDefault
		endif
	endwith

	Procedure Valid
	with this
		if not empty(.value)
			local m.hr, m.mn
			m.mn=mod(.value, 100 )
			m.hr=int(.value/ 100 )
			if not between(m.mn, 0 , 59 )
				.SelStart= 3 
				.SelLength= 2 
				?? chr( 7 )
				Return  0 
			endif
			if not between(m.hr, 0 , 23 )
				if not (m.hr= 24  and m.mn= 0 )
					.SelStart= 0 
					.SelLength= 2 
					?? chr( 7 )
					Return  0 
				endif
			endif
		endif
	endwith
	
EndDefine