Einzelne Buchstaben in einem TreeView-Knoten einfärben

Hallo,

ich möchte in einem TreeViewItem einige Buchstaben/Zahlen rot färben.
Ich habe hier im Forum eine Thema gefunden, indem sowas ähnliches in einer Listbox gemacht werden sollte:

hier gehts zu diesem Thema.

Der dort gegeben Code funktioniert bei einer Listbox.
Ich habe versucht, ihn an ein TreeView anzupassen, aber ich bekomms einfach nicht hin.
Kann mir jemand helfen?

Folgender Code funktioniert bei einer Listbox:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

Var Textbreite:integer;

    s:string;

begin

  //style der listbox auf ownerdrawfixed stellen!

  with control as TListBox do

    begin

      //Hintergrund

      canvas.FillRect(rect);

      //ersten Teil des strings

      s:=copy(items[index],1,10);

      canvas.font.Color:=clred;

      canvas.Font.Style:=[fsbold];

      canvas.TextOut(rect.Left+2,rect.top+2,s);

      Textbreite:=canvas.TextWidth(s);

      //zweiter Teil des strings

      s:=copy(items[index],10,length(items[index]));

      canvas.font.Color:=clWindowText;

      canvas.Font.Style:=[];

      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s);

    end;

end;

Hab mal versucht es anzupassen, geht aber nicht:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;

  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

Var Textbreite:integer;

    s:string;

    rect:Trect;

begin

  with sender do// as TListBox do

    begin

      //Hintergrund

      rect := Node.Item[0].DisplayRect(false);

      canvas.FillRect(rect);

      //ersten Teil des strings

      s:=copy(Node.Item[0].Text,1,10);

      canvas.font.Color:=clred;

      canvas.Font.Style:=[fsbold];

      canvas.TextOut(rect.Left+2,rect.top+2,s);

      Textbreite:=canvas.TextWidth(s);

      //zweiter Teil des strings

      s:=copy(Node.Item[0].Text,10,length(Node.Item[0].Text));

      canvas.font.Color:=clWindowText;

      canvas.Font.Style:=[];

      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s);

    end;

end;

Ich habe mit TreeViews einfach keine Erfahrung.

Hier habe ich auch noch etwas gefunden, was eigentlich zu meinem Problem passt. Aber wenn ich den dort gegeben Quellcode nehme, erhalte ich viele Fehler wegen undefinierter Bezeichner und Funktionen.

Wär nett wenn mir jemand helfen würde!

Gruß
changlee

Einzelne Buchstaben in einem TreeView-Knoten einfärben

Einzelne Buchstaben in einem TreeView-Knoten einfärben

Forumregeln