1.511.2.8の修正だとスレをDLしてもスクロールしてしまっていたので、スクロールしないように

修正した。

diff --git a/Giko.pas b/Giko.pas
index 633b25e..3e8edcd 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3608,8 +3608,6 @@ begin
                                if GetActiveList = Item.Board then begin
                                        FActiveList := nil;
                                        SetActiveList(Item.Board);
-                               end else begin
-                                       ListView.Refresh;
                                end;
                                Item.Board.Modified := True;
                                Item.Board.IsThreadDatRead := True;
@@ -3672,14 +3670,19 @@ begin
                                TreeView.Refresh;
                                //ListView\82Å\82±\82Ì\83X\83\8c\82ª\8aÜ\82Ü\82ê\82é\94Â\82ð\95\\8e¦\82µ\82Ä\82¢\82é\82Æ\82«\82Ì\8dX\90V\8f\88\97\9d
                                if (ActiveList <> nil) and (ActiveList is TBoard) then begin
-                                       if( ActiveList = Item.ThreadItem.ParentBoard ) then begin
-                                               SetActiveList(ActiveList);
+                                       TBoard(ActiveList).LogThreadCount := TBoard(ActiveList).GetLogThreadCount;
+                                       TBoard(ActiveList).NewThreadCount := TBoard(ActiveList).GetNewThreadCount;
+                                       TBoard(ActiveList).UserThreadCount:= TBoard(ActiveList).GetUserThreadCount;
+                    //ListView\82Ì\83A\83C\83e\83\80\82Ì\8cÂ\90\94\82à\8dX\90V
+                                       case GikoForm.ViewType of
+                                               gvtAll: ListView.Items.Count := TBoard(ActiveList).Count;
+                                               gvtLog: ListView.Items.Count := TBoard(ActiveList).LogThreadCount;
+                                               gvtNew: ListView.Items.Count := TBoard(ActiveList).NewThreadCount;
+                                               gvtUser: ListView.Items.Count := TBoard(ActiveList).UserThreadCount;
                                        end;
-                               end else begin
-                       ListView.Refresh;
                                end;
                        end;
-//                     ListView.Refresh;
+                       ListView.Refresh;
                end else if Item.State = gdsNotModify then begin
                        //\95Ï\8dX\83i\83V
 {                      if (Item.DownType = gdtThread) and (AddHistory(Item.ThreadItem)) then begin
@@ -3691,7 +3694,7 @@ begin
                        Screen.Cursor := crDefault;
                end else if Item.State = gdsAbort then begin
                        //\92\86\92f
-                        AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
+                                               AddMessageList(ATitle + ' ' + GikoSys.Setting.GetMessage(Ord(gmAbort)), nil, gmiOK);
                end else if Item.State = gdsError then begin
                        //\83G\83\89\81[
                        s := Item.ErrText;