NewsForumsCodeLogsGallerySpecsSearch

Code archives/Miscellaneous/TextAreaJumpToLine

This code has been declared by its author to be Public Domain code.

Download source code

TextAreaJumpToLine by Red2003
B+ v1.34

Userlibs : userlibs/user32.decls
.lib "user32.dll"
SendMessage%(hwnd, msg, wParam, mParam):"SendMessageA"

Example
numline=Rand(0,TextAreaLen(txt,2)-1)
TextAreaJumpToLine txt,numline


functions : 
[code]
Function TextAreaJumpToLine(txt,numline)	
	Local EM_LINESCROLL=$B6
	Local curY=TextAreaCursor( txt,2 )
	Local scrollY=numline-curY
	sendmessage(QueryObject(txt,1), EM_LINESCROLL,  0, scrollY)
End Function[/code]

Comments

None.

Code Archives Forum