procedure TAddressBookForm.TreeViewAdvancedCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
if Stage = cdPostPaint then
begin
NodeRect := Node.DisplayRect(True);
TreeView.Canvas.Font.Color := clBlue;
TreeView.Canvas.Brush.Style := bsClear;
TreeView.Canvas.TextOut(NodeRect.Right, NodeRect.Top + 2, '(1)');
end;
end;
