Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/FavoriteArrange.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by h677, Thu Sep 4 08:22:06 2003 UTC revision 1.3.2.1 by yoffy, Mon Apr 19 22:46:48 2004 UTC
# Line 128  begin Line 128  begin
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    
# Line 145  begin Line 145  begin
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    
# Line 204  var Line 211  var
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    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26