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

lazbuild: fixed converting line endings of message dialogs

Browse Source 
git-svn-id: trunk@16862 -
This commit is contained in:
mattias 2008-10-03 10:12:38 +00:00
parent 1e4f587a88
commit 0e0ed50080
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -2839,6 +2839,8 @@ resourcestring
lisOpenPackage2 = 'Open package %s'; lisOpenPackage2 = 'Open package %s';
lisPkgMangThePackageNameOfTheFileIsInvalid = 'The package name %s%s%s of%' lisPkgMangThePackageNameOfTheFileIsInvalid = 'The package name %s%s%s of%'
+'sthe file %s%s%s is invalid.'; +'sthe file %s%s%s is invalid.';
lisLazbuildIsNonInteractiveAbortingNow = '%s%s%s%slazbuild is non '
+'interactive, aborting now.';
lisPkgMangPackageConflicts = 'Package conflicts'; lisPkgMangPackageConflicts = 'Package conflicts';
lisPkgMangThereIsAlreadyAPackageLoadedFromFile = 'There is already a ' lisPkgMangThereIsAlreadyAPackageLoadedFromFile = 'There is already a '
+'package %s%s%s loaded%sfrom file %s%s%s.%sSee Components -> Package ' +'package %s%s%s loaded%sfrom file %s%s%s.%sSee Components -> Package '

8
ide/lazbuild.lpr
View File

@ -265,7 +265,8 @@ function TLazBuildApplication.OnIDEMessageDialog(const aCaption, aMsg: string;
): Integer; ): Integer;
begin begin
DumpStack; DumpStack;
Error(ErrorBuildFailed,aMsg); Error(ErrorBuildFailed, Format(lisLazbuildIsNonInteractiveAbortingNow, [
aCaption, #13, aMsg, #13]));
Result:=mrCancel; Result:=mrCancel;
end; end;
@ -274,7 +275,8 @@ function TLazBuildApplication.OnIDEQuestionDialog(const aCaption, aMsg: string;
): Integer; ): Integer;
begin begin
DumpStack; DumpStack;
Error(ErrorBuildFailed,aMsg); Error(ErrorBuildFailed, Format(lisLazbuildIsNonInteractiveAbortingNow, [
aCaption, #13, aMsg, #13]));
Result:=mrCancel; Result:=mrCancel;
end; end;
@ -1161,7 +1163,7 @@ end;
procedure TLazBuildApplication.Error(ErrorCode: Byte; const ErrorMsg: string); procedure TLazBuildApplication.Error(ErrorCode: Byte; const ErrorMsg: string);
begin begin
writeln('ERROR: ',ErrorMsg); writeln('ERROR: ',LineBreaksToSystemLineBreaks(ErrorMsg));
Halt(ErrorCode); Halt(ErrorCode);
end; end;