B4J Library [B4X] [XUI] SD_TreeList

SD_TreeList

Author: Star-Dust
Version: 0.27

• B4XTree
  • Events:
    • Click (IDLeaf As String, LeafName As String)
    • ClickBranch (ID As String, Expanded As Boolean)
    • LongRightClick (IDLeaf As String, LeafName As String)
    • LongRightClickBranch (ID As String, BranchName As String)
  • Fields:
    • BadgeBackgroundColor As Int
    • BadgeDept As Int
    • BadgeTextColor As Int
    • BadgeTextSize As Int
  • Functions:
    • Add (Name As String, IDBranch As String, FontAwesoneSymbol As String, Color As Int, ListLeaf As String()) As String
      Add Branch with Symbol(FontAwesone) and Leaf (list)
    • Add2 (Name As String, IDBranch As String, Symbol As String, FontSymbol As B4XFont, Color As Int, ListLeaf As String()) As String
      Add Branch with Symbol(FontAwesone) and Leaf (list)
    • AddBranch (Name As String, IDBranch As String, IDParent As String, FontAwesoneSymbol As String, Color As Int) As String
      Add Branch
    • AddBranch2 (Name As String, IDBranch As String, IDParent As String, Symbol As String, FontSymbol As B4XFont, Color As Int) As String
      Add Branch with Symbol
    • AddBranchDoubleSymbol (Name As String, IDBranch As String, IDParent As String, OpenSymbol As String, CloseSymbol As String, FontSymbol As B4XFont, Color As Int) As String
      Add Branch with double symbol
    • AddDoubleSymbol (Name As String, IDBranch As String, OpenSymbol As String, CloseSymbol As String, FontSymbol As B4XFont, Color As Int, ListLeaf As String()) As String
      Add Branch with double Symbol and Leaf (list)
    • AddLeaf (Name As String, Info As String, IDBLeaf As String, IDParent As String) As String
      Add Leaf to branch
    • AddLeaf2 (Name As String, Info As String, Note As String, IDBLeaf As String, IDParent As String) As String
      Add Leaf to branch
    • AddLeaf3 (Name As String, Info As String, Note As String, FontNote As B4XFont, ColorNote As Int, IDBLeaf As String, IDParent As String, FontAwesoneSymbol As String, FontSymbol As B4XFont) As String
      Add Leaf with info, note andSymbol to branch
    • AddLeaf3OnTop (Name As String, Info As String, Note As String, FontNote As B4XFont, ColorNote As Int, IDBLeaf As String, IDBranch As String, FontAwesoneSymbol As String, FontSymbol As B4XFont) As String
      Add Leaf with info,note and Symbol to branch on top
    • AddLeafOnTop (Name As String, Info As String, IDLeaf As String, IDBranch As String) As String
      Add Leaf on top to Branch
    • AddLeafwithSymbol (Name As String, Info As String, IDBLeaf As String, IDParent As String, FontAwesoneSymbol As String, FontSymbol As B4XFont) As String
      Add Leaf with Symbol to branch
    • AddLeafwithSymbolOnTop (Name As String, Info As String, IDBLeaf As String, IDBranch As String, FontAwesoneSymbol As String, FontSymbol As B4XFont) As String
      Add Leaf with Symbol to branch on top
    • Class_Globals As String
    • Clear As String
    • CollapsesAllBranch As String
    • CollapsesBranch (IDBranch As String) As String
    • CollapsesBranchAndSOn (IDBranch As String) As String
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
      Base type must be Object
    • ExpandAllBranch As String
    • ExpandBranch (IDBranch As String) As String
    • ExpandBranchAndSon (IDBranch As String) As String
    • GetBranchName (IDBranch As String) As String
    • GetBranchOfLeaf (IDLeaf As String) As String
    • GetLeafBadgeActive (IDLeaf As String) As Boolean
    • GetLeafBadgeText (IDLeaf As String) As String
    • GetLeafInfo (IDLeaf As String) As String
    • GetLeafName (IDLeaf As String) As String
    • Initialize (Callback As Object, EventName As String) As String
    • Invalidate
    • IsInitialized As Boolean
      Verifica se l'oggetto sia stato inizializzato.
    • ListOfIDBraches (IDBranche As String) As List
      Returns a list of strings
      This list contains the IDs of the sub-branches attached To a branch
    • ListOfIDLeafs (IDBranche As String) As List
      Returns a list of strings
      This list contains the IDs of the leaves attached To a branch
    • MoveLeaf (IDLeaf As String, NewIDBranch As String) As String
    • RemoveBranch (IDBranch As String) As String
    • RemoveLeaf (IDLeaf As String) As String
    • SetBranch (IDBranch As String, NewName As String) As String
    • SetLayout (Left As Int, Top As Int, Widh As Int, Height As Int) As String
    • SetLeaf (IDLeaf As String, NewName As String, NewInfo As String) As String
    • SetLeafBadge (IDLeaf As String, BadgeActive As Boolean, BadgeText As String) As String
    • Sort (Ascending As Boolean) As String
    • TreeToJson As String
  • Properties:
    • Base As B4XView [read only]
    • BranchTextColor As Int
    • Height As Int
    • InfoTextSize As Int
    • ItemHeight As Int
      Min = 40dip, Max= 100dip
    • LeafTextColor As Int
    • Left As Int
    • OnlyCornerColor As Boolean
    • OpenOnlyOneBranch As Boolean
    • TextSize As Int
    • TimeAnimation As Int
    • Top As Int
    • Width As Int

