Discussion :

[der§en]

Bonjour,

je bute sur une chose qui me semblait simple à la base.

J’aimerais cacher la checkbox de certains item de ma treeview par programmation, et je n’ai pas trouvé comment procéder après plusieurs tentatives infructueuses.

Si vous pouviez m’éclairer sur une solution, cela m’aiderait beaucoup

Merci d’avance.

[ShaiLeTroll]

Par les API c'est une sorte d'image bidouillée, je crois avoir un code pour désactiver mais je ne sais plus si c'était un code maison d'un dessin manuel ou des vrais checkbox et c'est en C++Builder

[der§en]

Même en C++ Builder, je suis preneur

[ShaiLeTroll]

Désolé, je n'avais pas vu FMX, c'était évidemment en VCL via les API Windows

[SergioMaster]

Bonjour,

Je n'ai que peu utilisé Treeview en FMX mais voilà au moins une solution quand tu crées ton item

Code :

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

1
2
3
4
5
6
7
var item : TTreeviewItem;
begin
  Item := TTreeViewItem.Create(Self);
  Item.Text := 'mon élément';
  Item.Parent := TreeView1;
  Item.StylesData['check.visible']:=false; // condition 
end;

en théorie, il serait possible de coder l'évènement onApplyLookup de chaque élément (ce que j'ai testé en premier soit dit en passant)

Code :

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

1
2
3
4
procedure TForm1.TreeViewItem1ApplyStyleLookup(Sender: TObject);
begin
 TTreeviewItem(Sender).StylesData['check.visible']:=false;
end;

de là, je pensais assigner l'évènement à la création de chaque item

Code :

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

Item.OnStyleApplyLookup:=TreeViewItem1ApplyStyleLookup;

Mais cela ne fonctionne pas, je dois me planter quelque part

De même j'ai tenté, en vain, d'utiliser FindStyleResource de l'item, plutôt que le StylesData

Code :

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

1
2
 
var c :=TreeViewItem.FindStyleRessource<TCheckBox>('check')

mais j'ai à faire avec une erreur de syntaxe

[SergioMaster]

de là, je pensais assigner l'évènement à la création de chaque item

Code :

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

Item.OnStyleApplyLookup:=TreeViewItem1ApplyStyleLookup;

Mais cela ne fonctionne pas, je dois me planter quelque part

j'avais oublié les BeginUpdate/EndUpdate du TTreeView

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
  private
    { Déclarations privées }
    procedure chkApplyStyleLookup(Sender : TObject);
  public
    { Déclarations publiques }
  end;
 
var
  Form16: TForm16;
 
implementation
 
{$R *.fmx}
 
 
procedure TForm16.Button1Click(Sender: TObject);
var item : TTreeviewItem;
begin
  treeview1.BeginUpdate;
  Item := TTreeViewItem.Create(Self);
  Item.Text := 'My First Node';
  Item.Parent := TreeView1;
  Item.OnApplyStyleLookup:=chkApplyStyleLookup;
  treeview1.EndUpdate;
end;
 
procedure TForm16.chkApplyStyleLookup(Sender: TObject);
begin
 TTreeviewItem(Sender).StylesData['check.visible']:=TTreeviewItem(Sender).ChildrenCount=0;
end;

Toutefois, un test en ajoutant ensuite des enfants

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm16.Button2Click(Sender: TObject);
var item : TTreeviewItem;
begin
  treeview1.BeginUpdate;
  Item := TTreeViewItem.Create(Self);
  Item.Text := 'My Child Node';
  Item.Parent := TreeView1.Selected;
  Item.OnApplyStyleLookup:=chkApplyStyleLookup;
  treeview1.EndUpdate;
end;

échoue lamentablement donc, à peaufiner