Untested:
-----------------
property pStartLine
on beginSprite me
pStartLine = 1
end
on new me
pStartLine = 1
return me
end
> on keyUp
> searchStr = member("searchFor").text
> pMember = member "ZoneMastText"
repeat with i = pStartLine 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
pStartLine = lineNumber + 1
if pStartLine > member("ZoneMastText").line.count then
--Start over
pStartLine = 1
end if
> 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!]
