procedure TFormMainMenu.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin if (Node.Level = 1) and (POS('(√)',Node.Text) = 0) then //根据结点的内容进行判断 begin DefaultDraw:=True ; TV.Canvas.Font.Color:=clRed; TV.Canvas.Textout(Node.DisplayRect(True).Left+2,Node.DisplayRect(True).Top+2,Node.Text); end; end;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Node.Level = 1) and (POS('(√)',Node.Text) = 0) then //根据结点的内容进行判断
begin
DefaultDraw:=True ;
TV.Canvas.Font.Color:=clRed;
TV.Canvas.Textout(Node.DisplayRect(True).Left+2,Node.DisplayRect(True).Top+2,Node.Text);
end;
end;