LiveCode Forums.

Code: Select all

on scrollerDidScroll pOffsetX, pOffsetY
   -- Set the scroll values of the group based on feedback from the scroller
   -- notice that we can just use the values directly and because out-of-bounds
   -- scrolling is enabled for the group, the bounce effect needs no extra
   -- code.
   lock screen
   set the hScroll of group "Map" to pOffsetX
   set the vScroll of group "Map" to pOffsetY
   wait 0 ticks with messages -- The "timing regulator"
   unlock screen
end scrollerDidScroll

Code: Select all

local sScrollerId

on OpenCard

   
   
   -- Turn on 'out-of-bounds' scrolling for our image group
   set the unboundedHScroll of group "Image Scroller" to false
   set the unboundedVScroll of group "Image Scroller" to true
   
   -- Create the scroller and store its id
   iphoneControlCreate "scroller"
   put the result into sScrollerId
   
   -- The 'rect' is the region of the card it should cover
   iphoneControlSet sScrollerId, "rect", the rect of group "Image Scroller"
   -- The 'contentRect' is the region the scroller scrolls over
   iphoneControlSet sScrollerId, "contentRect", (0, 0, 540, 11900)
   -- The 'visible' determines if the scroller is displayed
   iphoneControlSet sScrollerId, "visible", "true"
   -- The 'canBounce' determines whether the standard iOS 'bouncing' occurs
   -- at extremities of scrolling
   iphoneControlSet sScrollerId, "canBounce", "false"
   -- The 'pagingEnabled' determines whether scrolling only happens in multiples
   -- of the width/height
   iphoneControlSet sScrollerId, "pagingEnabled", "false"
   -- The 'canScrollToTop' determines whether touching the status bar scrolls
   -- the scroller to the top
   iphoneControlSet sScrollerId, "canScrollToTop", "false"
   
   iphoneControlSet sScrollerId, "delayTouches", false
   
   -- Make sure we are the right size for display
   resizeStack
end OpenCard


on closeCard     
   if the environment is not "mobile" then
      exit closeCard
   end if
   iphoneControlDelete sScrollerId
end closeCard

on resizeStack
   if the environment is not "mobile" then
      exit resizeStack
   end if
   
   -- Reset the scroll to 0
   set the hScroll of group "Image Scroller" to 0
   set the vScroll of group "Image Scroller" to 0
   
   -- Layout the card
   set the rect of group "Image Scroller" to the left of this card + 30, the top of this card + 60, the right of this card - 30, the bottom of this card - 130
   --set the topLeft of image "Image 1" to the topLeft of group "Image Scroller"
   --set the topLeft of image "Image 2" to the topRight of image "Image 1"
   --set the topLeft of image "Image 3" to the bottomLeft of image "Image 1"
   --set the topLeft of image "Image 4" to the bottomRight of image "Image 1"
   --set the loc of group "Controls" to item 1 of the loc of this card, the bottom of this card - 18
   
   -- Update the scroller properties
   iphoneControlSet sScrollerId, "rect", the rect of group "Image Scroller"
   iphoneControlSet sScrollerId, "hscroll", 0
   iphoneControlSet sScrollerId, "vscroll", 0
end resizeStack

on scrollerDidScroll pOffsetX, pOffsetY
   -- Set the scroll values of the group based on feedback from the scroller
   -- notice that we can just use the values directly and because out-of-bounds
   -- scrolling is enabled for the group, the bounce effect needs no extra
   -- code.
   lock screen
   set the hScroll of group "Image Scroller" to pOffsetX
   set the vScroll of group "Image Scroller" to pOffsetY
   wait 0 ticks with messages 
   unlock screen
   
   put pOffsetX, pOffsetY into field "Offsets"
end scrollerDidScroll

on doAction pAction
   iphoneControlDo sScrollerId, pAction
end doAction

on doSetProp pProp, pValue
   iphoneControlSet sScrollerId, pProp, pValue
end doSetProp

on errorDialog
   write the params to stderr
end errorDialog

Code: Select all

local sScrollerId

on preOpenCard
    
    if the environment is not "mobile" then
        exit preOpenCard
    end if
    
    set the unboundedHScroll of group "Text Scroller" to false
    set the unboundedVScroll of group "Text Scroller" to true
    
    iphoneControlCreate "scroller"
    put the result into sScrollerId
    
    -- general properties
    iphoneControlSet sScrollerId, "visible", "true"
    iphoneControlSet sScrollerId, "canBounce", "true"
    iphoneControlSet sScrollerId, "pagingEnabled", "false"
    iphoneControlSet sScrollerId, "canScrollToTop", "true"
    iphoneControlSet sScrollerId, "indicatorStyle", "black"
    
    
    -- contentRect refers to the rect of the field that appears within the scroll control  
    -- the last 2 values in the rect are the width and height of the field that is being scrolled
    -- the last value can be set programatically or be hard coded (as I have here) to account for more or less 
    --  text in the field.  
    
    iphoneControlSet sScrollerId, "contentRect",  (0, 0, 640, 3400)  

    -- set rect of the scroller area
    -- vary these values to make the scroller control appear just where you want it to
    -- in this case it appears 88 px from the top of the screen, and is positioned up against the other 3 edges of the screen.  
    -- To move the bottom of the scrolling area upwards change the last value
    -- of the following line of code e.g. change "the bottom of this card " to "the bottom of this card -88" or whatever

    iphoneControlSet sScrollerId, "rect", (the left of this card, the top of this card + 88, the right of this card, the bottom of this card ) 
    
end preOpenCard

on closeCard
   if the environment is not "mobile" then
      exit closeCard
   end if
   iphoneControlDelete sScrollerId
end closeCard

on scrollerDidScroll OffsetX, OffsetY
    set the hScroll of group "Text Scroller" to OffsetX
    set the vScroll of group "Text Scroller" to OffsetY
end scrollerDidScroll

-- following stuff added for completeness - does nothing in this example
on doAction whatAction
   iphoneControlDo sScrollerId, whatAction
end doAction

on doSetProp Prop, theValue
   iphoneControlSet sScrollerId, Prop, theValue
end doSetProp