Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 8651 |
end; |
end; |
| 8652 |
|
|
| 8653 |
procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewDeleteActionExecute(Sender: TObject); |
| 8654 |
|
const |
| 8655 |
|
DEL_LINK_MSG = '“リンク”はリンクバー用フォルダです。削除してよろしいですか?'; |
| 8656 |
|
DEL_MSG = '“^0”を削除します。よろしいですか?'; |
| 8657 |
|
DEL_TITLE = '削除確認'; |
| 8658 |
begin |
begin |
| 8659 |
|
|
| 8660 |
if FClickNode = nil then |
if FClickNode = nil then |
| 8662 |
if FClickNode.IsFirstNode then |
if FClickNode.IsFirstNode then |
| 8663 |
Exit; |
Exit; |
| 8664 |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
if FClickNode.Text = Favorite.FAVORITE_LINK_NAME then begin |
| 8665 |
if MsgBox(Handle, '「リンク」はリンクバー用フォルダです。削除してよろしいですか?', '確認', MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
if MsgBox(Handle, DEL_LINK_MSG, DEL_TITLE, MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
| 8666 |
|
Exit; |
| 8667 |
|
end else if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin |
| 8668 |
|
if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FClickNode.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
| 8669 |
Exit; |
Exit; |
| 8670 |
end; |
end; |
| 8671 |
|
|
|
|
Legend:
| Removed from v.1.254 |
|
| changed lines |
| |
Added in v.1.255 |
|
|
| |