| 487 |
FavoriteToolBar: TToolBar; |
FavoriteToolBar: TToolBar; |
| 488 |
ToolButton17: TToolButton; |
ToolButton17: TToolButton; |
| 489 |
ToolButton19: TToolButton; |
ToolButton19: TToolButton; |
| 490 |
|
FavoriteTreeViewBrowseFolderAction: TAction; |
| 491 |
|
FavoriteTreeBrowseFolderPopupMenu: TMenuItem; |
| 492 |
|
N57: TMenuItem; |
| 493 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 494 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 495 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 771 |
procedure FavoriteTreeViewRenameActionExecute(Sender: TObject); |
procedure FavoriteTreeViewRenameActionExecute(Sender: TObject); |
| 772 |
procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject); |
procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject); |
| 773 |
procedure ToolButton19Click(Sender: TObject); |
procedure ToolButton19Click(Sender: TObject); |
| 774 |
|
procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject); |
| 775 |
private |
private |
| 776 |
{ Private 宣言 } |
{ Private 宣言 } |
| 777 |
|
|
| 860 |
procedure LinkBarChevronMenu; |
procedure LinkBarChevronMenu; |
| 861 |
procedure ToolBarChevronMenu(ToolBar: TToolBar); |
procedure ToolBarChevronMenu(ToolBar: TToolBar); |
| 862 |
procedure ModifySelectList; |
procedure ModifySelectList; |
| 863 |
|
procedure FavoriteBrowseFolder( node: TTreeNode ); |
| 864 |
protected |
protected |
| 865 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 866 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 7413 |
|
|
| 7414 |
FClickNode := FavoriteTreeView.Selected; |
FClickNode := FavoriteTreeView.Selected; |
| 7415 |
if FClickNode = nil then begin |
if FClickNode = nil then begin |
| 7416 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := False; |
| 7417 |
FavoriteTreeDeletePopupMenu.Enabled := False; |
FavoriteTreeDeletePopupMenu.Enabled := False; |
| 7418 |
FavoriteTreeRenamePopupMenu.Enabled := False; |
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7419 |
FavoriteTreeNewFolderPopupMenu.Enabled := False; |
FavoriteTreeNewFolderPopupMenu.Enabled := False; |
| 7420 |
end else if FClickNode.IsFirstNode then begin |
end else if FClickNode.IsFirstNode then begin |
| 7421 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := True; |
| 7422 |
FavoriteTreeDeletePopupMenu.Enabled := False; |
FavoriteTreeDeletePopupMenu.Enabled := False; |
| 7423 |
FavoriteTreeRenamePopupMenu.Enabled := False; |
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7424 |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7425 |
end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
| 7426 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := True; |
| 7427 |
FavoriteTreeDeletePopupMenu.Enabled := True; |
FavoriteTreeDeletePopupMenu.Enabled := True; |
| 7428 |
FavoriteTreeRenamePopupMenu.Enabled := False; |
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7429 |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7430 |
end else if TObject(FClickNode.Data) is TFavoriteFolder then begin |
end else if TObject(FClickNode.Data) is TFavoriteFolder then begin |
| 7431 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := True; |
| 7432 |
FavoriteTreeDeletePopupMenu.Enabled := True; |
FavoriteTreeDeletePopupMenu.Enabled := True; |
| 7433 |
FavoriteTreeRenamePopupMenu.Enabled := True; |
FavoriteTreeRenamePopupMenu.Enabled := True; |
| 7434 |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7435 |
end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin |
end else if TObject(FClickNode.Data) is TFavoriteThreadItem then begin |
| 7436 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := False; |
| 7437 |
FavoriteTreeDeletePopupMenu.Enabled := True; |
FavoriteTreeDeletePopupMenu.Enabled := True; |
| 7438 |
FavoriteTreeRenamePopupMenu.Enabled := True; |
FavoriteTreeRenamePopupMenu.Enabled := True; |
| 7439 |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7440 |
end else begin |
end else begin |
| 7441 |
|
FavoriteTreeBrowseFolderPopupMenu.Enabled := False; |
| 7442 |
FavoriteTreeDeletePopupMenu.Enabled := False; |
FavoriteTreeDeletePopupMenu.Enabled := False; |
| 7443 |
FavoriteTreeRenamePopupMenu.Enabled := False; |
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7444 |
FavoriteTreeNewFolderPopupMenu.Enabled := False; |
FavoriteTreeNewFolderPopupMenu.Enabled := False; |
| 7519 |
|
|
| 7520 |
end; |
end; |
| 7521 |
|
|
| 7522 |
|
procedure TGikoForm.FavoriteBrowseFolder( node: TTreeNode ); |
| 7523 |
|
var |
| 7524 |
|
i: Integer; |
| 7525 |
|
begin |
| 7526 |
|
|
| 7527 |
|
if not (TObject(node.Data) is TFavoriteFolder) then |
| 7528 |
|
exit; |
| 7529 |
|
|
| 7530 |
|
for i := 0 to node.Count - 1 do |
| 7531 |
|
begin |
| 7532 |
|
if TObject(node.Item[i].Data) is TFavoriteFolder then |
| 7533 |
|
FavoriteBrowseFolder( node.Item[i] ) |
| 7534 |
|
else if TObject(node.Item[i].Data) is TFavoriteThreadItem then |
| 7535 |
|
FavoriteClick( node.Item[i] ); |
| 7536 |
|
end; |
| 7537 |
|
|
| 7538 |
|
end; |
| 7539 |
|
|
| 7540 |
|
procedure TGikoForm.FavoriteTreeViewBrowseFolderActionExecute( |
| 7541 |
|
Sender: TObject); |
| 7542 |
|
begin |
| 7543 |
|
|
| 7544 |
|
FavoriteBrowseFolder( FClickNode ); |
| 7545 |
|
|
| 7546 |
|
end; |
| 7547 |
|
|
| 7548 |
initialization |
initialization |
| 7549 |
OleInitialize(nil); |
OleInitialize(nil); |
| 7550 |
finalization |
finalization |