| 128 |
FolderTreeView.Selected := Node; |
FolderTreeView.Selected := Node; |
| 129 |
end; |
end; |
| 130 |
finally |
finally |
| 131 |
Dlg.Free; |
Dlg.Release; |
| 132 |
end; |
end; |
| 133 |
end; |
end; |
| 134 |
|
|
| 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 |
|
|
| 211 |
begin |
begin |
| 212 |
FavoriteDM.TreeView.Items := FolderTreeView.Items; |
FavoriteDM.TreeView.Items := FolderTreeView.Items; |
| 213 |
|
|
| 214 |
for i := 0 to FDeleteList.Count - 1 do |
for i := FDeleteList.Count - 1 downto 0 do |
| 215 |
TObject(FDeleteList[i]).Free; |
TObject(FDeleteList[i]).Free; |
| 216 |
|
FDeleteList.Free; |
| 217 |
FavoriteDM.WriteFavorite; |
FavoriteDM.WriteFavorite; |
| 218 |
end; |
end; |
| 219 |
|
|