Left = 4
Top = 244
Bitmap = {
- 494C010126002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+ 494C010126002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000040000000A0000000010020000000000000A0
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000008080000080800000808000000000000000
00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
000000000000861F800000000000C20FC00100000000E007F81F00000000F043
F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
- F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+ F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+ 000000000000}
end
object ToobarImageList: TImageList
Left = 36
Top = 244
Bitmap = {
- 494C010126002700040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+ 494C010126002700040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
000000000000360000002800000040000000A0000000010020000000000000A0
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000808080008080800080808000000000000000
00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
000000000000861F800000000000C20FC00100000000E007F81F00000000F043
F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
- F81FE0FFE007FFFFF83FFFFFF81FFFFF}
+ F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
+ 000000000000}
end
object ItemImageList: TImageList
Left = 4
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
OnPopup = FavoriteTreePopupMenuPopup
Left = 100
Top = 436
+ object FavoriteTreeBrowseFolderPopupMenu: TMenuItem
+ Action = FavoriteTreeViewBrowseFolderAction
+ end
+ object N57: TMenuItem
+ Caption = '-'
+ end
object FavoriteTreeDeletePopupMenu: TMenuItem
Action = FavoriteTreeViewDeleteAction
end
FavoriteToolBar: TToolBar;
ToolButton17: TToolButton;
ToolButton19: TToolButton;
+ FavoriteTreeViewBrowseFolderAction: TAction;
+ FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
+ N57: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CabinetPanelHide(Sender: TObject);
procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
+ procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
private
{ Private \90é\8c¾ }
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;
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;
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