TreeView: Knoten und deren Unterpunkte farbig gliedern...

Terra23 · Beiträge: 872 Win 8 Delphi 7

Hi!

Die Suche brachte mir leider keine Ergebnisse, daher mal meine Frage:

Ich habe ein TreeView. Dieses besitzt 3 Knoten und jeder Knoten hat unterschiedlich viele Unterpunkte.

Nun möchte ich gern, dass z.B. der erste Knoten mit allen Unterpunkten orange wird, der zweit grün und der dritte lila.

Kann ich das irgendwie bewerkstelligen?

Leider bin ich im Moment auf der Arbeit (Nachtschicht) und habe daher kein Delphi. Ansonsten hätte ich selbst ein wenig herumexperimentiert.

Gruß,

Terra

_________________
Hasta La Victoria Siempre

Tryer · Beiträge: 226 Erhaltene Danke: 7

Geht z.B. in OnCustomDrawItem:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  n: TTreeNode;
begin
  n := Node;
  while n.Parent <> nil do
    n := n.Parent;
  case n.Index of
    0: Sender.Canvas.Font.Color := $000080FF;
    ...
  end;
end;

Grüsse, Dirk

Terra23 · Beiträge: 872 Win 8 Delphi 7

Tryer hat folgendes geschrieben :

Geht z.B. in OnCustomDrawItem:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  n: TTreeNode;
begin
  [b]n := Node;[/b]
  while n.Parent <> nil do
    n := n.Parent;
  case n.Index of
    0: Sender.Canvas.Font.Color := $000080FF;
    ...
  end;
end;

Grüsse, Dirk

An der fett markierten Stelle kriege ich ne Fehlermeldung: "Undefinierter Bezeichner: 'Node'". Was ist da zu tun?

Ich kann mir das leider weder allein noch mit der Delphi-Hilfe herleiten...

_________________
Hasta La Victoria Siempre

Tryer · Beiträge: 226 Erhaltene Danke: 7

Wie ist den bei Deiner Delphiversion der CustomDrawItem - Event deklariert?

Terra23 · Beiträge: 872 Win 8 Delphi 7

Sorry, mein Fehler. Habe das Ereignis CustomDraw genommen statt CustomDrawItem.

Gruß,

Terra

_________________
Hasta La Victoria Siempre

Terra23 · Beiträge: 872 Win 8 Delphi 7

Was mir aber noch eingefallen ist:

Wenn ich einen Eintrag auswähle, würde ich gern die Farbe des Items schwarz färben. Kann ich das auch irgendwie bewerkstelligen?

Terra

_________________
Hasta La Victoria Siempre

Tryer · Beiträge: 226 Erhaltene Danke: 7

Gibt´s da nicht sowas wie "State: TDrawState" oder so?

markieren

Delphi-Quelltext

1:
2:
3:
4:

case State of 
  odSelected:... //schwarz
else
  ... //orange oder so

Das sollte die Hilfe zum Event eigentlich hergeben, bin gerade zu faul nachzusehen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme