Discussion :

[colorid]

Bonjour,

J'ai un treeview qui est déjà rempli
Je veux changer le type d'arborescence avec le code suivant :

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
procedure TInfo.RadioGroup1Click(Sender: TObject);
var
  i: integer;
begin
  TV.Items.Clear;
  TV.Canvas.Refresh;
  i:= RadioGroup1.ItemIndex;
  case i of
    -1: exit;
    0 : begin
        ReadComponentResFile(CurArboTypeFile+CurBathFile+'.dat',TV);
        StatusBar.SimpleText := CurBathFile;
    end;
    1: begin
        ReadComponentResFile(CurArboTypeFile+CurFamilliesFile+'.dat',TV);
        StatusBar.SimpleText := CurFamilliesFile;
    end;
  end;
  TV.FullExpand;
end;

Si le treeview est vide la première action se déroule bien
Au changement de RadioGroup1.ItemIndex si le treeview a déja été rempli je déclenche une erreur Violation d'accès

Toutes vos propositions seront les bienvenues pour corriger le tir

[ShaiLeTroll]

ReadComponentResFile !
Ah oui, tu n'y va pas en douceur !
Tu n'as rien de plus léger pour stocker ton TV ?
Tu pourrais utiliser TTreeView.SaveToFile et LoadFromFile, cela donne un fichier bien plus simple à comprendre !

Je suppose que tu as tester séparément chaque fichier et tous fonctionne !

au pire

Code :

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

1
2
3
4
5
6
7
8
9
10
begin
  TV2 := TTreeView.Create(Self);
  TV2.Parent := TV.Parent;
  TV2.SetBounds(TV.BoundRect);
  TV.Free();
  TV := TV2;
 
  ...
 
end;

tu n'avais pas déjà posé la question "Access violation avec treeview" et ne t'avais-je pas déjà conseillé de le faire manuellement comme dans Gestion complète d'une TreeView: ajout de noeuds, records et sauvegarde du tout

[colorid]

Merci c'est en effet plus simple !

Mais je suis surpris qu'il n'existe pas sur un treeview une barre de défilement !
Comment faire pour que l'arborscence soit consultable avec une barre de défilement ?

[ShaiLeTroll]

Normalement c'est automatique !
Dans une application à bordel, j'ai un TTreeView, dès que j'ai un élément trop grand ou bcp d'items en vertical, les ScrollBars sont là, j'ai même un Hint sur les Items trop long !

cette application de test a été compilé sur D7 en 2010 et exécuté sur XP (autre poste que celui de la compil)

[colorid]

Bon j'ai trouvé pourquoi la barre de défilement ne s'affiche pas :
Le treeview est dans un frame que j'appelle de la form! Je l'ai placé sur la form et ça marche !
Bizare bizare...