LiveCode Forums.

Code: Select all

local sScrollerID

## Create scroller now:
on opencard
   create_scroller
end opencard

on closecard
   delete_scroller
end closecard

command create_scroller   
   put "DataGrid 1" into tScrollerGroup
   
   if the environment <> "mobile" then
      exit create_scroller
   end if
   
   ## Create native scroller object and save its ID in a local variable
   MobileControlCreate "scroller"
   put the result into sScrollerId
   
   ## RECT is the area on the card where the SCOLLER should do its work
   MobileControlSet sScrollerId, "rect", (the rect of grp tScrollerGroup)
   
   put the width of grp tScrollerGroup into tWidth
   put the dgFormattedheight of grp tScrollerGroup into tHeight
   set the dgvScroll of grp tScrollerGroup to 0

   ## WHAT part fo the datagrid shall be scrolled-> the complete datagrid
   MobileControlSet sScrollerId, "contentRect", (0,0,tWidth,tHeight)
   
   ## Display SCROLLER
   MobileControlSet sScrollerId, "visible", "true"
   
   ## the typical BUMP effect when you ge to the edge of the object
   MobileControlSet sScrollerId, "canBounce", "true"
   MobileControlSet sScrollerId, "pagingEnabled", "false"
   
   MobileControlSet sScrollerId, "vIndicator", "false"
   MobileControlSet sScrollerId,  "borderStyle", "none"
   
     MobileControlSet sScrollerId, "canScrollToTop", "false"
end create_scroller

## Will be sent when the user actually SCROLLs with his finger
on scrollerDidScroll OffsetX, OffsetY
   lock screen
   set the dgvScroll of grp "DataGrid 1" to OffsetY
   unlock screen
end scrollerDidScroll

## REMOVE natove object when card closes!!!!!
command delete_scroller
   if the environment <> "mobile" then
          exit delete_scroller
   end if
     MobileControlDelete sScrollerId   
end delete_scroller

Code: Select all

on selectionChanged pHilitedIndex, pPrevHilitedIndex
    
    # hilited index and get the uID of that control.
    put the dgDataControlOfIndex[pHilitedIndex] of me into theSelectedControl
    if theSelectedControl is not empty then
        put the uID of theSelectedControl into theSelectedID
        uiViewRecord theSelectedID
   end if
lock screen for visual effect
   go to cd card4
unlock screen with visual effect scroll left very fast
end selectionChanged

Code: Select all

global tTitles
Global myArray
Global myID
global sConnID
local sCursorID, sRowCursorID
local sRecordFields
local sRecordCount

on preopenCard
     resetgrid
     uiPopulateListGroup
     ## Initialize the UI
     pass preopencard
end preopenCard


command uiPopulateListGroup
   CloseCursor
   OpenMoviesCursor
   
   ## Cache number of records so we can display useful info 
   ## to the user
   put revNumberOfRecords(sCursorID) into sRecordCount
   ## Track time it takes
   put the seconds into theStart
   lock screen
   ## Setting the dgNumberOfRecords of a data grid turns on dynamic 
   ## record fetching. Rather than storing the data that is being displayed
   ## in an internal array the data grid fires off the GetDataForLine message
   ## in which you return the data for the appropriate line.
   set the dgNumberOfRecords of group "DataGrid1" of card "card3" to sRecordCount
   unlock screen
end uiPopulateListGroup
## this message is sent to the Data Grid but we handle it here
## so that you can see all handlers in one spot
command GetDataForLine pLine, @pOutData
     ## Revolution 3.5 added revMoveToRecord to revDB. This makes it really
     ## easy to navigate to the proper record for pLine
     revMoveToRecord sCursorID, pLine - 1 -- 0 based record navigation
     put revDatabaseColumnNumbered(sCursorId, 1) into theRowID
     put revQueryDatabase(sConnID,"select id,title,content from datadrinks where rowid = " & theRowID )  into sRowCursorID
     if sRowCursorID is an integer then
          ## Now convert record in the row cursor to an array for the data grid
          put ConvertCurrentRowToArray() into pOutData
          revCloseCursor sRowCursorID
     end if
end GetDataForLine

