Locking TextAreas

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

mag.

Try to enable/disable 'LockTextArea'. I see no different. The flickring is still there and no major speed increase. Anything wrong to this code or 'LockTextArea' not really work?

Open in online IDE

win=CreateWindow ("",0,0,300,300) 
txtbox=CreateTextArea(0,0,200,200,win)  
For k=0 To 200
	For KK=0 To 30
		A$=A$+Chr$(Rand (33,126))
	Next
	A$=A$+Chr$(13)
Next
SetGadgetText txtbox,A$  
gt=CreateButton("Color It",200,0,80,20,win)
Repeat 
id=WaitEvent() 
If id=$803 Then End 
If id=$401 And EventSource()=gt Then   
LockTextArea txtbox ;<--Try disable/enable this and see 
For k=0 To 200
	For KK=0 To 30
		FormatTextAreaText txtbox,Rand(1,255),Rand(1,255),Rand(1,255),Rand(0,3),(k*32)+kk,3,1 
Next
Next
UnlockTextArea txtbox ;<---UNLOCK BACK
End If 
Forever