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

Was heißt "geht nicht"?

Ich bekomme gleich zu Programmstart die Meldung, dass der Index die Listenlänge überschreitet.
Es steht aber Knoten im TreeView vorhanden.

Hallo

Lasst das .Item[0] weg.

Ok, damit bleibt die Fehlermeldung aus.
Klingt auch logisch: Node.Item bezog sich sicherlich auf Unterknoten. Und die gabs nicht.
Aber jetzt wird der komplette Eintrag rot gefärbt. Ich wollte ja nur die ersten paar Buchstaben einfärben.
Was muss ich dafür noch tun?

Gruß
changlee