Treeview Einträge färben ?

[Blackheart]

Hallo Leute
Kann man einzelne Einträge im Treeview irgendwie Färben
also in etwa so

Ordner1
Datei.text
Datei.jpg

Alle Eintäge färben funktioniert aber..

Delphi-Quellcode:

procedure TForm1.TreeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
   if Tree.Items[i].Text = 'Datei.txt' then
   Tree.Canvas.font.Color:=255;
end;

Blackheart

[marabu]

Hallo,

hast du dir das Delphi-Beispiel zu TreeView.OnCustomDrawItem() einmal angesehen?

Grüße vom marabu

[Blackheart]

Hab das soweit jetzt hinbekommen, hab jetz aber noch irgendwo noch einen Denkfehler drin er sollte Mir alle textdateien enfärben, aber
das klappt noch nicht ganz wenn Ich die Datei direkt angebe
if Node.text='Datei.txt' dann klappts.

Delphi-Quellcode:

procedure TForm1.TreeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
i:Integer;
begin
 For i := 0 to Tree.Items.Count-1 do
  begin
  ext:= extractfileext(tree.Items[i].Text);
      with Sender.Canvas do
       if Node.text='.txt' then
         begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clBlue;
             Font.Size:=8;
        end else begin
        if Node.Count=0 then
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clRed;
             Font.Size:=7;
          Label1.Caption:=ext;
        end;
  end;
end;

[marabu]

Was willst du denn mit der Zählschleife erreichen? Weg damit!

Delphi-Quellcode:

// ...
  if AnsiSameText(ExtractFileExt(Node.Text), '.txt') then
// ...

Grüße

[Blackheart]

Danke habs grad hinbekommen if extractfileext(Node.Text)='.txt'
Blackheart

[marabu]

Was passiert bei deinem Code, wenn die Datei FILE.TXT heißt?

Nachdenkliche Grüße

[Blackheart]

@marabu versteh Ich jetzt nicht, was könnte denn Passieren ?
Meinst Du FILE.TXT.txt das haut alles soweit hin, bis jetzt jedenfalls.
Blackheart

[Nils_13]

Ich denke, Marubu meint, dass du erst noch mit FileExists überprüfen solltest, ob die Datei überhaupt existiert.

[marabu]

Eigentlich wollte ich nur auf die Empfindlichkeit bei Groß-/Klein-Schreibung hinweisen, die ich mit AnsiSameText() umgehe - genauso wie das Problem mit nationalen Sonderzeichen.

Grüße