如何做类似FOXMAIL左边的那棵树，有几封新邮件提示 ( 积分: 5 )

procedure TProjectMail_Frm.MailTree_TrvCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
NodeRect := Node.DisplayRect(True);
NodeRect.Left := NodeRect.Right + 2;
NodeRect.Top := NodeRect.Top + 2;
Sender.Canvas.TextOut(NodeRect.Left, NodeRect.Top, '1');
end;

我写了如上代码，哪位大哥帮忙调试一下，谢谢！

http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站
http://www.51zhan.com 最好的网址站