LiveCode Forums.

Code: Select all

local stheDataGridName
on preOpenCard
  
  put "the datagrid name" into stheDataGridName -- you need to declare this as a script variable
  createTheScroller
  
end preOpenCard

Code: Select all

on scrollerDidScroll hOffset, vOffset
  local tScoller
  
  put mobileControlTarget() into tScoller
  
  if tScoller is "theDataGrid_1" then
    set the dgvScroll of grp stheDataGridName to vOffset
    set the dghScroll of grp stheDataGridName to hOffset
  end if
end scrollerDidScroll

command createTheScroller
  local sTopScrollerID,theWidth,theHeight,tDgRect,tDgHeaderHeight
  
  if environment() is not "mobile" then exit createTheScroller
  
  if "theDataGrid_1" is not among the lines of mobileControls() then
    MobileControlCreate "scroller", "theDataGrid_1"
    put the result into sTopScrollerID
  end if
  
  put the rect of grp stheDataGridName into tDgRect
  put DgHeight() into tDgHeaderHeight
  add tDgHeaderHeight to item 2 of tDgRect
  
  put the dgFormattedWidth of grp stheDataGridName into theWidth
  put the dgFormattedHeight of grp stheDataGridName into theHeight
  
  mobileControlSet sTopScrollerID, "hscroll", 0
  mobileControlSet sTopScrollerID, "vscroll", 0
  mobileControlSet sTopScrollerID, "rect", tDgRect
  mobileControlSet sTopScrollerID, "contentRect", (0,0,theWidth,theHeight)
  mobileControlSet sTopScrollerID, "visible", "true"
  mobileControlSet sTopScrollerID, "canBounce", "false"
  mobileControlSet sTopScrollerID, "pagingEnabled", "false"
  mobileControlSet sTopScrollerID, "canScrollToTop", "true"
  mobileControlSet sTopScrollerID, "delayTouches", "true"
  mobileControlSet sTopScrollerID, "canCancelTouches", "false"
  mobileControlSet sTopScrollerID, "declerationRate", "normal"
  mobileControlSet sTopScrollerID, "lockDirection", "true"
  mobileControlSet sTopScrollerID, "scrollingEnabled", "true"
  
  mobileControlSet sTopScrollerID, "hIndicator", "false"
  mobileControlSet sTopScrollerID, "vIndicator", "false"
end createTheScroller