[Delphi] TreeView met nodes.

[MisterE]

Ik ben bezig met de TreeView component.
nou heb ik dit:

---------------------------------------------------

procedure TForm1.popTreeAddItemClick(Sender: TObject);
var
node : TTreeNode;
childnode : TTreeNode;
NewItem : String;
begin
node := TreeView1.Selected;
InputQuery('Input','Enter the Items name',NewItem);

if NewItem <> '' then
begin
New(p);

p^.Flag := 0;
p^.Text := 'hallo';
p^.Added := Now;
p^.LastVisit := 0;


TreeView1.Items.AddChild(node, NewItem).Data := p;
childnode := node.GetLastChild;

TreeView1.Select(childnode);
TreeView1.Items.Item[childnode.Index].ImageIndex := 1;

//TreeView1.Selected.ImageIndex := 1;
end;
end;

---------------------------------------------------

Ik maak een nieuwe node, en koppel daar data (een pointer) aan.
Probleem:
Hoe krijg ik de index van deze 'AddChild'
Misschien een stomme/simpele vraag, maar ik kom er niet uit...(misschien het hete weer)
Ik wil deze node namelijk een ander icoon geven.
Wat ik nu heb werkt niet.

[mulder]

Kijk eens naar AddChild. Wat geeft die terug.

[MisterE]

zoals ik al zei: 'Warm weer....'

[MisterE]

alleen probleem dit mag niet:

childnode := TreeView1.Items.AddChild(node, NewItem).Data := p;

dus moet toch de index hebben (of ben ik nu helemaal dom aan het lullen)

[mulder]

Volgens mij kun je aan AddChild die p meegeven, weer ik even niet heb hier geen Delphi. Is het niet AddChildObject ofzo?
Anders zou het
childNode := TreeView1.Items.AddChild(node, NewItem);
childNode.Data = p;
kunnen zijn...
childNode.Index kun je ook opvragen.

[Creepy]

newnode:=Treeview1.items.addchildobject(node,'caption van de node',p);

Lang leve de F1 knop! (Delphi help).

edit:
Hmm.. ik vraag me trouwens af wat je met de index van die node wilt.... een node toevoegen met addchildfirst (of was het nou addfirst) en je index klopt niet meer...

[MisterE]

maar waarom werkt dit dan niet:
TreeView1.Items.Item[childnode.Index].ImageIndex := 1;

Dit veranderd wel een icoon maar niet van de nieuwe item maar die van de 'parent' en pas wanneer ik voor de 2e keer op de niewe item druk, met dit statement zeg ik toch dat ie het icoon moet veranderen van de nieuwe item ???

[mulder]

Op maandag 17 juni 2002 21:55 schreef MisterE het volgende:
TreeView1.Items.Item[childnode.Index].ImageIndex := 1;

Geen idee, maar childNode.imageIndex := 1; zal misschien een tip zijn.

Edit:
Wil ook wel een helpen (vet ding trouwens)

[MisterE]

Op maandag 17 juni 2002 22:00 schreef Don Facundo het volgende:

[..]

Geen idee, maar childNode.imageIndex := 1; zal misschien een tip zijn.



Edit:
Wil ook wel een helpen (vet ding trouwens)

Helaas die code doet hetzelfde.


Hmmm, ding is voor de vloer, dan krijg ik alleen koude benen.

[bijdehand mode]
Zou je dat ding ook in bed kunenn leggen
[/Bijdehand mode]

[whoami]

Sorry dat ik het moet zeggen hoor, maar al die problemen zijn toch makkelijk in de help terug te vinden. F1 is jouw vriend, en die moet je imho eerst gebruiken ipv direct je toevlucht op GoT te zoeken.

Om je image te veranderen, probeer even dit:

code:

NewNode := Treeview1.AddChild(...);
NewNode.ImageIndex := 4;