Systemimgelist speichern

[verkouter]

Ich habe folgendes vor, man legt eine CD ins Laufwerk ein und mein Programm liest
die gesammte Verzeichnisstruktur in ein Treeview ein.Die Systeimagelist ist mit dem
Treeview verknüpft.Dann soll das Treeview inclusive Imagelist gespeichert werden, so
daß ich auch ohne CD durch die Verzeichnisstruktur blättern kann.
Mit dieser Procedur kann man ein Treeview als Stream speichern, das funktioniert
aber nur,wenn ich einer Imagelist selber schon Icons zugewiesen habe.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TFileStream;
begin
  F := TFileStream.Create('c:\TreeView.txt', fmCreate or fmShareCompat);
  try
    F.WriteComponent(TreeView1);
  finally
    F.Free;
  end;
end;

[himitsu]

Tja, das speichert eben nur den TreeView und darin stehen halt nur die Indize zu den verknüpften ImageLists.

Probier doch einfach mal, auch noch die ImageList zu speichern und zu laden.

[verkouter]

Ich habe jetzt eine Möglichkeit gefunden die Imagelist zu speichern.
Leider ist die immer viel zu klein.Es werden nur 6-10 Icons gespeichert.
Das liegt aber nicht am speichern.Zu Testzwecken habe ich die Imagelist mit einer
Toolbar verknüpft und lassen mir die Icons darstellen,da sind es auch nicht mehr.