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:
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:
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