TTreeView und Icons

Computer: Software & Programmierung Delphi & Pascal
1

Hallo!

Ich prgrammiere zur Zeit einen Zeitschriftenverwalter.
Dabei habe ich leider folgendes Problem:
Wie kann ich die Icons einer TTreeView abspeichern und laden?

Zum speichern habe ich mir etwa folgendes gedacht:

TreeView1.Selcted.Text := inttostr(TreeView1.Selected.ImageIndex)

  • TreeView1.Selected.Text;

Und zum Laden:

Treeview1.Selcted.ImageIndex := strtoint( Copy(1, 2,
TreeView1.Selected.Text) );
Delete(1, 2, Treeview1.Selected.Text);

Das ganze würde ich mit OnGetSelcted verwirklichen. Aber wie kann ich
alle Nodes einmal kurz auswählen, und danch wieder den ersten Node
der TTreeView?

Vielen Dank für Ihre Hilfe schon mal im Vorraus,
Tschüs
Robert Högerl

PS: Ich bin folgendermaßen erreichbar:
a) Mail: [email protected]
b) ICQ : 166919374
c) MSN Messnger: [email protected]

2

Mir geht es jetzt eigentlich nur noch darum, wie ich alle Nodes der TTreeview nacheinnader selektieren kann. Und wenn das geschehen ist, würde ich gern wieder den esten Node selektieren.

Hat jemand ne Ahnung,wie das geht?

TSchüs
Robert Högerl

3

Mir geht es jetzt eigentlich nur noch darum, wie ich alle
Nodes der TTreeview nacheinnader selektieren kann. Und wenn
das geschehen ist, würde ich gern wieder den esten Node
selektieren.

Hat jemand ne Ahnung,wie das geht?

ja, setze die eigenschaft in einer schleife auf das jeweilige Items und wenn die erledigt ist setze selected wieder auf items[0]

oder hab ich da jetzt was falsch verstanden???

Grüsse-Sven.

4

Richtig verstanden hast du es. Danke!
Aber wie finde ich heraus, welches das letzte Item war? Denn sonst gibts doch wahrscheinlich eine Fehlermeldung, wenn die Schleife immer weiter mach, oder?
Trotzdem danke!

Tschüs
Robert Högerl

ja, setze die eigenschaft in einer schleife auf das jeweilige
Items und wenn die erledigt ist setze selected wieder auf
items[0]

oder hab ich da jetzt was falsch verstanden???

Grüsse-Sven.

5

Richtig verstanden hast du es. Danke!
Aber wie finde ich heraus, welches das letzte Item war? Denn
sonst gibts doch wahrscheinlich eine Fehlermeldung, wenn die
Schleife immer weiter mach, oder?
Trotzdem danke!

Achso das is das Problem!

for x:=0 to Treeview.Items.Count-1 do
begin
Treeview.Selected:=Treeview.Items[x];
end;
Treeview.Selected :=Treeview.Items[0];

Oder so halt.

GrüsseSven.

6

Hallo nochmal!

.Count gibt,soweit ich weiss, alle Treenodes an, sprich auch die untenliegenden von übergeordneten Nodes-Hoffe dass das so gewünscht ist, ansonsten muss ich mal sehn.

CiaoSven.