Numerical TextField

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Oddball

Thanks Amon it's a start.

Function CreateNumberField:TGadget( x:Int, y:Int, w:Int, h:Int, group:TGadget)
	Local g:TGadget=CreateTextField(x,y,w,h,group)
	SetGadgetFilter g,NumFilter
	Return g
End Function

Function NumberFieldNumber:Float( numberfield:TGadget )
	Return Float(TextFieldText(numberfield))
End Function

Function NumFilter:Int(event:TEvent, context:Object)
	If Event.ID=EVENT_KEYCHAR
		If (event.data > 47 And  event.data < 58) Or event.data = 8 Or event.data = 46 Then Return True Else Return False
	EndIf
	Return True
End Function

Just need to get the text to align to the right now and I'll be sorted.