paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

startlazarus: fixed compilation

Browse Source 
git-svn-id: trunk@41500 -
This commit is contained in:
mattias 2013-06-02 21:03:48 +00:00
parent 7bcb1b24a9
commit f359f31287
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/lazarusmanager.pas
View File

@ -161,14 +161,14 @@ begin
begin
if FileExistsUTF8(BackupFileName) then
if not DeleteFileUTF8(BackupFileName) then begin
IDEMessageDialog(format('Can''t delete "%s"'+LineEnding+'%s',
MessageDlg (format('Can''t delete "%s"'+LineEnding+'%s',
[BackupFileName, SysErrorMessageUTF8(GetLastOSError)]),
mtError, [mbOK], 0);
Result := mrAbort;
exit;
end;
if not FileProcs.RenameFileUTF8(CurFilename, BackupFileName) then begin
IDEMessageDialog(format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
MessageDlg (format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
[CurFilename, BackupFileName, SysErrorMessageUTF8(GetLastOSError)]),
mtError, [mbOK], 0);
Result := mrAbort;
@ -177,7 +177,7 @@ begin
InvalidateFileStateCache;
end;
if not FileProcs.RenameFileUTF8(NewFileName, CurFilename) then begin
IDEMessageDialog(format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
MessageDlg (format('Can''t rename "%s" to "%s"'+LineEnding+'%s',
[NewFileName, CurFilename, SysErrorMessageUTF8(GetLastOSError)]),
mtError, [mbOK], 0);
Result := mrAbort;
@ -282,7 +282,7 @@ begin
DefaultDir:=ReadAllLinks(DefaultDir,true);
except
on E: Exception do begin
IDEMessageDialog('Error',E.Message,mtError,[mbCancel],0);
MessageDlg ('Error',E.Message,mtError,[mbCancel],0);
exit;
end;
end;
@ -341,7 +341,7 @@ begin
end else begin
if FileExistsUTF8(CustomExe) then begin
// only the custom exists => warn user
IDEMessageDialog('System default is missing',
MessageDlg ('System default is missing',
'The system default lazarus executable "'+DefaultExe+'" is missing, but your custom'
+'executable is still there:'+LineEnding
+CustomExe+LineEnding
@ -350,7 +350,7 @@ begin
FLazarusPath:=CustomExe;
end else begin
// no exe exists
IDEMessageDialog('File not found','Can''t find the lazarus executable '+DefaultExe,
MessageDlg ('File not found','Can''t find the lazarus executable '+DefaultExe,
mtError,[mbAbort],0);
break;
end;