My 'Reduction of Area' app uses inches for all calculations. I want my users to be able to type in a metric number and VFP to store the inch conversion. This is the Interactive change event of a Value field.
(I did not remember how to program, AddObject Text1, so I have the object placed visually through the form designer.)
(Make Text1 appear over the Value field)
ThisFormset.REDAREA.Text1.Enabled = .T.
ThisFormset.REDAREA.Text1.Visible = .T.
ThisFormset.REDAREA.Text1.Value = ThisFormSet.Remove0(This.Value,5,1) &&5 integers, 1 decimal
ThisFormset.REDAREA.Text1.Top = This.Top
ThisFormset.REDAREA.Text1.LEFT = This.Left
ThisFormset.REDAREA.Text1.Width = This.Width
ThisFormset.REDAREA.Text1.SelStart= this.SelStart
ThisFormset.REDAREA.Text1.SetFocus()
(Text1 will allow input like 13.6mm, 5m*12pc or even 13' for RED_MATH to convert and calculate inchs)
(How do I wait for Text1 to lose focus before I retreive the Value?)
This.Value = ThisFormSet.RED_MATH(ThisFormset.REDAREA.Text1.Value)
ThisFormset.REDAREA.Text1.Enabled = .F.
ThisFormset.REDAREA.Text1.Visible = .F.
PS I have the the Metric conversion routine in RED_MATH.
Or how do I have Text1 Send back the Value to this same object?
Tia,
David Kirchner
dmk@iname.com