Log version

• 0.21
  Added AddLeafwithSymbol method. Now you can insert a Symbolo with FontAwesone or FontMaterial in the branch
• 0.22 - Improved tree JSON production (method TreeToJson )
• 0.23 - Added event LongRightClickBranch (IDLeaf As String, LeafName As String)
• 0.24 - Added meethod AddLeafwithSymbolOnTop
• 0.25 - Added InfotextSize field; Added Note (to the right of the info); Added AddLeaf3 and AddLeaf3OnTop methods
• 0.26 - Increased height of elements, Highlighting of the clicked element
• 0.27 - Added AddLeaf2

 

[micro]

Hi SD
size always returns 0
Thanks

 

[Star-Dust]

It works fine for me. I am attaching an example.
I guess you are getting the parameters wrong, instead of putting the branch ID you are perhaps entering the branch name

ScanTree("","")

Private Sub ScanTree(IDB As String, space As String)
    Log(space & IDB)
    For Each IDLeaf As String In B4XTree1.ListOfIDLeafs(IDB)
        Log(space & " " & IDLeaf)
    Next
    For Each IDBranche As String In B4XTree1.ListOfIDBraches(IDB)
        ScanTree(IDBranche,space & " ")
    Next
End Sub

 

[micro]

I guess you are getting the parameters wrong, instead of putting the branch ID you are perhaps entering the branch name

in fact I did so
menusd.ListOfIDLeafs(menusd.GetBranchName(ID)).Size
I was fooled by the word GetBranchName
with menusd.ListOfIDLeafs(ID) work fine
Thanks

 

[Star-Dust]

Update 0.20

• GetLeafBadgeActive (IDLeaf As String) As Boolean
  Returns if the leaf has the active badge
• GetLeafBadgeText (IDLeaf As String) As String
  Returns the badge text

 

[Olaan]

Update 0.20

• GetLeafBadgeActive (IDLeaf As String) As Boolean
  Returns if the leaf has the active badge
• GetLeafBadgeText (IDLeaf As String) As String
  Returns the badge text

Is there example for study,sir? I'm rather stupid in coding and English,if I see example will make me understand how to use.

 

[Cableguy]

Is there example for study,sir? I'm rather stupid in coding and English,if I see example will make me understand how to use.

I can imagine something like...

Sub B4XTree1_Click (IDLeaf As String, LeafName As String)
If GetLeafBadgeActive (IDLeaf) = True Then 'Leaf has a Badge
'Do something
Else 'Leaf has no badge
'Do something else
End If
End Sub

 

[Star-Dust]

Update rel. 0.21

• Added AddLeafwithSymbol method. Now you can insert a Symbol with FontAwesone or FontMaterial in the branch

    B4XTree1.AddLeafwithSymbol("Leaf B Symbol","Symbol","LBF","B1",Chr(0xF0F9),xui.CreateFontAwesome(14))

 

[Star-Dust]

Update 0.22

• Improved tree JSON production (method TreeToJson )

After obtaining the JSON (perhaps stored) you can transform it into MAP and populate the tree

Dim Tm As Map = B4XTree1.TreeToJson.As(JSON).ToMap
B4XTree1.Clear
ScanMap(Tm,"")

