・お気に入りキャビネットに「これらをすべて開く」を追加。

diff --git a/Giko.dfm b/Giko.dfm
index 4989e9a..d5c35e0 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -4449,7 +4449,7 @@ object GikoForm: TGikoForm
     Left = 4
     Top = 244
     Bitmap = {
-      494C010126002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010126002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000A0000000010020000000000000A0
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000008080000080800000808000000000000000
@@ -5773,13 +5773,14 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+      000000000000}
   end
   object ToobarImageList: TImageList
     Left = 36
     Top = 244
     Bitmap = {
-      494C010126002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010126002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000A0000000010020000000000000A0
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000808080008080800080808000000000000000
@@ -7103,7 +7104,8 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+      000000000000}
   end
   object ItemImageList: TImageList
     Left = 4
@@ -8062,6 +8064,11 @@ object GikoForm: TGikoForm
       ImageIndex = 29
       OnExecute = FavoriteTreeViewDeleteActionExecute
     end
+    object FavoriteTreeViewBrowseFolderAction: TAction
+      Category = #12362#27671#12395#20837#12426#12484#12522#12540#12509#12483#12503#12450#12483#12503
+      Caption = #12371#12428#12425#12434#12377#12409#12390#38283#12367'(&A)'
+      OnExecute = FavoriteTreeViewBrowseFolderActionExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = HotToobarImageList
@@ -9795,6 +9802,12 @@ object GikoForm: TGikoForm
     OnPopup = FavoriteTreePopupMenuPopup
     Left = 100
     Top = 436
+    object FavoriteTreeBrowseFolderPopupMenu: TMenuItem
+      Action = FavoriteTreeViewBrowseFolderAction
+    end
+    object N57: TMenuItem
+      Caption = '-'
+    end
     object FavoriteTreeDeletePopupMenu: TMenuItem
       Action = FavoriteTreeViewDeleteAction
     end

diff --git a/Giko.pas b/Giko.pas
index 8fe9eb2..0e15425 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -487,6 +487,9 @@ type
     FavoriteToolBar: TToolBar;
     ToolButton17: TToolButton;
     ToolButton19: TToolButton;
+    FavoriteTreeViewBrowseFolderAction: TAction;
+    FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
+    N57: TMenuItem;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -768,6 +771,7 @@ type
     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
     procedure ToolButton19Click(Sender: TObject);
+    procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
        private
                { Private \90é\8c¾ }
 
@@ -856,6 +860,7 @@ type
                procedure LinkBarChevronMenu;
                procedure ToolBarChevronMenu(ToolBar: TToolBar);
                procedure ModifySelectList;
+    procedure FavoriteBrowseFolder( node: TTreeNode );
        protected
                procedure CreateParams(var Params: TCreateParams); override;
                procedure WndProc(var Message: TMessage); override;
@@ -7408,26 +7413,32 @@ begin
 
        FClickNode := FavoriteTreeView.Selected;
        if FClickNode = nil then begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
        FavoriteTreeDeletePopupMenu.Enabled := False;
     FavoriteTreeRenamePopupMenu.Enabled := False;
     FavoriteTreeNewFolderPopupMenu.Enabled := False;
   end else if FClickNode.IsFirstNode then begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
        FavoriteTreeDeletePopupMenu.Enabled := False;
     FavoriteTreeRenamePopupMenu.Enabled := False;
     FavoriteTreeNewFolderPopupMenu.Enabled := True;
   end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
        FavoriteTreeDeletePopupMenu.Enabled := True;
     FavoriteTreeRenamePopupMenu.Enabled := False;
     FavoriteTreeNewFolderPopupMenu.Enabled := True;
        end else if TObject(FClickNode.Data) is TFavoriteFolder then begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := True;
        FavoriteTreeDeletePopupMenu.Enabled := True;
     FavoriteTreeRenamePopupMenu.Enabled := True;
     FavoriteTreeNewFolderPopupMenu.Enabled := True;
        end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
        FavoriteTreeDeletePopupMenu.Enabled := True;
     FavoriteTreeRenamePopupMenu.Enabled := True;
     FavoriteTreeNewFolderPopupMenu.Enabled := True;
        end else begin
+       FavoriteTreeBrowseFolderPopupMenu.Enabled := False;
        FavoriteTreeDeletePopupMenu.Enabled := False;
     FavoriteTreeRenamePopupMenu.Enabled := False;
     FavoriteTreeNewFolderPopupMenu.Enabled := False;
@@ -7508,6 +7519,32 @@ begin
   
 end;
 
+procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode );
+var
+       i: Integer;
+begin
+
+       if not (TObject(node.Data) is TFavoriteFolder) then
+       exit;
+
+  for i := 0 to node.Count - 1 do
+       begin
+    if TObject(node.Item[i].Data) is TFavoriteFolder then
+       FavoriteBrowseFolder( node.Item[i] )
+    else if TObject(node.Item[i].Data) is TFavoriteThreadItem then
+               FavoriteClick( node.Item[i] );
+  end;
+
+end;
+
+procedure TGikoForm.FavoriteTreeViewBrowseFolderActionExecute(
+  Sender: TObject);
+begin
+
+  FavoriteBrowseFolder( FClickNode );
+
+end;
+
 initialization
                                OleInitialize(nil);
 finalization

diff --git a/gikoNavi.res b/gikoNavi.res
index 7d3ec6d..ca55928 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