anchor.diff:      Result := 0
     else
     begin
  -    Result := FFont.TextWidth(ANode.Text) + 2;
  +    Result := FFont.TextWidth(ANode.Text) + 4;
       if ShowImages and ((ImageList <> nil) or (StateImageList <> nil)) then
       begin
         if ImageList <> nil then
  
positive.code: //  inherited HandlePaint;
  
    Canvas.ClearClipRect;
    Canvas.Clear(FBackgroundColor);
  
    // Limit painting in the UI Designer
    if csDesigning in ComponentState then
  
negative.code:         Canvas.FillRectangle(w + imgx - FXOffset, ACenterPos - (GetNodeHeight div 2), GetNodeWidth(h) - imgx, GetNodeHeight);
        end;
  
        Canvas.DrawString(w + imgx - FXOffset + 2 { small spacing }, ACenterPos - (GetNodeHeight div 2), h.text);
  
        Canvas.SetTextColor(h.ParentTextColor);
        Canvas.SetLineStyle(1, FTreeLineStyle);
  