SetTextString ---- works with one line, but not multiple lines
CreateText ( 10, "" ) // initiate text object
SetTextSize( 10, 33)
SetTextColor( 10, 0, 0, 0 ,255)
SetTextPosition( 10, 5, 240 )
CreateInitialLayout()
do // MAIN LOOP
if GetUserInput() = 1
HandleUserInput(1)
endif
sync()
loop
//____________________________ Edit box functions _____________________________________
function CreateInitialLayout() //*** Create the edit box ***
CreateEditBox(1)
SetEditBoxSize(1,400,600)
SetEditBoxPosition(1,300,100)
//*** Set maximum characters to 15 ***
SetEditBoxMaxChars(1,15)
//*** Assign focus to the edit box ***
SetEditBoxFocus(1,1)
//*** Create text for copy of input ***
SetEditBoxTextSize ( 1, 33)
SetEditBoxTextColor ( 1, 255, 0, 0 )
SetEditBoxMultiLine ( 1, 1 ) //************************* exibit A
endfunction
function GetUserInput()
if GetEditBoxChanged(1) = 1
result = 1
else
result = 0
endif
endfunction result
function HandleUserInput(in as integer)
if in = 1
SetTextString(10,GetEditBoxText(1)) //************************** Exibit B
endif
endfunction
.
