Discussion :

[der§en]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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.

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[SergioMaster]

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

soit ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
/

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

[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

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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