B4J Library [B4X] [XUI] SD_TreeList

Star-Dust · Nov 1, 2019

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 · Feb 5, 2022

Hi SD
size always returns 0
Thanks

Star-Dust · Feb 5, 2022

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

Scan the whole tree:

ScanTree("","")

ScanTrre Sub:

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 · Feb 6, 2022

Star-Dust said:
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 · May 26, 2022

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

Theera · May 27, 2022

Star-Dust said:
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 · May 27, 2022

Theera said:
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...

B4X:

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 · Jul 2, 2022

Update rel. 0.21

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

B4X:

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

Star-Dust · Aug 23, 2022

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

B4X:

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 · Sep 25, 2023

Update 0.25

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

B4X:

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 · Oct 29, 2023

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 · Oct 29, 2023

CR95 said:
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 · Nov 2, 2023

CR95 said:
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 · Nov 4, 2023

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 · Nov 4, 2023

CR95 said:
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.

CR95 said:
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 · Nov 6, 2023

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

B4J Library [B4X] [XUI] SD_TreeList

Attachments

micro

Well-Known Member

Star-Dust

Expert

Attachments

micro

Well-Known Member

Star-Dust

Expert

Theera

Well-Known Member

Cableguy

Expert

Star-Dust

Expert

Star-Dust

Expert

Star-Dust

Expert

CR95

Active Member

Star-Dust

Expert

Star-Dust

Expert

CR95

Active Member

Star-Dust

Expert

CR95

Active Member

Similar Threads

B4J Library [B4X] [XUI] SD_TreeList

Attachments

Well-Known Member

Expert

Attachments

Well-Known Member

Expert

Well-Known Member

Expert

Expert

Expert

Expert

Active Member

Expert

Expert

Active Member

Expert

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency