Cacher la CheckBox de certains TreeViewItem par programmation

Version imprimable

16/10/2023, 15h38
der§en

Cacher la CheckBox de certains TreeViewItem par programmation

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.
16/10/2023, 20h03
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
16/10/2023, 20h53
der§en

Même en C++ Builder, je suis preneur ;)
16/10/2023, 22h13
ShaiLeTroll

Désolé, je n'avais pas vu FMX, c'était évidemment en VCL via les API Windows :ptdr::aie::mouarf:
17/10/2023, 09h57
SergioMaster
Bonjour,

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

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:

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:

Item.OnStyleApplyLookup:=TreeViewItem1ApplyStyleLookup;

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

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

1 2 var c :=TreeViewItem.FindStyleRessource<TCheckBox>('check')
mais j'ai à faire avec une erreur de syntaxe

Citation:

Envoyé par SergioMaster

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

Code:

Item.OnStyleApplyLookup:=TreeViewItem1ApplyStyleLookup;

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

j'avais oublié les BeginUpdate/EndUpdate du TTreeView

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
  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:

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

18/10/2023, 17h24
der§en
C'est résolu pour moi...

Merci SergioMaster de m'avoir mis sur la voie.

J'ai crée une classe enfant à TTtreeviewItem (TMyTreeViewItem), et dans son create, j'ai rajouté ceci:
Code:

1 2 Self.OnApplyStyleLookup := MyApplyStyleLooup;
Dont voici le code:
Code:

1 2 3 4 5 procedure TMyTreeViewItem.MyApplyStyleLookup(Sender: TObject); begin TTreeviewItem(Sender).StylesData['check.visible'] := False; end;
Avec ceci, quel que soit le niveau de l'arborescence ou j'ajoute mon TMyTreeViewItem, la CheckBox est bien invisible.

:ccool: