Uneditable Text Area

I want to make a text area unedible but readable. Someone said there was a lib for this that someone had made but i can't seem to find it.

Can anyone help?

Credit goes to Nullmind:

; lib "user32.dll"
; SendMessage%(hWnd%,Msg%,wParam%,lParam%):"SendMessageA"
Const EM_SETREADONLY = $CF
Global win=CreateWindow("Readonly textbox",64,64,320,240)
Global Txt=CreateTextArea(0,0,1,1,win)
SendMessage QueryObject(Txt,1),EM_SETREADONLY,True,0

Slightly OT: I find it astounding that you should have to resort to userlibs to achieve such basic functionality. Just when I think B+ can't possibly become any more of a joke, it does.

b+ is userlib jungle, atm... I hope the next update adds some more basic stuff it already should've had.

Same here We definately need right click menus and full status bar support.

.

Thanks for that.

Is there anyway to get to the top of a text area? I tried using the SetSliderValue but that didn't work.

Does any one know how to do it?

Thanks for the code Eikon.

You're welcome. Had to dig this one up earlier, myself.

em. I usually just set its text again every loop and so any changes are negated. although this would be too slow if there was alot of text...