Very interesting. I tested it with your settings and added a width to the textbox of 181 and the scroll worked as it should. However, when I changed the MaxLength to 15 (instead of 5) then the width had to be 350 to prevent the misbehavior...
>If you purchase a Cinema you resolve the problem.
>
>The problem is a Bug into the VFP, it compute a scrolled width too large,
>and then it require a long TextBox.
>
>Run this, and try with different TextBox Width,
>the scroll is correlate with the blank area,
>when the width is >=180 the scroll disappear.
>
>Repro:
>
>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
>
>
> ADD OBJECT text1 AS textbox WITH ;
> Value = "abcde", ;
> Height = 23, ;
> Left = 21, ;
> MaxLength = 5, ;
> Top = 17, ;
> Name = "Text1"
>
>
> ADD OBJECT spinner1 AS spinner WITH ;
> Height = 24, ;
> Increment = 20.00, ;
> KeyboardHighValue = 200, ;
> KeyboardLowValue = 3, ;
> Left = 22, ;
> SpinnerHighValue = 200.00, ;
> SpinnerLowValue = 3.00, ;
> Top = 48, ;
> Width = 79, ;
> ControlSource = "thisform.Text1.Width", ;
> Name = "Spinner1"
>ENDDEFINE
>
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"