paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-28 18:37:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: reset *retry* result to *ok* if backup file was created after the n-th trial

Browse Source 
git-svn-id: trunk@25841 -
This commit is contained in:
paul 2010-06-02 13:27:00 +00:00
parent f622d42123
commit 9ec445b97d
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/buildmanager.pas
View File

@ -1043,15 +1043,18 @@ begin
end;
// backup file
repeat
if not IDEProcs.BackupFile(Filename,BackupFilename) then begin
ACaption:=lisBackupFileFailed;
AText:=Format(lisUnableToBackupFileTo, ['"', Filename, '"', '"',
if not IDEProcs.BackupFile(Filename, BackupFilename) then
begin
ACaption := lisBackupFileFailed;
AText := Format(lisUnableToBackupFileTo, ['"', Filename, '"', '"',
BackupFilename, '"']);
Result:=IDEMessageDialog(ACaption,AText,mterror,[mbabort,mbretry,mbignore]);
if Result=mrAbort then exit;
if Result=mrIgnore then Result:=mrOk;
end;
until Result<>mrRetry;
Result := IDEMessageDialog(ACaption,AText,mterror,[mbabort,mbretry,mbignore]);
if Result = mrAbort then exit;
if Result = mrIgnore then Result := mrOk;
end
else
Result := mrOk;
until Result <> mrRetry;
end;
function TBuildManager.GetResourceType(AnUnitInfo: TUnitInfo): TResourceType;