Sub EditTextSearch_TextChanged (Old As String, New As String)
If s.Len(s.Trim(New)) < 1 Then
ListViewSearch.Clear
Return
End If
holdp = pointer.Position
thm = pointer.RowCount - 1
Dim LVlbl As Label
LVlbl = ListViewSearch.SingleLineLayout.Label
LVlbl.Color = Colors.Gray
ListViewSearch.Clear
If RBnames.Checked Then
For l = 0 To thm
pointer.Position = l
seekvar = pointer.GetString ("name")
If s.At(s.Upper(seekvar), s.Upper(New)) > -1 Then
ListViewSearch.AddSingleLine(seekvar)
ListViewSearch.Invalidate
DoEvents
End If
Next
End If
If RBnotes.Checked Then
For l = 0 To thm
pointer.Position = l
seekvar = pointer.GetString ("enotesee")
If s.At(s.Upper(seekvar), s.Upper(New)) > -1 Then
ListViewSearch.AddSingleLine(pointer.GetString ("name"))
ListViewSearch.Invalidate
DoEvents
End If
Next
End If
pointer.Position = holdp
End Sub