Also das mit der CaseAnweisung funktioniert nicht. StringTypen sind da nicht erlaubt.
Jetzt hab ich mal ein Treeview mit den Werten A,B,C und D vorbelegt, und mit if/then nach ABCD abgefragt. Der Baum wird vierfarbig gezeichnet.
Hier die Prozedur:
Code:
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If node.Text= 'A' then
treeview1.canvas.font.Color:=clGreen
else
If node.Text= 'B' then
treeview1.canvas.font.Color:=clred
else
If node.Text= 'C' then
treeview1.canvas.font.Color:=clyellow
else
If node.Text= 'D' then
treeview1.canvas.font.Color:=clblue ;
end;