キャビネットでBBSを表示していて、板を選択していて、その板を含むカテゴリを

縮小したときに、スクロールが発生する条件で、スレ一覧がカテゴリの無いように
変更されない不具合の修正。

diff --git a/Giko.pas b/Giko.pas
index 63ae1cc..7ebc2c6 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3508,6 +3508,9 @@ begin
        end else if TObject(Node.Data) is TBoard then begin
                TBoard(Node.Data).NodeExpand := False;
        end;
+       if (TreeView.Selected <> nil) and (TreeView.Selected = Node) then begin
+       TreeClick(TreeView.Selected);
+       end;
 end;
 
 procedure TGikoForm.MessageListViewResize(Sender: TObject);
@@ -7679,7 +7682,7 @@ procedure TGikoForm.FavoriteTreeViewCollapsing(Sender: TObject;
   Node: TTreeNode; var AllowCollapse: Boolean);
 begin
        //\8fk\8f¬\82³\82ê\82½\82ç\95Û\91¶\82³\82ê\82Ä\82¢\82é\83N\83\8a\83b\83N\8e\9e\91I\91ð\83A\83C\83e\83\80\82ð\83N\83\8a\83A
-       FClickNode := nil;
+       FClickNode := Node;
 end;
 // *************************************************************************
 //! \82¨\8bC\82É\93ü\82è\83c\83\8a\81[\82Ì\83A\83C\83e\83\80\82Ì\93W\8aJ\8e\9e\83C\83x\83\93\83g
@@ -7688,7 +7691,7 @@ procedure TGikoForm.FavoriteTreeViewExpanding(Sender: TObject;
   Node: TTreeNode; var AllowExpansion: Boolean);
 begin
        //\93W\8aJ\82³\82ê\82½\82ç\95Û\91¶\82³\82ê\82Ä\82¢\82é\83N\83\8a\83b\83N\8e\9e\91I\91ð\83A\83C\83e\83\80\82ð\83N\83\8a\83A
-       FClickNode := nil;
+       FClickNode := Node;
 end;
 // *************************************************************************
 //! \83c\83\8a\81[\83r\83\85\81[\82Ì\83A\83C\83e\83\80\82Ì\8fk\8f¬\8e\9e\83C\83x\83\93\83g