Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.254 by yoffy, Wed Apr 7 11:55:40 2004 UTC revision 1.255 by yoffy, Wed Apr 7 12:47:35 2004 UTC
# Line 8651  begin Line 8651  begin
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
# Line 8658  begin Line 8662  begin
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

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