Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/FavoriteArrange.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 145 |
end; |
end; |
| 146 |
|
|
| 147 |
procedure TFavoriteArrangeDialog.DeleteButtonClick(Sender: TObject); |
procedure TFavoriteArrangeDialog.DeleteButtonClick(Sender: TObject); |
| 148 |
|
const |
| 149 |
|
DEL_LINK_MSG = '“リンク”はリンクバー用フォルダです。削除してよろしいですか?'; |
| 150 |
|
DEL_MSG = '“^0”を削除します。よろしいですか?'; |
| 151 |
|
DEL_TITLE = '削除確認'; |
| 152 |
begin |
begin |
| 153 |
if FolderTreeView.Selected = nil then |
if FolderTreeView.Selected = nil then |
| 154 |
Exit; |
Exit; |
| 155 |
if FolderTreeView.Selected.IsFirstNode then |
if FolderTreeView.Selected.IsFirstNode then |
| 156 |
Exit; |
Exit; |
| 157 |
if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin |
if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin |
| 158 |
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 |
| 159 |
|
Exit; |
| 160 |
|
end else if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then begin |
| 161 |
|
if MsgBox(Handle, StringReplace( DEL_MSG, '^0', FolderTreeView.Selected.Text, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONQUESTION) <> ID_YES then |
| 162 |
Exit; |
Exit; |
| 163 |
end; |
end; |
| 164 |
|
|
|
|
Legend:
| Removed from v.1.4 |
|
| changed lines |
| |
Added in v.1.5 |
|
|
| |