Spinner have problems with range values set to decimals.

a) Not support more 2 decimals
b) Round KeyboardLowValue and KeyboardHighValue to integer
c) Round SpinnerHighValue to 1 decimal

Then these properties are usefull only with integers.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT spinner1 AS spinner WITH ;
		Height = 24, ;
		InputMask = "99999999.999", ;
		Left = 53, ;
		Top = 73, ;
		Width = 121, ;
		Format = "R", ;
		Name = "Spinner1"


	PROCEDURE spinner1.Init
		clear
		this.Increment = 0.001
		? 'not support incr 0.001', this.Increment
		this.Increment = 0.01
		? 'support incr ', this.Increment
		this.KeyboardLowValue	= 0.01
		this.KeyboardHighValue	= 99999999.91
		this.SpinnerLowValue	= 0.01
		this.SpinnerHighValue	= 99999999.94


		? '!!!! keyLow',this.KeyboardLowValue
		? '!!!! keyHeigh',this.KeyboardHighValue 
		? 'SpinLow',this.SpinnerLowValue 
		? '!!!! SpinHeigh',this.SpinnerHighValue
	ENDPROC


ENDDEFINE

Fabio