SyntaxBomb - Indie Coders

Languages & Coding => Blitz Code Archives => BlitzPlus Gui => Topic started by: BlitzBot on June 29, 2017, 12:28:39 AM

Title: [bb] Kev's READONLY TextArea by Ked [ 1+ years ago ]
Post by: BlitzBot on June 29, 2017, 12:28:39 AM
Title : Kev's READONLY TextArea
Author : Ked
Posted : 1+ years ago

Description : I was searching for a way to make a readonly textarea and good  ole Kev had posted this as an answer to a post a couple of years ago. I thought I should put it up here just in case someone else might need it.

Code :
Code: BlitzBasic
  1. ; .lib "user32.dll"
  2. ; user32_SendMessage%(hWnd%,Msg%,wParam%,lParam%):"SendMessageA"
  4. Const ES_READONLY = $800
  7. ; Example provided by Mag, added to documentation by Mark Tiffany
  8. win = CreateWindow ("Test Text Area",0,0,300,300) ; create a window first
  9. txtbox = CreateTextArea(0,0,200,200,win) ; <--- CREATE TEXTAREA (Multi line text field)
  11. hwnd = QueryObject(txtbox,1)
  13. user32_SendMessage(hwnd,EM_SETREADONLY,1,0)
  14. user32_SendMessage(hwnd,ES_READONLY,1,0)
  16. SetGadgetText txtbox,"Type anything (multiline) "+Chr$(13)+"And press Get Text button" ;put some text on that textare for info
  17. gt=CreateButton("Get Text",200,0,80,20,win);create button
  18. Repeat
  19. id=WaitEvent() ;wait for user action (in a form of event)
  20. If id=$803 Then End ;to quit program when receive Window close event
  21. If id=$401 And EventSource()=gt Then ;when ok is press
  22. Notify "This is your text in TextArea:"+Chr$(13)+TextAreaText$(txtbox);<<--TO GET TEXT FROM TEXTFIELD
  23. End If
  24. Forever

Comments :

JoshK(Posted 1+ years ago)

 There is a creation flag in BlitzMax for this.

Ked(Posted 1+ years ago)

 This is for BlitzPlus.

TaskMaster(Posted 1+ years ago)

 Ah, one of the things I hate about this Showcase forum.  It is a pain in the butt to figure out which language each entry is for.People should put the target language(s) at the top of their post.

SimplePortal 2.3.6 © 2008-2014, SimplePortal