Here's some code I picked up on the forum. Been using it ever since. I create a rectangular graphic and name it accordingly, to define pRect. Use your imagination as to how fancy you want the native control to look.
TMControls2 does work on LC 8.
Code: Select all
on OpenCard
if environment() is not "mobile" then exit OpenCard
--inputCre pName, pKind, pRect, pAutoClear, pAutoFit, pAutoCap, pAutoCorrect, pKeyboardType, pReturnKey, pBackgroundColor, ptextAlign
inputCreator "Paid", "input", "FigurePrice", "TRUE", "TRUE", "Words", "default", "decimal","Next",,"center"
inputCreator "Shipping", "input", "Shipping", "TRUE", "TRUE", "Words", "default", "decimal","Next",,"center"
inputCreator "Notes", "multiline", "FigureNotes", "TRUE", "TRUE", "sentences", "default", "default","default", "0,0,0,0","left"
end OpenCard
on closeCard
if environment() is not "mobile" then exit closeCard
put mobileControls() into tOpenControls
repeat for each line N in tOpenControls
mobileControlDelete N
end repeat
end closeCard
on inputCreator pName, pKind, pRect, pAutoClear, pAutoFit, pAutoCap, pAutoCorrect, pKeyboardType, pReturnKey, pBackgroundColor, ptextAlign
mobileControlCreate pKind, pName
mobileControlSet pName, "visible", true
mobileControlSet pName, "rect", the rect of grc pRect
mobileControlSet pName, "opaque", false
mobileControlSet pName, "autoFit", pAutoFit
mobileControlSet pName, "autoClear", pAutoClear
mobileControlSet pName, "autoCapitalizationType", pAutoCap
mobileControlSet pName, "autoCorrectionType", pAutoCorrect
mobileControlSet pName, "keyboardType", pKeyboardType
mobileControlSet pName, "returnKeyType", pReturnKey
mobileControlSet pName, "clearButtonMode", "while editing"
mobileControlSet pName, "borderStyle", "none"
mobileControlSet pName, "fontName", "Helvetica"
mobileControlSet pName, "textColor", "0,0,0"
mobileControlSet pName, "backgroundColor", pBackgroundColor
mobileControlSet pName, "textAlign", ptextAlign
if machine() contains "ipad" then
mobilecontrolSet pName, "fontSize", 26
else if machine() contains "iPhone" then
mobilecontrolSet pName, "fontSize", 12
else
mobilecontrolSet pName, "fontSize", 12
end if
end inputCreator