未読スレがあったときにそのスレのカテゴリ以下すべてに(+)がついてしまう不具合の修正

diff --git a/Giko.pas b/Giko.pas
index 7421912..5c7576e 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2583,9 +2583,9 @@ begin
 
        TreeView.Canvas.Font.Color := clBlue;
        IsBoardNode := False;
-               Cnt := 0;
-       for i := 0 to TreeView.Items.Count - 1 do begin
 
+       for i := 0 to TreeView.Items.Count - 1 do begin
+               Cnt := 0;
                if not TreeView.Items[i].IsVisible then
                        continue;
 
@@ -2628,9 +2628,10 @@ begin
 
                if IsBoardNode then
                        CntText := '(' + IntToStr(Cnt) + ')'
-               else
+               else if Cnt = 1 then
                        CntText := '(+)';
 
+
                TextWidth := TreeView.Canvas.TextWidth(CntText);
 
                TextRect := Rect(NodeRect.Left + NodeWidth + 8,