お気に入りフォルダの展開情報が正しく読み込まれていなかったバグを修正。

diff --git a/Favorite.pas b/Favorite.pas
index 40912b8..eb09cfe 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -357,12 +357,13 @@ begin
                        CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder);
                        CurrentNode.ImageIndex := 14;
                        CurrentNode.SelectedIndex := 14;
-                       CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
                        FStack.Push(CurrentNode);
                end;
                for i := 0 to Node.ChildNodes.Count - 1 do begin
                        ReadNode(Node.ChildNodes[i]);
                end;
+               if TObject(ParentNode.Data) is TFavoriteFolder then
+                       CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
                if FStack.Count <> 0 then
                        FStack.Pop;
        end else if Node.NodeName = 'favitem' then begin