Quantcast
Channel: VFPX
Viewing all articles
Browse latest Browse all 3798

Created Issue: FoxcodePlus - fix for Textbox [33564]

$
0
0
Hi Rodrigo Duarte Bruscain,

I have changed some code.

Now Numeric "textbox" with " . " and " = " working perfect.
Now when we type "thisform.tex" and press " . " it is writing "thisform.text1." , working perfect.

* List of changes

* --------------------------------------------------------------------------------

* Foxcodeplus.prg
* Protected Procedure Init

On Key Label Alt+f1 _Screen.FoxCodePlus.helpdot()
On Key Label Alt+f2 _Screen.FoxCodePlus.helpequal()

* On Key Label "." _Screen.FoxCodePlus.GetPeriod()
* On Key Label "=" _Screen.FoxCodePlus.GetEqual()

* this 2 procedures under the " Procedure GetEqual "

* Procedure for Alt+F1
Procedure helpdot
***
On Key Label "." _Screen.FoxCodePlus.GetPeriod()
Keyboard "."
Endproc

* Procedure for Alt+F2
Procedure helpequal
****
On Key Label "=" _Screen.FoxCodePlus.GetEqual()
Keyboard "="
Endproc


* foxcodeplusintellisense.vcx
* foxcodeplusintellisense.hide

lc_onkey_dot = this.onkey_dot
lc_onkey_equal = this.onkey_equal

on key label "." &&lc_onkey_dot
on key label "=" &&lc_onkey_equal


* foxcodeplusintellisense.show

this.onkey_dot = on("key",".")
this.onkey_equal = on("key","=")

On Key Label "." _Screen.FoxCodePlus.GetPeriod()
On Key Label "=" _Screen.FoxCodePlus.GetEqual()

* --------------------------------------------------------------------------------

Now we need to press "Alt+F1", if we want to see the Intellisense list in " with ... endwith "

After making this changes, today i have not faced any issue.
also i have not faced " Fast typing + Space " issue after making this changes.

Please download and rename the file "FoxcodePlusproj.rrr" to "FoxcodePlusproj.rar"


Warm regards,
mk.

Viewing all articles
Browse latest Browse all 3798

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>