Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Quicken Like text box under a grid
Message
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Title:
Quicken Like text box under a grid
Miscellaneous
Thread ID:
00438472
Message ID:
00438472
Views:
73
I have a form off of the super class for bizobjects. When I use cGridList my textbox loses return visual functionality. That is screwed up but it means that the more you type in the control you no longer see additional characters in it.

My wait window will show all my characters, but the textbox shows the first find but not newer ones.

I'm looking for BUBBA'S, "B" shows the first B in the grid's data. But Pressing the "U", the grid does not move to "BUBBA ?

If I use the default grid from VFP it works well. I just need to highlight the row.

My interactivechange code that is firing:
If lastkey()<>127 && backspace key
lnplace = this.selstart
Else
lnplace = this.selstart
Endif &&lastkey()<>127

llfound=.f.
Wait wind nowait left(this.value,this.selstart) &&viewer for what is typed
If seek(left(this.value,this.selstart)) && Locator
llfound=.t.
This.refresh
thisform.cGridList1.Column1.Header1.click
this.value = v_teams.team_name
With thisform
.Ctextboxl1.TextBox.enabled = .f.
.Ctextboxl2.TextBox.enabled = .f.
.Ctextboxl1.TextBox.value = v_teams.city
.Ctextboxl2.TextBox.value = v_teams.state
.Ctextboxl1.refresh
.Ctextboxl2.refresh
.cGridList1.refresh
.cGridList1.setfocus
Endwith
Else
llfound=.f.
this.value = left(this.value,this.selstart)+space(35-this.selstart)
With thisform

.Ctextboxl1.TextBox.enabled = .t.
.Ctextboxl2.TextBox.enabled = .t.
.Ctextboxl1.TextBox.value = space(20)
.Ctextboxl2.TextBox.value = space(10)
.Ctextboxl1.refresh
.Ctextboxl2.refresh
.cGridList1.refresh
.cGridList1.setfocus
Endwith
Endif

This.setfocus
This.selstart=lnplace

if lastkey() = 13 && Enter key movement to proper next control
if llfound
ThisForm.Command1.setfocus
ThisForm.Command1.refresh
endif
endif

Return


TIA
Next
Reply
Map
View

Click here to load this message in the networking platform