OSDN Git Service

ログを削除した際に未読スレッド数 (UnRead) の表示が更新されないバグを修正。
authoryoffy <yoffy>
Thu, 9 Sep 2004 17:13:03 +0000 (17:13 +0000)
committeryoffy <yoffy>
Thu, 9 Sep 2004 17:13:03 +0000 (17:13 +0000)
BoardGroup.pas
Giko.pas

index 92d2116..4ed1330 100644 (file)
@@ -1668,9 +1668,11 @@ procedure TThreadItem.DeleteLogFile;
 begin
        ParentBoard.BeginUpdate;
 
+       if FUnRead then
+               ParentBoard.UnRead := ParentBoard.UnRead - 1;
        DeleteFile(GetThreadFileName);
-               if FileExists(ChangeFileExt(GetThreadFileName,'.NG')) = true then
-                       DeleteFile(ChangeFileExt(GetThreadFileName,'.NG'));
+       if FileExists(ChangeFileExt(GetThreadFileName,'.NG')) = true then
+               DeleteFile(ChangeFileExt(GetThreadFileName,'.NG'));
        FRoundDate := ZERO_DATE;
        FLastModified := ZERO_DATE;
        FSize := 0;
index 3555c92..ec3f6aa 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -5694,6 +5694,8 @@ begin
                        DeleteHistory(ThreadItem);
                        DeleteTab(ThreadItem);
                        ThreadItem.DeleteLogFile;
+                       
+                       TreeView.Refresh;       // UnRead \82Ì\95\\8e¦\82ð\8dX\90V
                end;
                ListView.Refresh;
        finally