Private Sub ScanMap(M As Map,IDParent As String)
    For Each K As String In M.Keys
        Log(K)
        Dim SubM As Map = M.Get(K)
        Log(SubM)
        If SubM.ContainsKey("Leaf")=False Then
            B4XTree1.AddLeaf(SubM.Get("Name"),SubM.Get("Info"),SubM.Get("ID"),IDParent)
        Else
            B4XTree1.AddBranch(K,SubM.Get("ID"),IDParent,SubM.Get("Symbol"),SubM.Get("Color"))
            ScanMap(SubM.Get("Leaf"),SubM.Get("ID"))
        End If
    Next
End Sub

 

[Star-Dust]

Update 0.25

• Added InfotextSize field
• Added Note field (to the right of the info)
• Added AddLeaf3 and AddLeaf3OnTop methods

B4XTree1.AddLeaf3("Leaf Sub 4","Info 4","Note 4", xui.CreateDefaultFont(12),xui.Color_Red, "LS4","S1",Chr(0xF270),xui.CreateFontAwesome(12))
B4XTree1.AddLeaf3OnTop("Leaf Sub 5","Info 5","Note 5",  xui.CreateDefaultFont(12),xui.Color_Red, "LS5","S1",Chr(0xF270),xui.CreateFontAwesome(12) )

 

[CR95]

Hello SD,
This is a "beautiful" library.
I have some issues with the "click on leaf" -> need sometimes many pushs before to be fired in the program (may be because my list is long)
This is why I would like to inform the user afer a click -> is it possible to change ONLY the concerned leaf (by bolding or coloring the text for example) ?
I tried "B4XTree1.LeafTextColor" but it changes ALL the leafs.

Another point concerning the text in the leaves : the part of the characters under the line are "truncated" : for example "p" or "g".
May be you could change the vertical position in a future update ?

Thanks

 

[Star-Dust]

Hello SD,
This is a "beautiful" library.
I have some issues with the "click on leaf" -> need sometimes many pushs before to be fired in the program (may be because my list is long)
This is why I would like to inform the user afer a click -> is it possible to change ONLY the concerned leaf (by bolding or coloring the text for example) ?
I tried "B4XTree1.LeafTextColor" but it changes ALL the leafs.

Another point concerning the text in the leaves : the part of the characters under the line are "truncated" : for example "p" or "g".
May be you could change the vertical position in a future update ?

Thanks

Hi, I'll try to look into the questions you raised

 

[Star-Dust]

Hello SD,
This is a "beautiful" library.
I have some issues with the "click on leaf" -> need sometimes many pushs before to be fired in the program (may be because my list is long)
This is why I would like to inform the user afer a click -> is it possible to change ONLY the concerned leaf (by bolding or coloring the text for example) ?
I tried "B4XTree1.LeafTextColor" but it changes ALL the leafs.

Another point concerning the text in the leaves : the part of the characters under the line are "truncated" : for example "p" or "g".
May be you could change the vertical position in a future update ?

Thanks

Update rel 0.26

Increased height of elements, Highlighting of the clicked element​

​

 

[CR95]

Thanks SD
I am travelling without PC and I cannot test your upgrades for the moment.
But I saw your small video and it seems that this does not correspond to what I suggested.
My demand was to change the color of the clicked leaf and to KEEP it colored (similar to a clicked button).
This will permit to the user to see/know what was his last demand among a long list of branches and leafs.

For the troncated text issue, did you try to center the vertical aligment ?

 

[Star-Dust]

But I saw your small video and it seems that this does not correspond to what I suggested.
My demand was to change the color of the clicked leaf and to KEEP it colored (similar to a clicked button).

I'm sorry that my change does not match your suggested request.
Unfortunately the suggested request does not correspond to the very meaning of the TreeListView. It would become a TreeCheckList, in the initial design it has the objective of being able to have lists grouped by branches and like all the lists being able to click on an item.

This will permit to the user to see/know what was his last demand among a long list of branches and leafs.

For the troncated text issue, did you try to center the vertical aligment ?

The entries are always centered, if you cut off a letter perhaps you have selected a font that is too large. In the examples this does not happen. In the last change I increased the height to allow the use of a larger font

 

[CR95]

@sd
I understand your position.
Thanks for the time you spend.

 

[fengce]

Dear Star-Dust,
How can I hide VerticalScroll of SD_Treelist?
Hope your reply,Thanks!