LiveCode Forums.

Code: Select all

on mouseUp
   set the fixedLineheight of fld 1 to "true"
   ask "What Line?"
   set the scroll of fld 1 to it * the textheight of fld 1 - the textHeight of fld 1
end mouseUp

Code: Select all

   /* Get the rect (in card co-ords) of the line of text. */
   local tLineRect
   put the formattedRect of line tLineNumber of field 1 into tLineRect
   
   /* Get the top of the target field relative to the current scroll
    * (the adjustment is necessary as the scroll affects the formatted
    * rect of the lines in the obvious way). */
   local tFieldTop
   put the top of field 1 - the vScroll of field 1 into tFieldTop
   
   /* The scroll is the difference between the top of the field
    * and the top of the line (item 2 of the rect). */
   set the vScroll of field 1 to item 2 of tLineRect - tFieldTop
 

Code: Select all

on mouseUp
   ## a field that holds the line number you want to scroll to
   put field "fLineNum" into tLineNum
   
   ## the field that holds your text
   put the height of field "fText" into tFieldHeight
   put the top of field "fText" into tFieldTop
   put the topMargin of field "fText" into tTopMargin
   put the vScroll of field "fText" into tvScroll
   
   put the formattedTop of line tLineNum of field "fText" into tFormatTop
   
   put tFormatTop - tFieldTop into tAbsDiff
   
   put tAbsDiff + tvScroll - tTopMargin into tNewScroll
   set the vScroll of field "fText" to tNewScroll
   
   ## check the correct line
   select line tLineNum of field "fText"
end mouseUp