>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 >>