From: h677 <h677>
Date: Tue, 7 Oct 2003 14:06:16 +0000 (+0000)
Subject: 未読スレがあったときにそのスレのカテゴリ以下すべてに(+)がついてしまう不具合の修正
X-Git-Tag: v1_64_1_820~1832
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=3e206c215ac10e0adc84bd01f85bd3823853768f;p=gikonavigoeson%2Fgikonavi.git

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

diff --git a/Giko.pas b/Giko.pas
index 7421912..5c7576e 100644
--- 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,