Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
29. Okt 2006
@marabu versteh Ich jetzt nicht, was könnte denn Passieren ?
Meinst Du FILE.TXT.txt das haut alles soweit hin, bis jetzt jedenfalls.
Blackheart
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
29. Okt 2006
Danke habs grad hinbekommen if extractfileext(Node.Text)='.txt'
Blackheart
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
29. Okt 2006
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.
procedure TForm1.TreeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
i:Integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
29. Okt 2006
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..
procedure TForm1.TreeCustomDrawItem(Sender: TCustomTreeView;