function ConvertCurrentRowToArray
   local theArray
   
   if sRecordFields is empty then
      ## Cache the fields in the cursor in a script local variable.
      put revDatabaseColumnNames(sRowCursorID) into sRecordFields
   end if
   
   ## Converts current record in the cursor into a single dimensional array.
   ## Note we are using the cached script local sRecordFields
   repeat for each item theField in sRecordFields
      put revDatabaseColumnNamed(sRowCursorID, theField) into theArray[theField]
   end repeat
   
   return theArray
end ConvertCurrentRowToArray


command OpenMoviesCursor
     
     switch tTitles
          
          case "cocktails"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'cock%' ") into sCursorID
               //set the backgroundpattern of graphic id 1078 of group id "1012" of card id 1011 of stack "Data Grid Templates 1417794119370" to 1052
               break
          case "Liqueurs"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'liq%' ") into sCursorID
               break
          case "noalco"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'Non%' ") into sCursorID
               break
          case "Punches"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'Punc%' ") into sCursorID
               break
          case "otherdrinks"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'other%' ") into sCursorID
               break
          case "shots"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'shot%' ") into sCursorID
               break
          case "beer"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'beer%' ") into sCursorID
               break
          case "coffee"
               put revQueryDatabase(sConnID,"SELECT rowid FROM datadrinks where cat like 'coffee%' ") into sCursorID
               //set the backgroundpattern of graphic id 1078 of group id "1012" of card id 1011 of stack "Data Grid Templates 1417794119370" to 1053
               break
     end switch
     if sCursorID is not an integer then
          answer "Error opening cursor:" && sCursorID & "."
          exit to top
     end if
end OpenMoviesCursor

command CloseCursor
     try
          revCloseCursor sCursorID
     catch e
     end try
end CloseCursor

----------=========------------------

command uiViewRecord pID
      
     put "SELECT * from datadrinks WHERE ID = " & pID into theSQL
     put pID into fld "pidfld" of cd "card4" 
  
end uiViewRecord

--=============



on resetgrid
     send "ResetControl" to group "DataGrid1"
     put empty into sRecordFields
     --put revDataFromQuery(tab, cr, sConnID, theSQL) into theData

end resetgrid


on closeCard
     put empty into sRecordFields
     ## Close the database connection as we don't need it any longer
     //CloseDatabase

end closeCard

Code: Select all

on selectionChanged pHilitedIndex, pPrevHilitedIndex
    ## Note: Because the data grid is feeding data from the database to
    ## the datagrid we can't use handlers like dgDataOfIndex.
    ## Instead the FillInData handler in the data grid row behavior 
    ## stores the database id and makes it accessible in the uID custom property.
    ## To get the id to pass to uiViewRecord we get the control associated with the 
    ## hilited index and get the uID of that control.
    put the dgDataControlOfIndex[pHilitedIndex] of me into theSelectedControl
    if theSelectedControl is not empty then
        put the uID of theSelectedControl into theSelectedID
        uiViewRecord theSelectedID
   end if
     lock screen for visual effect
   go to cd card4
unlock screen with visual effect scroll left very fast
end selectionChanged

Code: Select all

local sID


on FillInData pDataArray
     ## Note: Because the data grid is feeding data from the database to
     ## the datagrid we can't use handlers like dgDataOfIndex.
     ## Store id in script local variable that gets returned in uID script local
     ## the uID can be used in a selectionChanged handler for example
     put pDataArray["id"] into sID
          
     set the text of field "label1" of me to pDataArray["title"]
     set the text of field "label2" of me to pDataArray["content"]
     TruncateTail the short id of fld "label2" of me, "..." 
     
end FillInData


#on layoutControl
#    -- todo: Resize your control based on content
#    put the rect of me into theOriginalRect

#    put the rect of fld "label1" of me into theRect
#    put item 3 of theOriginalRect into item 3 of theRect
#    set the rect of graphic "label1" of me to theRect
#end layoutControl


setprop dgHilite pBoolean
    
end dgHilite


getprop dgDataControl
    return the long id of me
end dgDataControl


getprop uID
    ## Returns the database id for the record displayed in this control. 
    ## See FillInData
    return sID
end uID