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.4 by h677, Sun Apr 4 15:54:24 2004 UTC revision 1.5 by yoffy, Wed Apr 7 12:47:35 2004 UTC
# 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    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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