| 7390 |
|
|
| 7391 |
Case Key of |
Case Key of |
| 7392 |
VK_F2: |
VK_F2: |
| 7393 |
FavoriteTreeViewRenameActionExecute( Sender ); |
begin |
| 7394 |
|
FClickNode := FavoriteTreeView.Selected; |
| 7395 |
|
FavoriteTreeViewRenameActionExecute( Sender ); |
| 7396 |
|
end; |
| 7397 |
VK_DELETE: |
VK_DELETE: |
| 7398 |
FavoriteTreeViewDeleteActionExecute( Sender ); |
begin |
| 7399 |
|
FClickNode := FavoriteTreeView.Selected; |
| 7400 |
|
FavoriteTreeViewDeleteActionExecute( Sender ); |
| 7401 |
|
end; |
| 7402 |
end; |
end; |
| 7403 |
|
|
| 7404 |
end; |
end; |
| 7415 |
FavoriteTreeDeletePopupMenu.Enabled := False; |
FavoriteTreeDeletePopupMenu.Enabled := False; |
| 7416 |
FavoriteTreeRenamePopupMenu.Enabled := False; |
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7417 |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7418 |
|
end else if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
| 7419 |
|
FavoriteTreeDeletePopupMenu.Enabled := True; |
| 7420 |
|
FavoriteTreeRenamePopupMenu.Enabled := False; |
| 7421 |
|
FavoriteTreeNewFolderPopupMenu.Enabled := True; |
| 7422 |
end else if TObject(FClickNode.Data) is TFavoriteFolder then begin |
end else if TObject(FClickNode.Data) is TFavoriteFolder then begin |
| 7423 |
FavoriteTreeDeletePopupMenu.Enabled := True; |
FavoriteTreeDeletePopupMenu.Enabled := True; |
| 7424 |
FavoriteTreeRenamePopupMenu.Enabled := True; |
FavoriteTreeRenamePopupMenu.Enabled := True; |
| 7438 |
procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
| 7439 |
begin |
begin |
| 7440 |
|
|
| 7441 |
if FavoriteTreeView.Selected = nil then |
if FClickNode = nil then |
| 7442 |
Exit; |
Exit; |
| 7443 |
if FavoriteTreeView.Selected.IsFirstNode then |
if FClickNode.IsFirstNode then |
| 7444 |
Exit; |
Exit; |
| 7445 |
if FavoriteTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
| 7446 |
if MsgBox(Handle, '「リンク」はリンクバー用フォルダです。削除してよろしいですか?', '確認', MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
if MsgBox(Handle, '「リンク」はリンクバー用フォルダです。削除してよろしいですか?', '確認', MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
| 7447 |
Exit; |
Exit; |
| 7448 |
end; |
end; |
| 7449 |
|
|
| 7450 |
//FDeleteList.Add(FavoriteTreeView.Selected.Data); |
//FDeleteList.Add(FClickNode.Data); |
| 7451 |
//SetDeleteItemList(FavoriteTreeView.Selected); |
//SetDeleteItemList(FClickNode); |
| 7452 |
|
|
| 7453 |
FavoriteTreeView.Selected.Delete; |
FClickNode.Delete; |
| 7454 |
|
|
| 7455 |
SetLinkBar; |
SetLinkBar; |
| 7456 |
|
|
| 7459 |
procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewRenameActionExecute(Sender: TObject); |
| 7460 |
begin |
begin |
| 7461 |
|
|
| 7462 |
if FavoriteTreeView.Selected = nil then |
if FClickNode = nil then |
| 7463 |
Exit; |
Exit; |
| 7464 |
if FavoriteTreeView.Selected.IsFirstNode then |
if FClickNode.IsFirstNode then |
| 7465 |
Exit; |
Exit; |
| 7466 |
if FavoriteTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then |
| 7467 |
Exit; |
Exit; |
| 7468 |
FavoriteTreeView.ReadOnly := False; |
FavoriteTreeView.ReadOnly := False; |
| 7469 |
FavoriteTreeView.Selected.EditText; |
FClickNode.EditText; |
| 7470 |
|
|
| 7471 |
SetLinkBar; |
SetLinkBar; |
| 7472 |
|
|
| 7479 |
Node: TTreeNode; |
Node: TTreeNode; |
| 7480 |
begin |
begin |
| 7481 |
|
|
| 7482 |
if FavoriteTreeView.Selected = nil then |
if FClickNode = nil then |
| 7483 |
Exit; |
Exit; |
| 7484 |
|
|
| 7485 |
try |
try |
| 7486 |
if not (TObject(FavoriteTreeView.Selected.Data) is TFavoriteFolder) then |
if not (TObject(FClickNode.Data) is TFavoriteFolder) then begin |
| 7487 |
FavoriteTreeView.Selected := FavoriteTreeView.Selected.Parent; |
FavoriteTreeView.Selected := FClickNode.Parent; |
| 7488 |
|
FClickNode := FClickNode.Parent; |
| 7489 |
|
end; |
| 7490 |
|
|
| 7491 |
NewFavFolder := TFavoriteFolder.Create; |
NewFavFolder := TFavoriteFolder.Create; |
| 7492 |
Node := FavoriteTreeView.Items.AddChildObject(FavoriteTreeView.Selected, '新しいフォルダ', NewFavFolder); |
Node := FavoriteTreeView.Items.AddChildObject(FClickNode, '新しいフォルダ', NewFavFolder); |
| 7493 |
Node.ImageIndex := 14; |
Node.ImageIndex := 14; |
| 7494 |
Node.SelectedIndex := 14; |
Node.SelectedIndex := 14; |
| 7495 |
// FavoriteTreeView.Selected.Expanded := True; |
// FClickNode.Selected.Expanded := True; |
| 7496 |
FavoriteTreeView.Selected := Node; |
FavoriteTreeView.Selected := Node; |
| 7497 |
|
FClickNode := Node; |
| 7498 |
FavoriteTreeViewRenameAction.Execute; |
FavoriteTreeViewRenameAction.Execute; |
| 7499 |
finally |
finally |
| 7500 |
end; |
end; |