"Typing" characters programmatically (3)

In my previous post [2] I show how to add characters in a textbox, without using the keyboard or using the KWYBOARD command, but altering the keyboard() event.
The major drawback of the solution, was that if the textbox has a controlsource, the variable from the controlsource isn't updated and the value property isn't preserved.
Also, the reason for that behavior is the switch of the order of the interactivechange(0 and keypress().

As a solution, I propose to simply update the controlsource in the interactivechange.
The next example shows this, having as controlsource a memory variable in txt2 and a cursor field in txt3. Next to this example follows several others, showing the same trick applied to editbox, combobox, grid, and with other data type, like number and date.

PUBLIC ofrm,lcVar

CLEAR

lcVar = ""

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT txt2 as MyText2 WITH width = 225, ControlSource = "lcVar"

      ADD OBJECT txt3 as MyText2 WITH top=50, width = 225, ControlSource = "cCur.cVar"

      ADD OBJECT cmd as CommandButton WITH left=250,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar C(120))

            APPEND BLANK

      ENDPROC

      PROCEDURE cmd.click

            FOR lni = 97 TO 106

                  ThisForm.txt2.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt2.Keypress(13,0,.T.) && Enter

            FOR lni = 65 TO 86

                  ThisForm.txt3.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt3.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ['+m.lcVar+']','cCur=['+cCur.cVar+']'

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as TextBox

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

The next example illustrate the same approach applied to editboxes (I changed only the baseclass type)

PUBLIC ofrm,lcVar

CLEAR

lcVar = ""

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT txt2 as MyText2 WITH width = 225, ControlSource = "lcVar"

      ADD OBJECT txt3 as MyText2 WITH top=100, width = 225, ControlSource = "cCur.cVar"

      ADD OBJECT cmd as CommandButton WITH left=250,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar C(120))

            APPEND BLANK

      ENDPROC

      PROCEDURE cmd.click

            FOR lni = 97 TO 105

                  ThisForm.txt2.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt2.Keypress(13,0,.T.) && Enter

            FOR lni = 66 TO 86

                  ThisForm.txt3.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt3.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ['+m.lcVar+']','cCur=['+cCur.cVar+']'

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as EditBox

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

  

And the same approach applied to comboboxes (I changed only the baseclass type)

PUBLIC ofrm,lcVar

CLEAR

lcVar = ""

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT txt2 as MyText2 WITH width = 225, ControlSource = "lcVar"

      ADD OBJECT txt3 as MyText2 WITH top=50, width = 225, ControlSource = "cCur.cVar"

      ADD OBJECT cmd as CommandButton WITH left=250,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar C(120))

            APPEND BLANK

      ENDPROC

      PROCEDURE cmd.click

            FOR lni = 97 TO 105

                  ThisForm.txt2.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt2.Keypress(13,0,.T.) && Enter

            FOR lni = 66 TO 86

                  ThisForm.txt3.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt3.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ['+m.lcVar+']','cCur=['+cCur.cVar+']'

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as ComboBox

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

Now let's try with a grid

PUBLIC ofrm,lcVar

CLEAR

lcVar = ""

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT grd as grid WITH Recordsource = "cCur",allowaddnew = .T.

      ADD OBJECT cmd as CommandButton WITH left=325,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar C(120))

            APPEND BLANK

            APPEND BLANK

            APPEND BLANK

            GO TOP

      ENDPROC

      PROCEDURE Init

            This.grd.Column1.RemoveObject("Text1")

            This.grd.Column1.AddObject("Text1","MyText2")

            This.grd.Column1.Text1.Visible = .T.

      PROCEDURE cmd.click

            FOR lni = 97 TO 105

                  ThisForm.grd.Column1.Text1.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.grd.Column1.Text1.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ['+m.lcVar+']','cCur=['+cCur.cVar+']'

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as TextBox

      margin = 0

      borderstyle = 0

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

 

Now having numeric variable and field

PUBLIC ofrm,lcVar

CLEAR

lcVar = 0

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT txt2 as MyText2 WITH width = 225, ControlSource = "lcVar"

      ADD OBJECT txt3 as MyText2 WITH top=50, width = 225, ControlSource = "cCur.cVar"

      ADD OBJECT cmd as CommandButton WITH left=250,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar N(20))

            APPEND BLANK

      ENDPROC

      PROCEDURE cmd.click

            FOR lni = 53 TO 55

                  ThisForm.txt2.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt2.Keypress(13,0,.T.) && Enter

            FOR lni = 48 TO 52

                  ThisForm.txt3.Keypress(m.lni,0,.T.) && A

            NEXT

            ThisForm.txt3.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ',m.lcVar,'cCur=',cCur.cVar

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as TextBox

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

Finally, having date variable and field

PUBLIC ofrm,lcVar

CLEAR

lcVar = {}

ofrm=CREATEOBJECT("MyForm")

ofrm.show()

DEFINE CLASS MyForm as Form

      autocenter = .T.

      ADD OBJECT txt2 as MyText2 WITH width = 225, ControlSource = "lcVar"

      ADD OBJECT txt3 as MyText2 WITH top=50, width = 225, ControlSource = "cCur.cVar"

      ADD OBJECT cmd as CommandButton WITH left=250,Caption='click',Autosize=.T.

      PROCEDURE load

            CREATE CURSOR cCur (cVar D)

            APPEND BLANK

      ENDPROC

      PROCEDURE cmd.click

            FOR lni = 1 TO 6

                  ThisForm.txt2.Keypress(49,0,.T.) && A

            NEXT

            ThisForm.txt2.Keypress(13,0,.T.) && Enter

            FOR lni = 1 TO 6

                  ThisForm.txt3.Keypress(49,0,.T.) && A

            NEXT

            ThisForm.txt3.Keypress(13,0,.T.) && Enter

      ENDPROC

      PROCEDURE click

            ACTIVATE SCREEN

            ?'lcVar = ',m.lcVar,'cCur=',cCur.cVar

ENDDEFINE

*********************

* Text box class 2

*********************

DEFINE CLASS MyText2 as TextBox

      PROCEDURE keypress

            LPARAMETERS nKey,nShift,lraised

            IF lraised

                  DODEFAULT(nKey,nShift)

                  =This.value

            ENDIF

      ENDPROC

      PROCEDURE interactivechange

            IF !EMPTY(This.ControlSource)

                  TRY

                        replace (This.ControlSource) WITH (This.Value)

                  CATCH

                        STORE (This.Value) TO (This.ControlSource)

                  ENDTRY

            ENDIF

      ENDPROC

ENDDEFINE

 See also

[1] Typing characters programmatically

[2] Typing characters programatically (2)
[3] "Typing" characters programatically (4)