display TreeView

 

Compatibilities:

This item has not yet been rated

A text bahavior to display TreeView data. Support multiple selection and Drag and drop

-- TreeView behavior 1.1 with Drag And Drop -- Created by Alexandre GHEZ (aghez@iname.com) -- Visit my home page for full documentation and samples : http://come.to/aghez -- Variables for the Tree property ma_Tree, mi_TreeIndex, ma_GhostTree, mi_LastSelectedLine, mi_LastDisplayedLine, mb_CurrentlyDragging property mi_RolledLine, ms_TreeMember, mi_TreeSprite, mi_TreeDisplayedLength property mi_TreeLength, mb_DropAllowed, mb_DropOnMe, mb_RollOutDone -- Properties of the behavior property ps_DragMember, pi_DragSprite, pa_DropTarget, ps_DropBehavior, ps_DataMember, pb_IsToggable, property ps_RolloverMember, pi_LineHeight, ps_ScriptWhenClicked, pb_AllowDrag, pb_AllowDrop, ps_FontRender property pb_Frame, pa_FrameSprite, ps_FrameMember, pb_Rollover, pi_RolloverSprite, pb_DisplayIcon, ps_FontRenderSelected property pb_SelectMultiple, pb_DisplayChecked, pi_CursorOver, pi_CursorDown, pi_CursorStop, pi_CursorAction, pi_CursorDefault on getPropertyDescriptionList me      la_BehaviorProperty = [:]   -- Create the Tree information   setaProp la_BehaviorProperty, #ps_DataMember, [#comment: "Text data source",#default:false,format: #field]   setaProp la_BehaviorProperty, #ps_ScriptWhenClicked, [#comment: "Lingo code when clicked ", format: #string,#default:""]      -- Tree behavior--   setaProp la_BehaviorProperty, #pb_IsToggable, [#comment: "Tree can be deployed / Contracted ", format: #boolean,#default:false]   setaProp la_BehaviorProperty, #pi_CursorAction, [#comment: "Cursor for toggle", format: #cursor,#default:280]   setaProp la_BehaviorProperty, #pb_SelectMultiple, [#comment: "Multiple selection enabled", format: #boolean,#default:true]      -- Tree rendering   setaProp la_BehaviorProperty, #pb_DisplayIcon, [#comment: "Display icons for file/folder", format: #boolean,#default:true]   setaProp la_BehaviorProperty, #pb_DisplayChecked, [#comment: "Check viewed items", format: #boolean,#default:true]   setaProp la_BehaviorProperty, #ps_FontRender, [#comment: "Font used for display", format: #font,#default:0]   setaProp la_BehaviorProperty, #ps_FontRenderSelected, [#comment: "Font used for selected", format: #font,#default:0]   setaProp la_BehaviorProperty, #pi_LineHeight, [#comment: "Line Height", format: #number,#default:16]   setaProp la_BehaviorProperty, #pi_CursorDefault, [#comment: "Default cursor", format: #cursor,#default:280]      --- Parameters for the Drag   setaProp la_BehaviorProperty, #pb_AllowDrag, [#comment: "Drag from the tree", format: #boolean,#default:false]   setaProp la_BehaviorProperty, #pi_CursorOver, [#comment: "Cursor when mouse is over", format: #cursor,#default:289]   setaProp la_BehaviorProperty, #pi_CursorDown, [#comment: "Cursor when mouse is down", format: #cursor,#default:290]   setaProp la_BehaviorProperty, #pi_CursorStop, [#comment: "Cursor when roll do not accept drop", format: #cursor,#default:291]   setaProp la_BehaviorProperty, #ps_DragMember, [#comment: "Member filled by the selection", format: #text,#default:""]   setaProp la_BehaviorProperty, #pi_DragSprite, [#comment: "Sprite used by the drag selection", format: #sprite,#default:120]   setaProp la_BehaviorProperty, #pa_DropTarget, [#comment: "List of sprites that accept the drop from this la_TreeItem", format: #String,#default:"[]"]   setaProp la_BehaviorProperty, #ps_DropBehavior, [#comment: "Behavior for the drop", format: #Symbol,#default:#move, range:[#move,#copy,#Check]]      --Parameters for the drop   setaProp la_BehaviorProperty, #pb_AllowDrop, [#comment: "Allow Dropped items", format: #boolean,#default:false]      ---Hilight parameters   setaProp la_BehaviorProperty, #pb_Frame, [#comment: "Has rect when selected", format: #boolean,#default:false]   setaProp la_BehaviorProperty, #pa_FrameSprite, [#comment: "Sprite rect ", format: #sprite,#default:20]   setaProp la_BehaviorProperty, #ps_FrameMember, [#comment: "Rect member ", format: #member,#default:false]      -- Rollover parameters   setaProp la_BehaviorProperty, #pb_Rollover, [#comment: "Has Rollover", format: #boolean,#default:false]   setaProp la_BehaviorProperty, #pi_RolloverSprite, [#comment: "Sprite for the rollover ", format: #sprite,#default:20]   setaProp la_BehaviorProperty, #ps_RolloverMember, [#comment: "Bitmap for roll", format: #member,#default:false]      return la_BehaviorProperty end getPropertyDescriptionList --- External API On CreateFolder me, ls_Label   -- Add a folder after the last selected line      la_InsertInfo = GetInsertInfo(getLastSelectedItem())      -- Reset Selection --   Repeat with li_TreeIndex = 1 to mi_TreeLength     ma_Tree[li_TreeIndex].selected = 0   End repeat      la_Item = [#parent:true,#level:la_InsertInfo.level,#status:0,#label:ls_Label,#display:1,#selected:1,#viewed:0,#data:["",""]]         AddAt ma_Tree, la_InsertInfo.position , la_Item      mi_TreeLength = mi_TreeLength + 1      DisplayTree()      if ps_ScriptWhenClicked <> "" then     do ps_ScriptWhenClicked && la_Item   end if End CreateFolder On RenameItem me, ls_Label      li_Position = getLastSelectedItem("DontSkip")      If li_Position Then     ma_Tree[li_Position].label = ls_Label     DisplayTree()   End If End CreateFolder On AddTreeItem me, ls_Label, la_Data   -- Add a folder after the last selected line   la_InsertInfo = GetInsertInfo(getLastSelectedItem())      -- Reset Selection --   Repeat with li_TreeIndex = 1 to mi_TreeLength     ma_Tree[li_TreeIndex].selected = 0   End repeat      la_Item  = [#parent:false,#level:la_InsertInfo.level,#status:0,#label:ls_Label,#display:1,#selected:1,#viewed:0,#data:la_Data]         AddAt ma_Tree, la_InsertInfo.position, la_Item      mi_TreeLength = mi_TreeLength + 1      if ps_ScriptWhenClicked <> "" then     do ps_ScriptWhenClicked && la_Item   end if      DisplayTree() End CreateFolder On GetItemLabel me   li_Position = getLastSelectedItem("DontSkip")      If li_Position And li_Position <= mi_TreeLength Then     Return ma_Tree[li_Position].label   else     return ""   End If End GetItemLabel On RollElement me, ls_Type   -- Called when the mouse is over the Tree and the Tree accept Drop      if not pb_AllowDrop Then     Return   End If      If ls_Type = #Out Then     If Not mb_RollOutDone  Then       mi_RolledLine = 0       mb_RollOutDone = True       If mi_TreeIndex > 0 Then         ma_tree[mi_TreeIndex].selected = 0       Else  If mi_LastDisplayedLine > 0 Then         ma_tree[mi_LastDisplayedLine].selected = 0       End If       DisplayTree()     End If     return   End If      mb_RollOutDone = False   la_MousePosition = The mouseLoc   li_RollLine = PointToLine(sprite mi_TreeSprite, la_MousePosition)   li_RollChar = PointToChar(sprite mi_TreeSprite, la_MousePosition)   lb_AfterTree  = False      If li_RollLine <> mi_RolledLine Or li_RollLine = 1 Then          mi_RolledLine = li_RollLine          If li_RollChar <= mi_TreeDisplayedLength Then       mi_TreeIndex = GetTreeItemPosition(li_RollLine)     Else       mi_TreeIndex = mi_LastDisplayedLine       lb_AfterTree = True     End If          -- Reset the selection     repeat with la_TreeItem in ma_Tree       la_TreeItem.selected = 0     End repeat          -- If the item is a closed folder, we select it, otherwise, we underline the element          If mb_DropAllowed then       if mi_TreeIndex and (mi_TreeIndex <= mi_TreeLength) Then         If ma_Tree[mi_TreeIndex].parent and Not ma_Tree[mi_TreeIndex].Status And Not lb_AfterTree Then           ma_Tree[mi_TreeIndex].selected = 1         else           ma_Tree[mi_TreeIndex].selected = 2           --- If we are on the last line and she is underlined           If  mi_TreeIndex = mi_LastDisplayedLine Then             set lb_AfterTree = True           End if         End If       End if     End If          DisplayTree()   End If      If mb_DropAllowed Then     set the cursor of sprite pi_DragSprite to pi_CursorDown   else     set the cursor of sprite pi_DragSprite to pi_CursorStop   end if      -- If we are After the Tree, Reset the position   If lb_AfterTree Then     mi_TreeIndex = 0   End If    End RollElement On DropElement me, la_DroppedData   -- Called when Drop occurs on the Tree   if not pb_AllowDrop Then     Return   End If      li_LevelShift = 0      If mi_TreeIndex = 0 Then     --- Drop after the Tree --     mi_TreeIndex = mi_LastDisplayedLine     lb_DeselectDrop = False          If mi_TreeLength <> 0 Then              -- If last item is a closed folder, we put it at the same level after his childs       -- If last item is open folder, we put it just under the folder       -- Il last item is a file, we append it after the file with the same level              li_Level = ma_Tree[mi_TreeIndex].level       lb_Selected = ma_Tree[mi_TreeIndex].Selected              ma_Tree[mi_TreeIndex].Selected = 0              If ma_Tree[mi_TreeIndex].parent And Not ma_Tree[mi_TreeIndex].status And lb_Selected = 2 Then         li_LevelShift = 0         ma_Tree[mi_TreeIndex].Selected = 1         lb_DeselectDrop = True         lb_MustDecrement = 1         mi_TreeIndex = mi_TreeIndex + 1         Repeat While (mi_TreeIndex <= mi_TreeLength)           If (ma_Tree[mi_TreeIndex].level > li_Level) Then             mi_TreeIndex = mi_TreeIndex + 1             lb_MustDecrement = 1 --- Or 0 if it is a empty folder ???           Else             exit Repeat           End If         End Repeat         mi_TreeIndex = mi_TreeIndex - lb_MustDecrement         mi_TreeIndex = Min(mi_TreeIndex, mi_TreeLength)                         Else If ma_Tree[mi_TreeIndex].parent And ma_Tree[mi_TreeIndex].status Then         -- One more shift         li_LevelShift = li_LevelShift + 1       Else         -- No Shift         li_LevelShift = 0       End If     End If   Else     -- Drop inside the Tree --     If mi_TreeLength <> 0 Then              li_Level = ma_Tree[mi_TreeIndex].level              -- Reset the selection       ma_Tree[mi_TreeIndex].selected = 0       lb_DeselectDrop = False              --- closed folder, Tree is appended       if ma_Tree[mi_TreeIndex].parent and Not ma_Tree[mi_TreeIndex].status Then         --- Drop inside a closed folder         --- the closed folder will be the selection, the dropped data are deselected         lb_DeselectDrop = True         ma_Tree[mi_TreeIndex].selected = 1         lb_MustDecrement = 1         mi_TreeIndex = mi_TreeIndex + 1         Repeat While (mi_TreeIndex <= mi_TreeLength)           If (ma_Tree[mi_TreeIndex].level > li_Level) Then             mi_TreeIndex = mi_TreeIndex + 1             lb_MustDecrement = 1           Else             exit Repeat           End If         End Repeat                  mi_TreeIndex = mi_TreeIndex - lb_MustDecrement         mi_TreeIndex = Min(mi_TreeIndex, mi_TreeLength)         -- Save the Shift level of the last item of the childrens         li_LevelShift = li_Level       Else         li_LevelShift = ma_Tree[mi_TreeIndex].level - Not ma_Tree[mi_TreeIndex].parent       End If            Else       mi_TreeIndex = 0       li_LevelShift = 0     End If   End If      -- It's now time to add data to the Tree      li_Insert_Index = mi_TreeIndex + 1   la_DroppedData = Duplicate(la_DroppedData)      Repeat with  la_TreeItem in la_DroppedData          la_TreeItem.level = la_TreeItem.Level + li_LevelShift     If lb_DeselectDrop Then       la_TreeItem.selected = 0     End If          AddAt ma_Tree, li_Insert_Index, la_TreeItem          li_Insert_Index = li_Insert_Index + 1   End Repeat      mi_RolledLine = 0   mi_TreeLength = Count(Ma_Tree)      DisplayTree()      return 1 End DropElement on DrawItemFrame me,li_Line   -- Frame the displayed line   if li_Line > 0 then     set ma_FrameRect=GetLineRect(li_Line)   else     set ma_FrameRect=rect(-100,-100,-98,-98)   end if   if ma_FrameRect <> [] then     set the rect of sprite pa_FrameSprite to ma_FrameRect     updatestage   end if end DrawItemFrame On CheckItem me,li_Line   -- Check the displayed line   li_TreeIndex = GetTreeItemPosition(li_Line)   ma_Tree[li_TreeIndex].viewed = 1   DisplayTree() End CheckItem On CloseTree lb_DontDisplay   -- Close all folders   Repeat With li_TreeIndex = 1 To mi_TreeLength     ma_Tree[li_TreeIndex].status = 0   End Repeat   If voidP(lb_DontDisplay) Then     DisplayTree()   End If End CloseTree On OpenTree lb_DontDisplay   -- Expand all folders   Repeat With li_TreeIndex = 1 To mi_TreeLength     ma_Tree[li_TreeIndex].status = 1   End Repeat   If voidP(lb_DontDisplay) Then     DisplayTree()   End If End OpenTree On ToggleItem me,li_Line   -- Toggle Tree Folder   li_TreeIndex = GetTreeItemPosition(li_Line)   ma_Tree[li_TreeIndex].status = Not (ma_Tree[li_TreeIndex].status)      DisplayTree() end ToggleItem On ResetTree   ---Close all folders, and change the selection to 0   Repeat with la_TreeItem in Ma_Tree     la_TreeItem.selected = 0     la_TreeItem.status  = 0   End repeat End ResetTree On SelectItem me,li_Line, lb_ForceEmpty   -- Select the item      If Not pb_SelectMultiple Then     lb_ForceEmpty = "True"   end if      lb_shiftKey = the shiftDown and  VoidP(lb_ForceEmpty)   lb_ControlKey = the controlDown And  VoidP(lb_ForceEmpty)      li_TreeIndex = GetTreeItemPosition(li_Line)      If Not li_TreeIndex Then     -- We click outside the Tree     Return   End If      --No modifiers keys, reset the selection   If Not lb_ShiftKey And Not lb_ControlKey Then          Repeat With la_TreeItem In ma_Tree       la_TreeItem.selected = 0     End Repeat          ma_Tree[li_TreeIndex].selected = 1   End If      if lb_ControlKey then     -- Discontinue selection, toggle the selection     ma_Tree[li_TreeIndex].selected = Not ma_Tree[li_TreeIndex].selected   end if      if lb_ShiftKey Then     -- Continue Selection     if voidP(mi_LastSelectedLine) Then       mi_LastSelectedLine = li_Line     End If          li_StartLine = min(mi_LastSelectedLine,li_Line)     li_EndLine  =max(mi_LastSelectedLine,li_Line)          repeat with li_Line_Index = li_StartLine To li_EndLine       ma_Tree[GetTreeItemPosition(li_Line_Index)].selected = 1     end repeat   end if      mi_LastSelectedLine = li_Line         DisplayTree()    End SelectItem -- Events Handler On BeginSprite me   mi_TreeSprite=the spritenum of me   ms_TreeMember=the member of sprite mi_TreeSprite   pa_DropTarget = value(pa_DropTarget)   mb_CurrentlyDragging = False   mb_DropAllowed = True   mb_DropOnMe = False   mb_RollOutDone = True         if pb_Rollover then     PuppetSprite pi_RolloverSprite,true     set the ink of sprite pi_RolloverSprite to 9 ----MASK     set the member of sprite pi_RolloverSprite to member ps_RolloverMember     set the loc of sprite pi_RolloverSprite to point(-1000,-1000)   end if      if pb_Frame then     PuppetSprite pa_FrameSprite,true     set the ink of sprite pa_FrameSprite to 9 ----MASK     set the member of sprite pa_FrameSprite to member ps_FrameMember     set the loc of sprite pa_FrameSprite to point(-1000,-1000)   end if      InitTree()    end BeginSprite On EndSprite me   if pb_Rollover then     PuppetSprite pi_RolloverSprite,false   end if      if pb_Frame then     PuppetSprite pa_FrameSprite,false   end if end EndSprite on Mouseleave   if pb_Rollover then     set the loc of sprite pi_RolloverSprite to point(-1000,-1000)   end if end MouseLeave on mousewithin   set li_Cursor = pi_CursorDefault   li_RolledChar = PointToChar(sprite mi_TreeSprite,the mouseLoc)   If li_RolledChar > 0 Then     ls_Font = member(ms_TreeMember).char[li_RolledChar].font     Case ls_Font of       "Webdings *" : li_Cursor = pi_CursorAction       "Wingdings *" : li_Cursor = pi_CursorOver     end case   End If         set the cursor of sprite mi_TreeSprite to  li_Cursor      if pb_Rollover then       la_RollRect=getLineRect()     if la_RollRect<>[] then       set the rect of sprite pi_RolloverSprite to la_RollRect       updatestage     end if   end if   end mousewithin On mouseDown me      la_clickLoc = the MouseLoc      --- We use the mousedown handler to manage the Drag and Drop   if pb_AllowDrag Then     --If modifiers keys, exit     if the shiftDown or the ControlDown then       return     end if          li_StartTimer = the timer     repeat while the mouseDown And ((the timer - li_StartTimer) < 30)       nothing     end repeat          If the mousedown then              -- Retrieve the clicked line (so it will be selected in the ghost tree)       li_Line= GetTreeItemPosition(PointToLine(sprite mi_TreeSprite,la_clickLoc))       li_Char = PointToChar(sprite mi_TreeSprite, la_clickLoc)              -- Clic outside the Tree, exit       if li_Char > mi_TreeDisplayedLength Then         return       End If              -- If click occurs on the toggle elements , exit       If member(ms_TreeMember).Char[li_Char].font = "Webdings *" then         return       end if              -- If line is not selected, reset the selection and use this line as the selection       If ma_Tree[li_Line].selected = 0 Then                  repeat with li_Tree_Index = 1  to Count(ma_Tree)           ma_Tree[li_Tree_Index].selected = 0         End repeat                  ma_Tree[li_Line].selected = 1                  DisplayTree()       End If              -- Start the Drag       set mb_CurrentlyDragging = True              la_Selected_Info = CreateGhostTree(li_Line)       DisplayTree(ma_GhostTree)              -- We move the ghost Tree under the mouse       puppetSprite pi_DragSprite, True       set the cursor of sprite mi_TreeSprite to pi_CursorDown       set the ink of sprite pi_DragSprite to 8       set the member of sprite pi_DragSprite to member ps_DragMember       set the loc of sprite pi_DragSprite to Point(1000,1000)       UpdateStage              -- The selected Icon  and line is under the mouse       li_Shift_x = la_Selected_Info[#Selectedlevel]  * 12 + 12       li_Shift_y = la_Selected_Info[#Selectedline] * pi_LineHeight - 8       la_SelectedItems = la_Selected_Info[#selectedItems]              mi_RolledLine = -1       mb_DropAllowed = True              Repeat While the mousedown                  lb_SendRoll = False         -- Stop Icon if the mouse is not over a droppable element                  Repeat with li_Sprite in pa_DropTarget           If Rollover(li_Sprite) Then             lb_SendRoll = True             exit Repeat           End if         End Repeat                  If Not lb_SendRoll Then           set the Cursor of sprite pi_DragSprite to pi_CursorStop           li_Sprite = -1         Else If li_Sprite <> mi_TreeSprite Then           set the Cursor of sprite pi_DragSprite to pi_CursorDown         End If                  la_MousePosition = the mouseLoc                  -- Determine if we are on his childrens --         mb_DropOnMe = ((li_Sprite = mi_TreeSprite) and ps_DropBehavior = #move)         If mb_DropOnme then                      li_RolledLine = PointToLine(sprite mi_TreeSprite, la_MousePosition)           li_RolledItem = GetTreeItemPosition(li_RolledLine)                      If GetPos(la_SelectedItems, li_RolledItem) > 0 Then             -- Roll over is childrens             mb_DropAllowed = False           else             mb_DropAllowed = True           end if         End If                  Repeat with li_SpriteRoll in pa_DropTarget           If li_SpriteRoll <> li_Sprite Then             SendSprite li_SpriteRoll, #RollElement,#out           End if         end repeat                  If lb_SendRoll Then           -- Mouse over a droppable element, send him code           SendSprite li_Sprite, #RollElement,#in         Else           SendSprite li_Sprite, #RollElement,#Out         End If                  set li_x = la_MousePosition[1] - li_Shift_X         set li_y = la_MousePosition[2] - li_Shift_Y                  set the rect of sprite pi_DragSprite to Rect( li_x,  li_y , li_x + 400, li_y + 150)         UpdateStage       end repeat              PuppetSprite pi_DragSprite, False       set the cursor of sprite mi_TreeSprite to -1              -- Mouse is Up, send the Drop event       If mb_DropAllowed Then         FlagDropDone = False                  repeat with li_Sprite in pa_DropTarget           If Rollover(li_Sprite) Then             SendSprite li_Sprite, #DropElement, ma_GhostTree             flagDropDone = The result           end if         end repeat                  --depending of the behavior, we make some stuff on the original Tree         If FlagDropDone Then                      case (ps_DropBehavior) of             #Check:               --- Just Check the dropped items               repeat with li_TreeIndex In la_SelectedItems                 ma_Tree[li_TreeIndex].viewed = 1               End Repeat               DisplayTree()             #copy:               ---Nothing               DisplayTree()             #Move :               -- Move elements, delete dropped items from the source               li_DeletedIndex = 0                              If mb_DropOnMe Then                 -- Warning ! the data are added before deleted, so the tree change                 -- If the selection was after the roll, we must delete this elements                 If li_RolledItem >0 And li_RolledItem < la_selectedItems[1] Then                   li_DeletedIndex = 0                   la_SelectedItems = la_SelectedItems + count(ma_GhostTree)                 End If               End If                              repeat with li_TreeIndex In la_SelectedItems                 DeleteAt ma_Tree, li_TreeIndex + li_DeletedIndex                                  mi_TreeLength = mi_TreeLength - 1                 li_DeletedIndex = li_DeletedIndex - 1               End Repeat                              DisplayTree()           end case           End If       End If     end if     end if End MouseDown on mouseUp me   --If we have done a drag and drop, exit   if mb_CurrentlyDragging or Not Rollover(mi_TreeSprite) Then     set mb_CurrentlyDragging = False     return   end if      -- If tree is empty, exit   if Not mi_TreeLength Then     Return   End If      li_ClickedLine = PointToLine(sprite mi_TreeSprite,the clickloc)   li_ClickedChar = PointToChar(sprite mi_TreeSprite,the clickloc)      If li_ClickedLine = -1 or li_ClickedChar = -1 Then     return   End If      ---Draw Item rect   if pb_Frame then     DrawItemFrame(me)   end if      -- Toggle the Status     if pb_IsToggable then     --Check the font ( + and - icons are in Webdings font)     If member(ms_TreeMember).char[li_ClickedChar].font = "Webdings *" Then       ToggleItem me,li_ClickedLine       return     end if   end if      -- Select the line   If member(ms_TreeMember).char[li_ClickedChar].font <> "Webdings *" Then     SelectItem me, li_ClickedLine   End If      -- Execute Lingo Code   if ps_ScriptWhenClicked <> "" then     li_ItemPosition = GetTreeItemPosition(li_ClickedLine)          If li_ItemPosition > 0 Then       la_Item = ma_Tree[li_ItemPosition]       do ps_ScriptWhenClicked && la_Item     end if   end if end mouseup -- Main functions -- on initTree me, la_Tree   -- Populate the list   If Not VoidP(la_tree) Then     ma_Tree = la_Tree   Else     set ls_Data =the text of member ps_DataMember     if char 1 of ls_Data = "[" Then       -- If this is a list, we assume it have the good format       ma_Tree = Value(ls_Data)     Else       -- Not a list, the following style is required (Tab as FieldSeparator and Return as RecordSeparator)       --                 set lc_PreviousDelimiter=the itemdelimiter       set the itemdelimiter to tab              ma_Tree=[]       repeat with li_Line = 1 to the number of lines of ls_Data                  ---Items has childrens ?         if item 2 of line li_Line+1 of ls_Data = item 1 of line li_Line of ls_Data then           set ls_ItemParent=true         else           set ls_ItemParent=false         end if                  ----Retrieve level---         set ls_ItemLevel = Integer(item 4 of line li_Line of ls_Data)                  -----retrieve label----         set ls_ItemLabel=item 5 of line li_Line of ls_Data                  -----retrieve data item----         set ls_ItemData=item 6 of line li_Line of ls_Data                  Append ma_Tree,[#parent:ls_ItemParent, #level:ls_Itemlevel,#label:ls_ItemLabel,#status:0,#display:0,#viewed:0, selected:0,#data:ls_ItemData]                end repeat              set the itemdelimiter to lc_PreviousDelimiter     end if   End if   mi_TreeLength = Count(ma_Tree)   DisplayTree() end InitTree On DisplayTree la_TreeData   -- set departChrono = the timer   -- Render the Text field      -- if la_TreeData is not empty, it is the ghost Tree   If voidP(la_TreeData) Or Not ListP(la_TreeData) Then     lb_GhostTree = False     ls_TreeMember = ms_TreeMember     set la_Tree = ma_Tree     li_TreeLength = mi_TreeLength   else     lb_GhostTree = True     set la_Tree = la_TreeData     ls_TreeMember = ps_DragMember     li_TreeLength = Count(la_Tree)   End If      set ls_Buffer = ""   li_BufferLength =  0   set li_PreviousLevel=0   set lb_ShowDaughter=0   set ls_ToggleChar = ""   set mi_LastDisplayedLine = 0      set la_Chars_WebDings=[]   set la_Chars_WingDings=[]   set la_Chars_Plain = []   set la_Chars_Bold = []   set la_Chars_Selected= []   set la_Chars_Underline = []      repeat with li_TreeIndex =1 to li_TreeLength          set li_level       = la_Tree[li_TreeIndex].level     set lb_status      = la_Tree[li_TreeIndex].Status     set lb_parent      = la_Tree[li_TreeIndex].parent     set ls_label       = la_Tree[li_TreeIndex].label     set lb_viewed      = la_Tree[li_TreeIndex].viewed     set lb_selected    = la_Tree[li_TreeIndex].selected     li_LabelLength = length(ls_label)          if (li_level=1 or li_level<=li_PreviousLevel or (lb_ShowDaughter=1 and (li_level-li_Previouslevel)=1)) then              set ls_Margin = pad(li_Level)       li_MarginLength = length(ls_Margin)              la_Tree[li_TreeIndex].display = 1              -- We save the position of the last item displayed (we use it for the drop at the end of the tree)       If Not lb_GhostTree Then         set mi_LastDisplayedLine = li_TreeIndex       End If              ----Display the check       if lb_viewed and pb_DisplayChecked then         delete the last char of ls_Margin         delete the last char of ls_Margin -- Remove 2 chars because the check mark equals 2 spaces         li_MarginLength = li_MarginLength - 2         append(la_Chars_WingDings,li_BufferLength + li_MarginLength)         If The machineType = 256 Then           put "ü" into char li_MarginLength of ls_Margin         Else           put "¸" into char li_MarginLength of ls_Margin         End IF       end if              if ( not lb_parent) then         ls_ToggleChar = ""         li_ToggleLength = 0         if pb_IsToggable Then           ls_Margin = ls_Margin & "    "           li_MarginLength = li_MarginLength + 4         end if         --Display the icon (with the Wingdings font)         if pb_DisplayIcon Then           ls_Icon = "2"           li_IconLength = 1           append(la_Chars_WingDings,li_BufferLength + li_MarginLength + li_IconLength)           If the machineType <> 256 Then             li_IconLength = li_IconLength + 2             ls_Icon   = ls_Icon & "  "           End If         else           ls_Icon = ""           li_IconLength = 0         End if       else         ---It's a folder (we add the triangle symbol for toggling it)         if pb_IsToggable then           li_ToggleLength = 1           if lb_status = 1 then             ls_ToggleChar = "6"           else             ls_ToggleChar = "4"           end if           append(la_Chars_WebDings, li_BufferLength + li_MarginLength + li_ToggleLength)           If the machineType <> 256 Then             li_ToggleLength = li_ToggleLength + 2             ls_ToggleChar   = ls_ToggleChar & "  "             append(la_Chars_WebDings, li_BufferLength + li_MarginLength + li_ToggleLength - 1)           End If         end if         --Display the icon (with the Wingdings font)         if pb_DisplayIcon Then           if lb_status = 1 then             ls_Icon = "1"           else             ls_Icon = "0"           end if           li_IconLength = 1           append(la_Chars_WingDings,li_BufferLength + li_MarginLength + li_ToggleLength + li_IconLength)                      If the machineType <> 256 Then             li_IconLength = li_IconLength + 2             ls_Icon = ls_Icon & "  "           End If         else           ls_Icon = ""           li_IconLength = 0         End If       end if              --We save the position of the clicked line (used to draw the ghost tree)       if lb_Selected Then         li_StartChar = li_BufferLength + li_MarginLength + li_ToggleLength + li_IconLength + 2         li_EndChar = li_StartChar + li_LabelLength         If lb_Selected = 1 Then           append la_Chars_Selected , [li_StartChar,li_EndChar]         else           append la_Chars_Underline, [li_StartChar,li_EndChar]         end if       end if              ls_Buffer= ls_Buffer & ls_Margin & ls_ToggleChar & ls_Icon && ls_label & return       li_BufferLength = li_BufferLength + li_MarginLength + li_ToggleLength + li_IconLength + li_LabelLength + 2              set li_PreviousLevel= li_Level       set lb_ShowDaughter = lb_status     else       la_Tree[li_TreeIndex].display =0     end if   end repeat      --Save the Tree length   If Not lb_GhostTree Then     mi_TreeDisplayedLength = li_BufferLength   End If      -- We add some space after the tree to allow users to drop items after the tree   If pb_AllowDrop Then     ls_Buffer = ls_Buffer & Return & Return   End If         --We backup the scrolling (because it will be reseted by the fill of the field)   if not lb_GhostTree Then     li_PreviousScroll = member(ls_TreeMember).scrollTop   End If      member(ls_TreeMember).text = ls_buffer      --Reset the scroll   If not lb_GhostTree Then     member(ls_TreeMember).scrollTop = li_PreviousScroll   End If      if pi_LineHeight then       set the fixedLineSpace of member ls_TreeMember to pi_LineHeight   end if         ---------Change fonts settings of special characters (toggle, icons & check mark)-----   member(ls_TreeMember).font=the name of ps_FontRender   member(ls_TreeMember).fontStyle=[#plain]      -- Selected items are in special font   repeat with li_ItemIndex in la_Chars_Selected     member(ls_TreeMember).char[li_ItemIndex[1]..li_ItemIndex[2]].font=the name of ps_FontRenderSelected   end repeat      -- Underline items   repeat with li_ItemIndex in la_Chars_Underline     member(ls_TreeMember).char[li_ItemIndex[1]..li_ItemIndex[2]].fontStyle=[#Underline]   end repeat      -- Toggle and icons symbols   repeat with li_CharIndex in la_Chars_WebDings     if li_CharIndex then       member(ls_TreeMember).char[li_CharIndex].font="Webdings *"     end if   end repeat   -- Check mark   repeat with li_CharIndex in la_Chars_WingDings     if li_CharIndex then       member(ls_TreeMember).char[li_CharIndex].font="Wingdings *"     end if   end repeat         -- put "DisplayTree : " & the timer - departChrono End DisplayTree -- Utility functions on pad li_level   --Fill the horizontal space before the element   set ls_Space ="   "   set ls_Buffer =""   repeat with li_Index =1 to li_level     set ls_Buffer = ls_Buffer & ls_Space   end repeat   return ls_Buffer end pad on GetLineRect li_RolledLine   -- Return the rect of of the rolled line   set la_LineRect=[]   if voidP(li_RolledLine) then     li_RolledLine=PointToLine(sprite mi_TreeSprite,the mouseloc)   end if      ------   if li_RolledLine=1 then     li_StartChar=1   else     li_StartChar=(the number of chars in (line 1 to  li_RolledLine-1 of the text of member ms_TreeMember)) + 2          ----Trim first space characters     repeat while char li_StartChar of the text of member ms_TreeMember=" "       li_StartChar = li_StartChar + 1     end repeat   end if   la_LocStart= CharPosToLoc(member ms_TreeMember,li_StartChar)   ------   li_EndChar=the number of chars in  (line 1 to  li_RolledLine of the text of member ms_TreeMember) + 1   la_LocEnd= CharPosToLoc(member ms_TreeMember,li_EndChar)      if la_LocStart[2]=la_LocEnd[2] then     la_LocEnd=la_LocEnd - point(0,pi_LineHeight)   else     ---On two (or more) lines --     la_LocStart = la_LocStart - point(0,pi_LineHeight)     la_LocEnd[1]=the width of member ms_TreeMember     la_LocEnd[2]=la_LocEnd[2] + 7   end if   ------      if li_StartChar <> li_EndChar then     set la_TextRect=the rect of sprite mi_TreeSprite     la_LineRect=rect(la_LocStart[1]+la_TextRect[1]-2,la_LocEnd[2]+la_TextRect[2],la_LocEnd[1]+la_TextRect[1]+2,la_LocStart[2]+la_TextRect[2])   end if     return la_LineRect end GetLineRect On GetTreeItemPosition li_Line   -- Return position in List of the displayed line      li_position = 0   li_ItemPosition = 0      repeat with li_TreeIndex = 1 to mi_TreeLength     li_position=li_position + ma_Tree[li_TreeIndex].display          if li_position = li_Line then       li_ItemPosition = li_TreeIndex       exit repeat     end if   end repeat      return li_ItemPosition End GetTreeItemPosition On CreateGhostTree li_Line   -- Create the Tree corresponding to the selection (with their childrens)      set ma_GhostTree = []   set la_SelectedItems = []      set li_TreeIndex =  0   set li_DisplayedLine = 0   set li_SelectedLine = 0   set li_SelectedLevel = 0   set la_Temp = []      repeat while li_TreeIndex < mi_TreeLength          li_TreeIndex  = li_TreeIndex + 1          -- We are interested only by selected items and their childrens     if ma_Tree[li_TreeIndex].Selected = 0 and li_TreeIndex <> li_Line Then       Next Repeat     End If          -- Count the number of Lines displayed (used for the position of the mouse)     if ma_Tree[li_TreeIndex].display = 1 Then       li_DisplayedLine = li_DisplayedLine + 1     end if          Append la_SelectedItems, li_TreeIndex          -- Make a copy of the TreeItem item     la_TreeItem = Duplicate(ma_Tree[li_TreeIndex])          -- Get the item level     li_level = la_TreeItem.level          -- save the shift with his childrens     li_LevelShift = li_Level - 1          -- Reset his level     la_TreeItem.Level = 1          -- Reset the check mark     la_TreeItem.viewed  = 0          -- If it was the clicked item, it must me selected in the ghost tree     If (li_TreeIndex= li_Line) then       la_TreeItem.selected = 1       li_SelectedLevel = 1       li_SelectedLine = li_DisplayedLine              -- Select the Item in the original Tree       ma_Tree[li_TreeIndex].selected = 1            else       la_TreeItem.selected = 0       ma_Tree[li_TreeIndex].selected = 1     end if          Append ma_GhostTree, la_TreeItem          -- Append his childrens     Repeat With li_TreeIndex = li_TreeIndex + 1 To mi_TreeLength              la_TreeItem = Duplicate(ma_Tree[li_TreeIndex])              li_CurrentLevel = la_TreeItem.level       If li_CurrentLevel > li_level Then                  Append la_SelectedItems,li_TreeIndex                  -- Count the number of lines         If la_TreeItem.display = 1 Then           li_DisplayedLine = li_DisplayedLine + 1         End If                  la_TreeItem.level =  li_CurrentLevel - li_LevelShift                  If li_TreeIndex = li_Line Then           la_TreeItem.selected = 1           li_SelectedLevel = li_CurrentLevel - li_LevelShift           li_SelectedLine = li_DisplayedLine         Else           la_TreeItem.selected = 0         End If                  -- Reset the check mark         la_TreeItem.viewed  = 0                  Append ma_GhostTree, la_TreeItem                Else         li_TreeIndex = li_TreeIndex - 1         Exit Repeat       End If     End Repeat   End Repeat      Return [#SelectedLevel:li_SelectedLevel, #SelectedLine:li_SelectedLine, #SelectedItems:la_SelectedItems] End CreateGhostTree On GetLastSelectedItem DontSkip   --- We search the last item selected   li_Position = mi_TreeLength + 1   repeat with li_TreeIndex = mi_TreeLength Down To 1     If ma_Tree[li_TreeIndex].selected and ma_Tree[li_TreeIndex].display Then       li_Position = li_TreeIndex       li_Level = ma_Tree[li_TreeIndex].level       Exit Repeat     End if   End repeat      return li_Position End GetLastSelectedItem On GetInsertInfo li_Position      If li_Position Then     If li_Position <= mi_TreeLength Then       If ma_Tree[li_Position].parent Then         ---Folder         If ma_Tree[li_Position].status then           --- Opened folder           li_level = ma_Tree[li_Position].level + 1           li_Position = li_Position + 1         else           --- closed folder ---           li_level = ma_Tree[li_Position].level           li_Position = li_Position + 1           Repeat While (li_Position <= mi_TreeLength)             If (ma_Tree[li_Position].level > li_Level) Then               li_Position = li_Position + 1             Else               exit Repeat             End If           End Repeat         End if       Else         --- File         li_level = ma_Tree[li_Position].level         li_Position = li_Position + 1       End if     else       If mi_TreeLength = 0 Then         li_Level = 1       Else         If ma_Tree[mi_TreeLength].parent And ma_Tree[mi_TreeLength].status Then ---Opened Folder           li_level = ma_Tree[mi_TreeLength].level + 1         Else           li_level = 1         End if       End If     End if   Else     li_Position = 1     li_Level = 1   End If   return [#position:li_Position,#level:li_Level] End GetInsertInfo On getBehaviorToolTip   return "Treeview behavior" & return & "Allow the rendering of hierarchical information in a simple text member." End getBehaviorTooTip On getBehaviorDescription      return "Presentation"&return&"This behavior is intended to display hierarchical information in a simple text field." ¬ & "The information is displayed like the interface of the Windows Explorer. "&return&""&return&"Features"&return&"-" ¬ & "Can use only 1 sprite !"&return&"-  Multiple selection allowed"&return&"- Can receive events for creating folder," ¬ & "creating items, rename elements"&return&"- Can receive drop content"&return&"- Can send Drag content"¬ & return&""&return&"Parameters of the behavior"&return&""&return&"Warning : This behavior must be attached to" ¬ & "#text members only, no others types will work."&return&""&return&"Text data source:"&return&""&tab&"This parameters" ¬ & "must identify the #field or #text cast members that will have the information of the tree. This member must" ¬ & " contains a list of the following elements."&return&""&tab&" Example :"&return&""&tab&"[#parent: 1, #level: 1,"¬ & "#label: ""e&"Root""e&", #status: 0, #display: 1, #Viewed: 0, #Selected: 0, #Data: ""e&"ROOT""e&"]"¬ & return&""&return&""&tab&"Items contains the following properties :"&return&""&tab&""&tab&"#parent: "&tab&""&tab&"Indicate"¬ & "if the item is a folder (1) or an simple element (0)."&return&""&tab&""&tab&"#level: "&tab&""&tab&"Indicate the "¬ & "indentation level of the item / folder. It is mandatory to have levels configured property."&return&""&tab&""&tab&""&tab&tab&"You "¬ & "can't have an item with level 1 followed by an item of level 3."&return&""&tab&""&tab&"#label: "&tab&""&tab&"Indicate the string"¬ & "label displayed for the item"&return&""&tab&""&tab&"#Status: "&tab&""&tab&"(used only for folders) Indicate "¬ & "if the folder is initially opened (1) or closed (0)."&return&""&tab&""&tab&"#display: "&tab&tab&"This property must be" ¬ & "present but is overided by the behavior"&return&""&tab&""&tab&"#viewed: "&tab&""&tab&"Indicate if the element is" ¬ & "already viewed. Depending of certain parameters, the item will have a checkmark."¬ & return&""&tab&""&tab&"#selected: "&tab&"Indicate is the item is selected (1) or not  (0)"&return&""&tab&""&tab&"#data"¬ & ":"&tab&tab&"Contains information associated to the item, can be everything (string, list, etc...)"¬ & return&return&return&"Lingo code when clicked:"&return&tab&"This is the handled that will called "¬ & "when the user click a line. This handler will receive in parameters the array of the element."¬ & return&""&return&"Tree can be deployed / contracted:"&return&""&tab&"Checkbox to know if the treeview render arrows for  expand / contract of folders." ¬ & "For this option to operate correctely, you "&tab&"must have a font member of the font ""e&"Webdings""e ¬ & "called ""e&"Webdings *""e&""&return&""&return&"Cursor for toggle:"&return&""&tab&"Cursor used when mouse is" ¬ & "over the arrows buttons."&return&""&return&"Multiple selection enabled:"&return&""&tab&"Checkbox to permit multi" ¬ & "selection of items"&return&"  "&return&"Display icons for file/folder:"&return&""&tab&"Checkbox to know if the treeview" ¬ & "render icons for the elements.For this option to operate correctely, you must have a font member of the font" ¬ & quote&"Wingdings""e& " called " "e&"Wingdings *""e&"."&return&""&return&"Check viewed items:"¬ & return&""&tab&"Checkbox to tell the treeview to put a checkmark when elements have their viewed propertie set to" ¬ & "true. For this option to "&tab&"operate correctely, you "&tab&"must have a font member of the font" ¬ & quote&"Wingdings""e&" called ""e&"Wingdings *""e&""&return&""&return&"Font used for display:"¬ & return&""&tab&"Font member used to render the items of the treeview. You must have font cast member to operate "¬ & "correctely."&return&""&return&"Font used for selected:"&return&""&tab&"Font member used to render the items that are"¬ & " selected."&return&""&tab&""&return&"LineHeight:"&return&""&tab&"Indicate the height of different lines of the text." ¬ & "It correspond to the lineheight parameter of the field member. This parameter is used for determining the rect"¬ & " of lines."&return&""&return&"Default cursor:"&return&""&tab&"Indicate the cursor used when the mouse is over the" ¬ & "text"&return&""&return&"Drag from the tree:"&return&""&tab&"Checkbox to indicate if items can be draged from the treeview"¬ & "."&return&""&return&"Cursor when mouse is over:"&return&""&tab&"Cursor used when mouse is over an icon and drag is "¬ & "allowed. Typically, the hand cursor is used."&return&""&return&"Cursor when mouse is down:"&return&""&tab&"Cursor" ¬ & "used when a drag is in progress and the cursor has not been released. Typically, a closed hand."&return&""&return ¬ & "Cursor when roll do not accept drop:"&return&""&tab&"Cursor used when ad drag is in progress and the mouse is over a"¬ & " sprite that do not accept drop. Typically a closed hand "&tab&"with a stop icon."&return&""&return&"Member filled by"¬ & " the selection:"&return&""&tab&"Text cast member that will be filled by the selected items. This member will be the "¬ & "ghost selection. Use a grey text color to "&tab&"have better effects."&return&""&return&"Sprite used by the drag "¬ & "selection:"&return&""&tab&"Sprite used for the rendering of the ghost tree. Use a sprite number greater of the"¬ & " treeview sprite to operate successfully."&return&""&return&"List of sprites that accept the drop from this tree:"¬ & return&tab&"Indicate the different sprite number that can accept the drop of items from this treeview. This is"¬ & " a list."&return&return&""&tab&"  - When mouse is over a sprite that accept drop the  ""e&"RollElement"¬ & quote&" handler is called with a a parameter that can have #In or #Out values. The #in parameter is sent" ¬ & "when the mouse roll on the element and the #out value is sent when the mouse leave the sprite. This handler "¬ & "can be usefull if you want to drop items from the treeview to a trash. Depending on the value of the "&tab&"parameter."¬ & " You can display trash in 2 state (full or empty)."&return&""&tab&""&return&""&tab&"- When mouse is released over a"¬ & " sprite that accept the drop. The ""e&"DropElement""e&" handler is called with a parameter filled by the"¬ & " selection. This parameter is a list and have the same format as the text data source (see explanation above)."¬ & return&""&return ¬ & "Behavior for the drop:"&return&""&tab&"Indicate how the treeview must react when a drop occurs, can be :"¬ & return&""&tab&"    "&tab&"- Move :"&tab&"The data are deleted from the treeview"&return&""&tab&"    "&tab&"- Copy : "¬ & tab&"The data are not deleted from the treeview"&return&""&tab&"    "&tab&"- Check :"&tab&"The data have their viewed"¬ & " property set to true. So a checkbox is displayed (if check viewed items property "¬ & "is set to true)."&return&""&tab&""&return&"Allow dropped items: "&return&""&tab&"Checkbox to specify if the "¬ & "treeview accept dropped elements."&return&""&return&"Has rect when selected:"&return&""&tab&"Checkbox to tell if  a"¬ & " member is drawn over the treeview when an item is selected. This propertie can be used only if multiple selection"¬ & " is not selected."&return&"  "&return&"Sprite rect:"&return&""&tab&"Sprite used for the display of the rectangle surrounding"¬ & " the selection"&return&""&return&"Rect member:"&return&""&tab&"Cast member used for the display of the rectange surrouding "¬ & "the selection"&return&""&return&"Has rollover:"&return&""&tab&"Checkbox to tell if  a member is drawn over the treeview when"¬ & " mouse is over an element."&return&"  "&return&"Sprite for the rollover:"&return&""&tab&"Sprite used for the display of the"¬ & " rectangle surrounding the rolled element"&return&""&return&"Bitmap for the rollover:"&return & tab & "Cast member used for "¬ & "the display of the rectange surrouding the rolled element"   End getBehaviorDescription

Upload Provided by ABCUpload ASP