TreeView : rafraîchissement aprés un Sort

Version imprimable

Bonjour,

Je fais un sort d'une Treeview, et j'ai un problème de rafraîchissement du treeview. J'ai essayé les repaint, realigncontent, invalidate, invaliderect, handlemessage et autre processmessage, sans succès !

Ma fenêtre utilise un stylebook, est-ce que c'est lui qui pourrait poser un problème ?
Quelle est la bonne solution pour que le contenu de ma Treeview se mette à jour ?

Merci d'avance de vos suggestions.

Voici le code du tri et de son appel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 function TfrmMain.SortItemsText(Left, Right: TFMXObject): Integer; begin Result := CompareText((Left as TTreeViewItem).Text, (Right as TTreeViewItem).Text); end; ///////////////////////////////////////////////////////////////// procedure TfrmMain.btnTrieClick(Sender: TObject); begin TreeArbo.BeginUpdate; try TreeArbo.Sort(SortItemsText); //TreeArbo.Canvas.BeginScene; //TreeArbo.Canvas.Clear(0); //TreeArbo.Canvas.EndScene; // TreeArbo.RealignContent; //TreeArbo.InvalidateRect(RectF(0,0,TreeArbo.Width, TreeArbo.Height)); //Self.Invalidate; finally TreeArbo.EndUpdate; end; // Application.ProcessMessages; // Application.HandleMessage; end;

26/10/2023, 13h44
SergioMaster

Bonjour,

perso, je parierai sur un BeginUpdate ... EndUpdate et absolument pas les "repaint, realigncontent, invalidate, invaliderect, handlemessage et autres processmessage"
mais je vois qu'ils sont dans le code.

Il va falloir que je me fasse un essai pour m'en assurer.

Alors après quelques essais, je n'ai toujours pas trouvé comment créer un TFMXObjectSortComparer
Pour l'instant, ce que je peux dire, c'est qu'il est facile de faire un tri des racines tout simplement en écrivant

Code:

1
2
3
4
5
6
7
8
9
procedure TForm16.BtnSortClick(Sender: TObject);
 begin
TreeView1.BeginUpdate;
try
 TreeView1.Sorted:= True;
finally
  Treeview1.EndUpdate;
end;
end;

et que l'on peut changer le comportement "basique" du tri en ordre alphabétique croissant en créant un évènement OnCompare,

Code:

1
2
3
4
5
function TForm16.TreeView1Compare(Item1, Item2: TTreeViewItem): Integer;
begin
 // ordre décroissant
 Result := CompareText(Item2.Text, Item1.Text);
end;

un test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm16.AddRootClick(Sender: TObject);
var item : TTreeviewItem;
begin
  treeview1.BeginUpdate;
  Item := TTreeViewItem.Create(Self);
  item.Tag:=Random(40);
  Item.Text := generatext+' '+Item.Tag.ToString;
  Item.Parent := TreeView1;
  Item.OnApplyStyleLookup:=chkApplyStyleLookup;
  treeview1.EndUpdate;
end;
 
function TForm16.generatext: String;
var i,l : integer;
const ac = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
begin
l:=Random(10);
result:=EmptyStr;
 
for I := 0 to l do
 result:=result+Ac[Random(Length(ac)-1)+1];
end;
 
// Tri en fonction du Tag (ordre ascendant)
function TForm16.TreeView1Compare(Item1, Item2: TTreeViewItem): Integer;
begin
 Result := Item1.Tag- Item2.tag;
end;

2 pièce(s) jointe(s)

Bonjour,
À tête reposée, j'ai retenté de faire un tri avec un TFMXObjectSortComparer

soit ainsi
Code:

1 2 3 4 Treeview1.Sort(function (Left, Right: TFMXObject): Integer begin result:=CompareText((Left as TTreeViewItem).Text, (Right as TTreeViewItem).Text); end);
soit en créant au préalable la fonction

et je constate la disparition (affichage) d'éléments

avant / après
Pièce jointe 645806 / Pièce jointe 645807

Toutefois, si je rajoute un élément, liste précédente apparait triée (les élément(s) disparu(s) réapparaissent), le nouvel élément en dernier :cfou:

27/10/2023, 08h20
der§en

J’ai exactement le même phénomène de disparition d’éléments après le sort, d’où ma recherche pour rafraîchir l’affichage de mon Treeview !

Si tu as une solution, je suis preneur ;)

Pour l'instant, je ne vois que la solution de mon post #3 avec Treeview.Sorted=true; agrémentée si le tri est différent d'un tri alphabétique ascendant d'un code de l'évènement onCompare du treeview.
Et encore, cela ne fonctionne que pour les éléments racines !

Mes recherches m'ont bien fourni un code censé trier l'ensemble de l'arborescence

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function TForm16.SortText(Left, Right: TFMXObject): Integer;
var l,r : integer;
begin
    l:=Left.Tag;
    r:=Right.Tag;
    Result := l-r; //CompareText((Left as TTreeViewItem).Text, (Right as TTreeViewItem).Text);
end;
 
procedure TForm16.SortTree(Item: TFmxObject; Comparer: TFmxObjectSortCompare);
var
    I: Integer;
  begin
    // if we are in the initial call of this procedure, a tree view object is passed
    if Item is TTreeView then
    begin
      // sort the tree's top level nodes first
      Item.Sort(Comparer);
      // then recursively call this procedure for each top level node
      for I := 0 to TTreeView(Item).Count - 1 do
        SortTree(TTreeView(Item).Items[I], Comparer);
    end
    else
    // recursive calls of this procedure are passing tree nodes, which is this case
    begin
      // recursively call this procedure for each of this node's child
      for I := 0 to TTreeViewItem(Item).Count - 1 do
        SortTree(TTreeViewItem(Item).Items[I], Comparer);
      // and sort this node's children
      Item.Sort(Comparer);
    end;
end;

mais comme le Treeview.Sort(Compare) ne fonctionne pas c'est sans objet

27/10/2023, 09h39
der§en

1 pièce(s) jointe(s)

Il y un bug (ou des bugs), dans l'IDE j'ai juste mise Sorted à True et voila la bizarrerie que j'ai...

Certaines branches sont triées et d'autres pas, étrange voir les items Espace qui n'étaient pas trié avant (ils étaient organisés par leurs distance du soleil) !

Pièce jointe 645809
29/10/2023, 08h28
SergioMaster

Bonjour,
Étrange je lis que :

Citation:

TreeView.Sort sorts only top level nodes. But that's the nature of the internally called TFmxObject.Sort method. It sorts only immediate child objects.

Tout dépendrait donc de la manière dont seraient fournies les données ?

Je vais investiguer avec mon "pseudo-générateur" de texte en mettant la propriété Sorted=true au design.

AMHA. pour mixer divers tris (Alphabétique et Numérique selon les besoins) nécessite une approche différente (lecture de l'arbre test des siblings et swap de l'itemindex en fonction de la valeur)
30/10/2023, 20h40
der§en

Les 3 premiers niveaux ont étés créés lors du design, seul le niveau 4 le sera par programmation !