Good morning List,
on keyUp
searchStr = member("searchFor").text
pMember = member "ZoneMastText"
repeat with i = 1 to member("ZoneMastText").line.count
set lineNumber = lineNumber + 1
if member("ZoneMastText").line[i] contains searchStr then
if lineNumber = 1 then
startChar = 1
else
startChar = (pMember.text.line[1..lineNumber - 1]).length + 2
end if
endChar = (pMember.text.line[1..lineNumber]).length + 1
hilite char startChar to endChar of field pMember
member("ZoneMastText").scrollTop = 0
scrollByLine member "ZoneMastText", lineNumber - 10
exit repeat
end if
end repeat
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
