Treeview et image

**yannba** · 27/01/2006, 16h16

Bonjour,

J'utilise un fichier *.ini pour sauvegarder mes noeuds de mon Treeview.
Lorsqu'il remplit mon treeview, je voudrais qu'il affiche également une image rcupérée par un combobox.
Avez-vous une idée ?

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
procedure TreeFromIni(TreeView2: TTreeView; INI: TIniFile; Section: string;Expand: Boolean);
var
  n: Integer;
  MS: TMemoryStream;
  tTv: TStringList;
begin
  tTv := TStringList.Create;
  MS := TMemoryStream.Create;
  try
    INI.ReadSection(Section, tTv);
    for n := 0 to tTv.Count - 1 do
        tTv[n] := StringReplace(INI.ReadString(Section, tTv[n], ''), '#', #9,[rfReplaceAll]);
        tTv.SaveToStream(MS);
        MS.Position := 0;
        TreeView2.LoadFromStream(MS);
        if (Expand = True) and (TreeView2.Items.Count > 0) then TreeView2.Items[0].Expand(True);
    finally
        tTv.Free;
        MS.Free;
    end;
end;