Reply myself...
local sScrollerId
local sBottomScrollRect
on preopencard
set the unboundedHScroll of group "gr_1" to true
set the unboundedVScroll of group "gr_1" to true
if the environment is not "mobile" then
exit preOpenCard
end if
iphoneControlCreate "scroller"
put the result into sScrollerId
put the rect of group "gr_1" into tRect
put item 4 of tRect into sBottomScrollRect
iphoneControlSet sScrollerId, "rect", tRect
put the formattedHeight of group "gr_1" into tHeight
put the width of group "gr_1" into tWidth
iphoneControlSet sScrollerId, "contentRect", (0, 0, tWidth, tHeight)
iphoneControlSet sScrollerId, "visible", "true"
iphoneControlSet sScrollerId, "canBounce", true
iphoneControlSet sScrollerId, "declerationRate", fast
iphoneControlSet sScrollerId, "scrollingEnabled", true
iphoneControlSet sScrollerId, "canScrollToTop", true
iphoneControlSet sScrollerId, "delayTouches", true
iphoneControlSet sScrollerId, "hscroll", 0
iphoneControlSet sScrollerId, "vscroll", 0
set the hScroll of group "gr_1" to 0
set the vScroll of group "gr_1" to 0
end preopencard
on scrollerDidScroll pOffsetX, pOffsetY
lock screen
set the hScroll of group "gr_1" to pOffsetX
set the vScroll of group "gr_1" to pOffsetY
unlock screen
end scrollerDidScroll