package manager: use yes/no buttons in dialog which asks to delete old packages from delphifreak (issue #15738)

git-svn-id: trunk@23968 -
This commit is contained in:
vincents 2010-03-12 16:05:39 +00:00
parent 4db9abe180
commit 91cf532a8f

View File

@ -1230,7 +1230,7 @@ begin
and (CompareFilenames(OldPkgFilename,NewFilename)<>0) then begin
if IDEMessageDialog(lisPkgMangDeleteOldPackageFile,
Format(lisPkgMangDeleteOldPackageFile2, ['"', OldPkgFilename, '"']),
mtConfirmation,[mbOk,mbCancel])=mrOk
mtConfirmation,[mbYes,mbNo])=mrYes
then begin
if DeleteFileUTF8(OldPkgFilename) then begin
RemoveFromRecentList(OldPkgFilename,