Changeset 71 for trunk/lingosource/castlib1/TableManager.ls

Timestamp:

09/29/11 12:55:54 (8 months ago)

Author:

alex

Message:

updated scripts

File:

• trunk/lingosource/castlib1/TableManager.ls (modified) (2 diffs)

trunk/lingosource/castlib1/TableManager.ls

@@ -1 +1 @@
 -- Manager for DrawTable Parentscript used on Bitmap sprites and 3-D Sprites
--- Alex da Franca c2002  da.franca@online.de
+-- Alex da Franca c2002  alex@farbflash.de
 -- Use this behavior on any dummy sprite to display a scrolling table with selectable items, text (fixed and editable) and images.
 -- It creates a temporary bitmap member, which is used to display the table on the stage.
@@ -1813 +1813 @@
   if voidP(retval) then retval = [:]
   return retval
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mAXTable_RefreshItem me, cellObject, refreshBackGround, tabname
+    -----------------------------------
+  -- ACTION: Render a single cell
+  --         render only one single cell, after changing its properties (e.g. #selected) NOT the #content property !!!
+  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent() 
+  --            to take a change of lineheight into consideration
+  --         of course, if you change the content of a cell and don't want the dimension of the cell to change
+  --            you can go with this function, much faster..
+  -- INPUT: <cellObject> ; object ; can be:
+  --                                    a cell object itself
+  --                                    or a linear list of two integers => [row, column]
+  --                                    or a string => name of the cell
+  --        <refreshBackGround> ; boolean (integer) ; whether to referesh the background as well
+  --                                                  (only relevant for cells with a transparent background e.g. an image for the whole table)
+  --        <tabname> ; string ; name of the table, which shall be addressed,
+  --                              if empty, the first table in the list of tables is used
+  -- RETURNS: -
+  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, cellRef, 0, "myTable")
+  --                         -- refresh cell 3 in row 2
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, [2, 3], 0, "myTable")
+  --                         -- the same as above
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mAXTable_RefreshItem, "cellName", 0, "myTable")
+  --                         -- the same as above
+  -----------------------------------
+  
+  if count(pTableList) < 1 then exit
+  
+  if not voidP(tabname) then
+    table = pTableList.getaprop(tabname)
+  else
+    table = pTableList[1]
+  end if
+  if ilk(table) <> #proplist then exit
+  scr = table.getaprop(#myScriptObject)
+  
+  if objectP(scr) then
+    if ilk(cellObject) = #string then
+      cellObject = mGetCellByName(me, cellObject, tabname)
+    else
+      if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname)
+    end if
+  
+    if objectP(cellObject) then call(#mRefreshItem, scr, cellObject, refreshBackGround)
+  end if
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mSetCellProperty me, cellObject, symbol_propname, any_propvalue, tabname
+  -----------------------------------
+  -- ACTION: Change a property (e.g. #myFontColor) NOT the #content of a single cell and render that single cell
+  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent() 
+  --            to take a change of lineheight into consideration
+  --         of course, if you change the content of a cell and don't want the dimension of the cell to change
+  --            you can go with this function, much faster..
+  --         If you use mSetCellContent, you can change any other cell property before that call,
+  --            as it will re-render the whole cell anyway
+  -- INPUT: <cellObject> ; object ; can be:
+  --                                    a cell object itself
+  --                                    or a linear list of two integers => [row, column]
+  --                                    or a string => name of the cell
+  --        <symbol_propname> ; symbol ; one of several cell properties EXCEPT #content
+  --        <any_propvalue> ; new value for the above property
+  --        <tabname> ; string ; name of the table, which shall be addressed,
+  --                              if empty, the first table in the list of tables is used
+  -- RETURNS: -
+  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, cellRef, #myBGColor, rgb(200, 200, 220), "myTable")
+  --                         -- refresh cell 3 in row 2
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, [2, 3], #myBGColor, rgb(200, 200, 220), "myTable")
+  --                         -- the same as above
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperty, "cellName", #myBGColor, rgb(200, 200, 220), "myTable")
+  --                         -- the same as above
+  -----------------------------------
+
+
+  if ilk(cellObject) = #string then
+    cellObject = mGetCellByName(me, cellObject, tabname)
+  else
+    if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname)
+  end if
+
+  if objectP(cellObject) then
+    cellObject[symbol_propname] = any_propvalue
+    mAXTable_RefreshItem(me, cellObject, 1, tabname)
+  end if
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mSetCellProperties me, cellObject, proplist_newProps, tabname
+  -----------------------------------
+  -- ACTION: Bulk change several properties (e.g. #myFontColor, NOT the #content or font properties, size and font and antialias)
+  --            of a single cell and render that single cell
+  --         ALWAYS change the content of a cell ONLY with the handler: mSetCellContent() 
+  --            to take a change of lineheight into consideration
+  --         of course, if you change the content of a cell and don't want the dimension of the cell to change
+  --            you can go with this function, much faster..
+  --         If you use mSetCellContent, you can change any other cell property before that call,
+  --            as it will re-render the whole cell anyway
+  -- INPUT: <cellObject> ; object ; can be:
+  --                                    a cell object itself
+  --                                    or a linear list of two integers => [row, column]
+  --                                    or a string => name of the cell
+  --        <proplist_newProps> ; proplist ; property list with new values for the specified properties
+  --        <tabname> ; string ; name of the table, which shall be addressed,
+  --                              if empty, the first table in the list of tables is used
+  -- RETURNS: -
+  -- EXAMPLES: sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, cellRef, [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable")
+  --                         -- refresh cell 3 in row 2
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, [2, 3], [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable")
+  --                         -- the same as above
+  --           sendSprite(xscr().mGetKanal(#tableSprite), #mSetCellProperties, "cellName", [#myBGColor: rgb(200, 200, 220), #myFontColor: rgb(20, 30, 40)], "myTable")
+  --                         -- the same as above
+  -----------------------------------
+  
+  if not(objectP(proplist_newProps)) then exit
+  
+  if ilk(cellObject) = #string then
+    cellObject = mGetCellByName(me, cellObject, tabname)
+  else
+    if ilk(cellObject) = #list then cellObject = mGetCellByIndex(me, cellObject, tabname)
+  end if
+
+  if objectP(cellObject) then
+    repeat with n = count(proplist_newProps) down to 1
+      cellObject[proplist_newProps.getPropAt(n)] = proplist_newProps[n]
+    end repeat
+    
+    mAXTable_RefreshItem(me, cellObject, 1, tabname)
+  end if
 end