Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BUG on spinner ranges
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00873942
Message ID:
00873956
Vues:
12
Hi Fabio,

You ar right.

Can you test my class Supper Spinner? This class has not problems with decimal places.

http://fox.orgasoft.cz/download.php?id=49

MartinJ

>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
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform