mobilecontrolcreate problem
Posted: Thu Jul 19, 2018 10:07 pm
Getting an execution error message with the following code. Can anyone help? Thank you in advance.
( execution error at line 153 (Handler: can't find handler) near "mobileControlCreate", char 1)
on addComment pQuestion,pComment -- param is full text of question line; pComment is empty for a new comment
if isMobile() and "usernote" is among the lines of mobileControls() then
mobileControlDelete "usernote"
end if
resizeNoteGrp
set the cCurQ of grc "usernote" to pQuestion
show grp "noteEntry"
put calcInputControlPadding(10) into tInputRect -- resize for margins
---------->mobileControlCreate "multiline","usernote"
mobileControlSet "usernote","rect", tInputRect -- the rect of grc "usernote"
mobileControlSet "usernote","opaque",false
mobileControlSet "usernote","fontsize",the effective textsize of fld "questionsList"
mobileControlSet "usernote","visible","true"
if the platform = "iPhone" then
mobileControlSet "usernote","backgroundcolor","255,255,255,0" -- transparent
end if
if pComment <> "" then
replace numToChar(11) with cr in pComment -- replace soft breaks with returns
mobileControlSet "usernote","text",pComment
end if
end addComment
( execution error at line 153 (Handler: can't find handler) near "mobileControlCreate", char 1)
on addComment pQuestion,pComment -- param is full text of question line; pComment is empty for a new comment
if isMobile() and "usernote" is among the lines of mobileControls() then
mobileControlDelete "usernote"
end if
resizeNoteGrp
set the cCurQ of grc "usernote" to pQuestion
show grp "noteEntry"
put calcInputControlPadding(10) into tInputRect -- resize for margins
---------->mobileControlCreate "multiline","usernote"
mobileControlSet "usernote","rect", tInputRect -- the rect of grc "usernote"
mobileControlSet "usernote","opaque",false
mobileControlSet "usernote","fontsize",the effective textsize of fld "questionsList"
mobileControlSet "usernote","visible","true"
if the platform = "iPhone" then
mobileControlSet "usernote","backgroundcolor","255,255,255,0" -- transparent
end if
if pComment <> "" then
replace numToChar(11) with cr in pComment -- replace soft breaks with returns
mobileControlSet "usernote","text",pComment
end if
end addComment