mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 14:40:24 +02:00
IDE: Use hard-coded quotation in some resourcestrings instead of %s parameters.
Makes Format() calls and translations easier although initially creates fuzzy lines in PO files. git-svn-id: trunk@45519 -
This commit is contained in:
juha
parent
5b42042d6f
commit
75b7c1bd1e
@ -298,7 +298,7 @@ begin
|
||||
except
|
||||
on E: Exception do begin
|
||||
Result:=QuestionDlg(lisCodeToolsDefsReadError, Format(
|
||||
lisUnableToReadFileError, ['"', aFilename, '"', LineEnding, E.Message]),
|
||||
lisUnableToReadFileError, [aFilename, LineEnding, E.Message]),
|
||||
mtError,[mrIgnore,mrAbort],0);
|
||||
if Result=mrIgnore then // The caller will continue like nothing happened.
|
||||
Result:=mrOk;
|
||||
@ -312,7 +312,7 @@ begin
|
||||
except
|
||||
on E: Exception do begin
|
||||
Result:=QuestionDlg(lisFormatError,
|
||||
Format(lisUnableToConvertFileError, ['"',aFilename,'"',LineEnding,E.Message]),
|
||||
Format(lisUnableToConvertFileError, [aFilename, LineEnding, E.Message]),
|
||||
mtError,[mrIgnore,mrAbort],0);
|
||||
if Result=mrIgnore then
|
||||
Result:=mrOk;
|
||||
@ -327,7 +327,7 @@ begin
|
||||
except
|
||||
on E: Exception do begin
|
||||
Result:=MessageDlg(lisCodeToolsDefsWriteError,
|
||||
Format(lisUnableToWriteFileError, ['"',aFilename,'"',LineEnding,E.Message]),
|
||||
Format(lisUnableToWriteFileError, [aFilename, LineEnding, E.Message]),
|
||||
mtError,[mbIgnore,mbAbort],0);
|
||||
if Result=mrIgnore then
|
||||
Result:=mrOk;
|
||||
|
||||
@ -1342,7 +1342,7 @@ function TBuildManager.CheckAmbiguousSources(const AFilename: string;
|
||||
begin
|
||||
if not DeleteFileUTF8(AmbiguousFilename) then begin
|
||||
Result:=IDEMessageDialog(lisErrorDeletingFile,
|
||||
Format(lisUnableToDeleteAmbiguousFile, ['"', AmbiguousFilename, '"']),
|
||||
Format(lisUnableToDeleteAmbiguousFile, [AmbiguousFilename]),
|
||||
mtError,[mbOk,mbAbort]);
|
||||
end else
|
||||
Result:=mrOk;
|
||||
@ -1356,8 +1356,7 @@ function TBuildManager.CheckAmbiguousSources(const AFilename: string;
|
||||
if not FileProcs.RenameFileUTF8(AmbiguousFilename,NewFilename) then
|
||||
begin
|
||||
Result:=IDEMessageDialog(lisErrorRenamingFile,
|
||||
Format(lisUnableToRenameAmbiguousFileTo,
|
||||
['"', AmbiguousFilename, '"', LineEnding, '"', NewFilename, '"']),
|
||||
Format(lisUnableToRenameAmbiguousFileTo,[AmbiguousFilename,LineEnding,NewFilename]),
|
||||
mtError,[mbOk,mbAbort]);
|
||||
end else
|
||||
Result:=mrOk;
|
||||
@ -1369,8 +1368,8 @@ function TBuildManager.CheckAmbiguousSources(const AFilename: string;
|
||||
if Compiling then begin
|
||||
{$IFNDEF EnableOldExtTools}
|
||||
IDEMessagesWindow.AddCustomMessage(mluError,
|
||||
Format('ambiguous file found: %s%s%s. Source file is: %s%s%s',
|
||||
['"', AmbiguousFilename, '"', '"', AFilename, '"']));
|
||||
Format('ambiguous file found: "%s". Source file is: "%s"',
|
||||
[AmbiguousFilename, AFilename]));
|
||||
{$ELSE}
|
||||
TheOutputFilter.ReadConstLine(
|
||||
Format(lisWarningAmbiguousFileFoundSourceFileIs,
|
||||
@ -1475,8 +1474,8 @@ begin
|
||||
CurFilename:=ADirectory+FileInfo.Name;
|
||||
if EnvironmentOptions.AmbiguousFileAction=afaAsk then begin
|
||||
if IDEMessageDialog(lisDeleteAmbiguousFile,
|
||||
Format(lisAmbiguousFileFoundThisFileCanBeMistakenWithDelete, ['"',
|
||||
CurFilename, '"', LineEnding, '"', ShortFilename, '"', LineEnding, LineEnding]),
|
||||
Format(lisAmbiguousFileFoundThisFileCanBeMistakenWithDelete,
|
||||
[CurFilename, LineEnding, ShortFilename, LineEnding, LineEnding]),
|
||||
mtConfirmation,[mbYes,mbNo])=mrNo
|
||||
then continue;
|
||||
end;
|
||||
@ -1484,7 +1483,7 @@ begin
|
||||
then begin
|
||||
if not DeleteFileUTF8(CurFilename) then begin
|
||||
IDEMessageDialog(lisDeleteFileFailed,
|
||||
Format(lisPkgMangUnableToDeleteFile, ['"', CurFilename, '"']),
|
||||
Format(lisPkgMangUnableToDeleteFile, [CurFilename]),
|
||||
mtError,[mbOk]);
|
||||
end;
|
||||
end else if EnvironmentOptions.AmbiguousFileAction=afaAutoRename then
|
||||
@ -1678,7 +1677,7 @@ begin
|
||||
if not DirPathExists(SubDir) then begin
|
||||
if not CreateDirUTF8(SubDir) then begin
|
||||
Result:=IDEMessageDialog(lisCCOWarningCaption,
|
||||
Format(lisUnableToCreateBackupDirectory, ['"',SubDir, '"'])
|
||||
Format(lisUnableToCreateBackupDirectory, [SubDir])
|
||||
,mtWarning,[mbAbort,mbRetry,mbIgnore]);
|
||||
if Result=mrAbort then exit;
|
||||
if Result=mrIgnore then Result:=mrOk;
|
||||
@ -1708,10 +1707,8 @@ begin
|
||||
if FileExistsUTF8(BackupFilename) then begin
|
||||
if not DeleteFileUTF8(BackupFilename) then begin
|
||||
ACaption:=lisDeleteFileFailed;
|
||||
AText:=Format(lisUnableToRemoveOldBackupFile, ['"', BackupFilename,
|
||||
'"']);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,
|
||||
[mbAbort,mbRetry,mbIgnore]);
|
||||
AText:=Format(lisUnableToRemoveOldBackupFile,[BackupFilename]);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,[mbAbort,mbRetry,mbIgnore]);
|
||||
if Result=mrAbort then exit;
|
||||
if Result=mrIgnore then Result:=mrOk;
|
||||
end;
|
||||
@ -1741,10 +1738,8 @@ begin
|
||||
if FileExistsUTF8(CounterFilename) then begin
|
||||
if not DeleteFileUTF8(CounterFilename) then begin
|
||||
ACaption:=lisDeleteFileFailed;
|
||||
AText:=Format(lisUnableToRemoveOldBackupFile, ['"',
|
||||
CounterFilename, '"']);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,
|
||||
[mbAbort,mbRetry,mbIgnore]);
|
||||
AText:=Format(lisUnableToRemoveOldBackupFile,[CounterFilename]);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,[mbAbort,mbRetry,mbIgnore]);
|
||||
if Result=mrAbort then exit;
|
||||
if Result=mrIgnore then Result:=mrOk;
|
||||
end;
|
||||
@ -1759,8 +1754,8 @@ begin
|
||||
BackupFilename+IntToStr(i+1)) then
|
||||
begin
|
||||
ACaption:=lisRenameFileFailed;
|
||||
AText:=Format(lisUnableToRenameFileTo, ['"', BackupFilename+IntToStr
|
||||
(i), '"', '"', BackupFilename+IntToStr(i+1), '"']);
|
||||
AText:=Format(lisUnableToRenameFileTo,
|
||||
[BackupFilename+IntToStr(i), BackupFilename+IntToStr(i+1)]);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,
|
||||
[mbAbort,mbRetry,mbIgnore]);
|
||||
if Result=mrAbort then exit;
|
||||
@ -1777,8 +1772,7 @@ begin
|
||||
if not IDEProcs.BackupFile(Filename, BackupFilename) then
|
||||
begin
|
||||
ACaption := lisBackupFileFailed;
|
||||
AText := Format(lisUnableToBackupFileTo, ['"', Filename, '"', '"',
|
||||
BackupFilename, '"']);
|
||||
AText := Format(lisUnableToBackupFileTo, [Filename, BackupFilename]);
|
||||
Result := IDEMessageDialog(ACaption,AText,mterror,[mbabort,mbretry,mbignore]);
|
||||
if Result = mrAbort then exit;
|
||||
if Result = mrIgnore then Result := mrOk;
|
||||
|
||||
@ -545,9 +545,8 @@ begin
|
||||
if FileExistsUTF8(Filename) and (not DeleteFileUTF8(Filename))
|
||||
and (not Quiet) then begin
|
||||
Result:=IDEQuestionDialog(lisDeleteFileFailed,
|
||||
Format(lisPkgMangUnableToDeleteFile, ['"', Filename, '"']),
|
||||
mtError,
|
||||
[mrRetry, mrCancel, mrNo, lisCCOSkip, mrNoToAll, lisSkipErrors]);
|
||||
Format(lisPkgMangUnableToDeleteFile, [Filename]),
|
||||
mtError, [mrRetry, mrCancel, mrNo, lisCCOSkip, mrNoToAll, lisSkipErrors]);
|
||||
if Result=mrNoToAll then begin
|
||||
Quiet:=true;
|
||||
break;
|
||||
|
||||
@ -433,7 +433,7 @@ begin
|
||||
break;
|
||||
end else begin
|
||||
MsgResult:=MessageDlg(lisErrorDeletingFile,
|
||||
Format(lisPkgMangUnableToDeleteFile, ['"', Filename, '"']),
|
||||
Format(lisPkgMangUnableToDeleteFile, [Filename]),
|
||||
mtError,[mbAbort,mbIgnore,mbRetry],0);
|
||||
if (MsgResult=mrIgnore) then break;
|
||||
if MsgResult=mrAbort then exit;
|
||||
|
||||
@ -1310,7 +1310,7 @@ begin
|
||||
Result:=CodeToolBoss.CreateFile(ExpandedFilename);
|
||||
if Result=nil then begin
|
||||
IDEMessageDialog(lisUnableToCreateFile,
|
||||
Format(lisUnableToCreateFile4, [ExpandedFilename]), mtError, [mbCancel]);
|
||||
Format(lisUnableToCreateFile2, [ExpandedFilename]), mtError, [mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
@ -138,8 +138,7 @@ begin
|
||||
end else begin
|
||||
DlgButtons:=[mbCancel,mbRetry]+ExtraButtons;
|
||||
Result:=IDEMessageDialog(lisUnableToRenameFile,
|
||||
Format(lisUnableToRenameFileTo2,
|
||||
['"', SrcFilename, '"', LineEnding, '"', DestFilename, '"']),
|
||||
Format(lisUnableToRenameFileTo2, [SrcFilename, LineEnding, DestFilename]),
|
||||
mtError,DlgButtons);
|
||||
if (Result<>mrRetry) then exit;
|
||||
end;
|
||||
@ -166,7 +165,7 @@ begin
|
||||
end else begin
|
||||
DlgButtons:=[mbCancel,mbRetry]+ExtraButtons;
|
||||
Result:=IDEMessageDialog(lisUnableToCopyFile,
|
||||
Format(lisUnableToCopyFileTo,['"',SrcFilename,'"',LineEnding,'"',DestFilename,'"']),
|
||||
Format(lisUnableToCopyFileTo, [SrcFilename, LineEnding, DestFilename]),
|
||||
mtError,DlgButtons);
|
||||
if (Result<>mrRetry) then exit;
|
||||
end;
|
||||
@ -205,8 +204,7 @@ begin
|
||||
Result:=mrCancel;
|
||||
end else begin
|
||||
ACaption:=lisFileNotText;
|
||||
AText:=Format(lisFileDoesNotLookLikeATextFileOpenItAnyway,
|
||||
['"', AFilename, '"', LineEnding, LineEnding]);
|
||||
AText:=Format(lisFileDoesNotLookLikeATextFileOpenItAnyway,[AFilename,LineEnding,LineEnding]);
|
||||
Result:=IDEMessageDialogAb(ACaption, AText, mtConfirmation,
|
||||
[mbOk, mbIgnore],ShowAbort);
|
||||
end;
|
||||
@ -231,10 +229,8 @@ begin
|
||||
Result:=mrCancel
|
||||
else begin
|
||||
ACaption:=lisReadError;
|
||||
AText:=Format(lisUnableToReadFile2, ['"', AFilename, '"']);
|
||||
Result:=IDEMessageDialogAb(ACaption,AText,mtError,
|
||||
[mbRetry,mbIgnore],
|
||||
ShowAbort);
|
||||
AText:=Format(lisUnableToReadFile2, [AFilename]);
|
||||
Result:=IDEMessageDialogAb(ACaption,AText,mtError,[mbRetry,mbIgnore],ShowAbort);
|
||||
if Result=mrAbort then exit;
|
||||
end;
|
||||
end;
|
||||
@ -253,7 +249,7 @@ begin
|
||||
Result:=mrOk;
|
||||
end else begin
|
||||
Result:=IDEMessageDialog(lisCodeToolsDefsWriteError,
|
||||
Format(lisUnableToWrite2, ['"', ACodeBuffer.Filename, '"']),
|
||||
Format(lisUnableToWrite2, [ACodeBuffer.Filename]),
|
||||
mtError,[mbAbort,mbRetry,mbIgnore]);
|
||||
end;
|
||||
until Result<>mrRetry;
|
||||
@ -400,7 +396,7 @@ begin
|
||||
break;
|
||||
end else begin
|
||||
Result:=IDEMessageDialog(lisUnableToCreateFile,
|
||||
Format(lisUnableToCreateFilename, ['"', Filename, '"']),
|
||||
Format(lisUnableToCreateFile2, [Filename]),
|
||||
mtError,ErrorButtons+[mbCancel]);
|
||||
if Result<>mrRetry then exit;
|
||||
end;
|
||||
@ -433,15 +429,15 @@ begin
|
||||
fs.Free;
|
||||
except
|
||||
Result:=IDEMessageDialog(lisUnableToCreateFile,
|
||||
Format(lisUnableToCreateFilename, ['"', AFilename, '"']), mtError, [
|
||||
mbCancel, mbAbort]);
|
||||
Format(lisUnableToCreateFile2, [AFilename]),
|
||||
mtError, [mbCancel, mbAbort]);
|
||||
exit;
|
||||
end;
|
||||
end else begin
|
||||
// file already exists
|
||||
if WarnOverwrite then begin
|
||||
Result:=IDEQuestionDialog(lisOverwriteFile,
|
||||
Format(lisAFileAlreadyExistsReplaceIt, ['"', AFilename, '"', LineEnding]),
|
||||
Format(lisAFileAlreadyExistsReplaceIt, [AFilename, LineEnding]),
|
||||
mtConfirmation, [mrYes, lisOverwriteFileOnDisk, mbCancel]);
|
||||
if Result=mrCancel then exit;
|
||||
end;
|
||||
@ -483,7 +479,7 @@ begin
|
||||
end;
|
||||
except
|
||||
Result:=IDEMessageDialog(lisUnableToReadFile,
|
||||
Format(lisUnableToReadFile2, ['"', AFilename, '"']),
|
||||
Format(lisUnableToReadFile2, [AFilename]),
|
||||
mtError, [mbCancel, mbAbort]);
|
||||
exit;
|
||||
end;
|
||||
@ -518,8 +514,7 @@ begin
|
||||
end else begin
|
||||
// ask which filename to use
|
||||
case IDEQuestionDialog(lisFileIsSymlink,
|
||||
Format(lisTheFileIsASymlinkOpenInstead,
|
||||
['"', Filename, '"', LineEnding, LineEnding, '"', TargetFilename, '"']),
|
||||
Format(lisTheFileIsASymlinkOpenInstead,[Filename,LineEnding,LineEnding,TargetFilename]),
|
||||
mtConfirmation, [mbYes, lisOpenTarget, mbNo, lisOpenSymlink, mbCancel])
|
||||
of
|
||||
mrYes: Filename:=TargetFilename;
|
||||
@ -566,7 +561,7 @@ begin
|
||||
if not DirPathExists(Dir) then begin
|
||||
while not CreateDirUTF8(Dir) do begin
|
||||
Result:=IDEMessageDialog(lisPkgMangUnableToCreateDirectory,
|
||||
Format(lisUnableToCreateDirectory, ['"', Dir, '"']),
|
||||
Format(lisUnableToCreateDirectory, [Dir]),
|
||||
mtError,ErrorButtons+[mbCancel]);
|
||||
if Result<>mrRetry then exit;
|
||||
end;
|
||||
@ -598,7 +593,7 @@ begin
|
||||
if not FileExistsUTF8(Filename) then exit;
|
||||
if not DeleteFileUTF8(Filename) then begin
|
||||
Result:=IDEMessageDialogAb(lisDeleteFileFailed,
|
||||
Format(lisPkgMangUnableToDeleteFile, ['"', Filename, '"']),
|
||||
Format(lisPkgMangUnableToDeleteFile, [Filename]),
|
||||
mtError,[mbCancel,mbRetry]+ErrorButtons-[mbAbort],mbAbort in ErrorButtons);
|
||||
if Result<>mrRetry then exit;
|
||||
end;
|
||||
|
||||
@ -279,9 +279,8 @@ begin
|
||||
fSelectedFilename:=s;
|
||||
ModalResult:=mrYes; // mrYes means the selected file will be opened.
|
||||
end
|
||||
else begin
|
||||
ShowMessage(Format(lisFileNotFound3, [s]));
|
||||
end;
|
||||
else
|
||||
ShowMessage(Format(lisFileNotFound2, [s]));
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -198,8 +198,8 @@ resourcestring
|
||||
lisProjectMacroProperties = 'Project macro properties';
|
||||
lisOpenProject2 = 'Open project';
|
||||
lisFileHasNoProject = 'File has no project';
|
||||
lisTheFileIsNotALazarusProjectCreateANewProjectForThi = 'The file %s%s%s is '
|
||||
+'not a Lazarus project.%sCreate a new project for this %s?';
|
||||
lisTheFileIsNotALazarusProjectCreateANewProjectForThi = 'The file "%s" is '
|
||||
+'not a Lazarus project.%sCreate a new project for this "%s"?';
|
||||
lisCreateProject = 'Create project';
|
||||
lisKMSaveProject = 'Save project';
|
||||
lisKMCloseProject = 'Close project';
|
||||
@ -579,12 +579,11 @@ resourcestring
|
||||
lisDelphiUnit = 'Delphi unit';
|
||||
lisDelphiProject = 'Delphi project';
|
||||
lisDelphiPackage = 'Delphi package';
|
||||
lisUnableToReadFileError = 'Unable to read file %s%s%s%sError: %s';
|
||||
lisFormatError = 'Format error';
|
||||
lisLFMFileCorrupt = 'LFM file corrupt';
|
||||
lisUnableToFindAValidClassnameIn = 'Unable to find a valid classname in %s%s%s';
|
||||
lisUnableToConvertFileError = 'Unable to convert file %s%s%s%sError: %s';
|
||||
lisUnableToWriteFileError = 'Unable to write file %s%s%s%sError: %s';
|
||||
lisUnableToFindAValidClassnameIn = 'Unable to find a valid classname in "%s"';
|
||||
lisUnableToConvertFileError = 'Unable to convert file "%s"%sError: %s';
|
||||
lisUnableToWriteFileError = 'Unable to write file "%s"%sError: %s';
|
||||
lisMissingUnitsComment = 'Comment Out';
|
||||
lisMissingUnitsForDelphi = 'For Delphi only';
|
||||
lisMissingUnitsSearch = 'Search Unit Path';
|
||||
@ -646,8 +645,7 @@ resourcestring
|
||||
lisFilesHaveRightEncoding = '*** All found files already have the right encoding ***';
|
||||
|
||||
lisnoname = 'noname';
|
||||
lisTheDestinationDirectoryDoesNotExist = 'The destination directory%s%s%s%s '
|
||||
+'does not exist.';
|
||||
lisTheDestinationDirectoryDoesNotExist = 'The destination directory%s"%s" does not exist.';
|
||||
lisRenameFile = 'Rename file?';
|
||||
lisThisLooksLikeAPascalFileItIsRecommendedToUseLowerC = 'This looks like a '
|
||||
+'Pascal file.%sIt is recommended to use lower case filenames, to avoid '
|
||||
@ -656,65 +654,60 @@ resourcestring
|
||||
lisRenameToLowercase = 'Rename to lowercase';
|
||||
lisKeepName = 'Keep name';
|
||||
lisOverwriteFile = 'Overwrite file?';
|
||||
lisAFileAlreadyExistsReplaceIt = 'A file %s%s%s already exists.%sReplace it?';
|
||||
lisAFileAlreadyExistsReplaceIt = 'A file "%s" already exists.%sReplace it?';
|
||||
lisOverwriteFileOnDisk = 'Overwrite file on disk';
|
||||
lisAmbiguousFilesFound = 'Ambiguous files found';
|
||||
lisThereAreOtherFilesInTheDirectoryWithTheSameName = 'There are other files '
|
||||
+'in the directory with the same name,%swhich only differ in case:%s%s%'
|
||||
+'sDelete them?';
|
||||
lisDeleteOldFile = 'Delete old file %s%s%s?';
|
||||
lisDeletingOfFileFailed = 'Deleting of file %s%s%s failed.';
|
||||
lisDeleteOldFile = 'Delete old file "%s"?';
|
||||
lisDeletingOfFileFailed = 'Deleting of file "%s" failed.';
|
||||
lisStreamingError = 'Streaming error';
|
||||
lisUnableToStreamT = 'Unable to stream %s:T%s.';
|
||||
lisPathToInstance = 'Path to failed Instance:';
|
||||
lisResourceSaveError = 'Resource save error';
|
||||
lisUnableToAddResourceHeaderCommentToResourceFile = 'Unable to add resource '
|
||||
+'header comment to resource file %s%s%s%s.%sProbably a syntax error.';
|
||||
+'header comment to resource file %s"%s".%sProbably a syntax error.';
|
||||
lisUnableToAddResourceTFORMDATAToResourceFileProbably = 'Unable to add '
|
||||
+'resource T%s:FORMDATA to resource file %s%s%s%s.%sProbably a syntax error.';
|
||||
lisUnableToCreateFile2 = 'Unable to create file %s%s%s';
|
||||
+'resource T%s:FORMDATA to resource file %s"%s".%sProbably a syntax error.';
|
||||
lisContinueWithoutLoadingForm = 'Continue without loading form';
|
||||
lisCancelLoadingUnit = 'Cancel loading unit';
|
||||
lisAbortAllLoading = 'Abort all loading';
|
||||
lisSkipFile = 'Skip file';
|
||||
lisUnableToTransformBinaryComponentStreamOfTIntoText = 'Unable to transform '
|
||||
+'binary component stream of %s:T%s into text.';
|
||||
lisTheFileWasNotFoundIgnoreWillGoOnLoadingTheProject = 'The file %s%s%s%'
|
||||
+'swas not found.%sIgnore will go on loading the project,%sAbort will '
|
||||
+'stop the loading.';
|
||||
lisTheFileWasNotFoundIgnoreWillGoOnLoadingTheProject = 'The file "%s"%swas not '
|
||||
+'found.%sIgnore will go on loading the project,%sAbort will stop the loading.';
|
||||
lisSkipFileAndContinueLoading = 'Skip file and continue loading';
|
||||
lisAbortLoadingProject = 'Abort loading project';
|
||||
lisFileNotFound2 = 'File %s%s%s not found.%s';
|
||||
lisFileNotFoundDoYouWantToCreateIt = 'File %s%s%s not found.%sDo you want '
|
||||
+'to create it?%s';
|
||||
lisFileNotFound2 = 'File "%s" not found.';
|
||||
lisFileNotFoundDoYouWantToCreateIt = 'File "%s" not found.%sDo you want to create it?';
|
||||
lisProjectInfoFileDetected = 'Project info file detected';
|
||||
lisTheFileSeemsToBeTheProgramFileOfAnExistingLazarusP = 'The file %s seems '
|
||||
+'to be the program file of an existing Lazarus Project.';
|
||||
lisTheFileSeemsToBeAProgramCloseCurrentProject = 'The file %s%s%s%sseems to '
|
||||
lisTheFileSeemsToBeAProgramCloseCurrentProject = 'The file "%s"%sseems to '
|
||||
+'be a program. Close current project and create a new Lazarus project '
|
||||
+'for this program?%s"No" will load the file as normal source.';
|
||||
lisProgramDetected = 'Program detected';
|
||||
lisUnableToConvertTextFormDataOfFileIntoBinaryStream = 'Unable to convert '
|
||||
+'text form data of file %s%s%s%s%sinto binary stream. (%s)';
|
||||
+'text form data of file %s"%s"%sinto binary stream. (%s)';
|
||||
lisSaveProject = 'Save project %s (*%s)';
|
||||
lisRemoveUnitPath = 'Remove unit path?';
|
||||
lisTheDirectoryContainsNoProjectUnitsAnyMoreRemoveThi = 'The directory "%s" '
|
||||
+'contains no project units any more. Remove this directory from the '
|
||||
+'project''s unit search path?';
|
||||
lisInvalidProjectFilename = 'Invalid project filename';
|
||||
lisisAnInvalidProjectNamePleaseChooseAnotherEGProject = '%s%s%s is an '
|
||||
lisisAnInvalidProjectNamePleaseChooseAnotherEGProject = '"%s" is an '
|
||||
+'invalid project name.%sPlease choose another (e.g. project1.lpi)';
|
||||
lisChooseADifferentName = 'Choose a different name';
|
||||
lisTheProjectInfoFileIsEqualToTheProjectMainSource = 'The project info '
|
||||
+'file %s%s%s%sis equal to the project main source file!';
|
||||
+'file "%s"%sis equal to the project main source file!';
|
||||
lisUnitIdentifierExists = 'Unit identifier exists';
|
||||
lisThereIsAUnitWithTheNameInTheProjectPleaseChoose = 'There is a unit with the '
|
||||
+'name %s%s%s in the project.%sPlease choose a different name';
|
||||
+'name "%s" in the project.%sPlease choose a different name';
|
||||
lisErrorCreatingFile = 'Error creating file';
|
||||
lisUnableToCreateFile3 = 'Unable to create file%s%s%s%s';
|
||||
lisCopyError2 = 'Copy error';
|
||||
lisSourceDirectoryDoesNotExist = 'Source directory %s%s%s does not exist.';
|
||||
lisUnableToCopyFileTo = 'Unable to copy file %s%s%s%sto %s%s%s';
|
||||
lisSourceDirectoryDoesNotExist = 'Source directory "%s" does not exist.';
|
||||
lisSorryThisTypeIsNotYetImplemented = 'Sorry, this type is not yet implemented';
|
||||
lisFileHasChangedSave = 'File "%s" has changed. Save?';
|
||||
lisUnitHasChangedSave = 'Unit "%s" has changed. Save?';
|
||||
@ -726,31 +719,27 @@ resourcestring
|
||||
lisOpenPackage = 'Open Package?';
|
||||
lisOpenThePackage = 'Open the package %s?';
|
||||
lisRevertFailed = 'Revert failed';
|
||||
lisFileIsVirtual = 'File %s%s%s is virtual.';
|
||||
lisUnableToWrite = 'Unable to write %s%s%s%s%s.';
|
||||
lisFileIsVirtual = 'File "%s" is virtual.';
|
||||
lisFileNotText = 'File not text';
|
||||
lisUnableToRenameFile = 'Unable to rename file';
|
||||
lisUnableToCopyFile = 'Unable to copy file';
|
||||
lisWriteError = 'Write Error';
|
||||
lisUnableToWriteFile2 = 'Unable to write file "%s".';
|
||||
lisByte = '%s byte';
|
||||
lisFileDoesNotLookLikeATextFileOpenItAnyway =
|
||||
'File %s%s%s%sdoes not look like a text file.%sOpen it anyway?';
|
||||
lisUnableToCreateBackupDirectory = 'Unable to create backup directory %s%s%s.';
|
||||
'File "%s"%sdoes not look like a text file.%sOpen it anyway?';
|
||||
lisUnableToCreateBackupDirectory = 'Unable to create backup directory "%s".';
|
||||
lisSourceAndDestinationAreTheSame = 'Source and Destination are the same:%s%s';
|
||||
lisUnableToRenameFileTo2 = 'Unable to rename file %s%s%s%sto %s%s%s.';
|
||||
lisInvalidCommand = 'Invalid command';
|
||||
lisTheCommandAfterIsNotExecutable = 'The command after %s%s%s is not executable.';
|
||||
lisTheCommandAfterIsNotExecutable = 'The command after "%s" is not executable.';
|
||||
lisUnableToCleanUpDestinationDirectory = 'Unable to clean up destination directory';
|
||||
lisCommandAfterInvalid = 'Command after invalid';
|
||||
lisTheCommandAfterPublishingIsInvalid = 'The command after publishing is invalid:%s%s%s%s';
|
||||
lisUnableToCleanUpPleaseCheckPermissions = 'Unable to clean up %s%s%s.%'
|
||||
+'sPlease check permissions.';
|
||||
lisTheCommandAfterPublishingIsInvalid = 'The command after publishing is invalid:%s"%s"';
|
||||
lisUnableToCleanUpPleaseCheckPermissions = 'Unable to clean up "%s".%sPlease check permissions.';
|
||||
lisCommandAfterPublishingModule = 'Command after publishing module';
|
||||
lisUnableToAddToProjectBecauseThereIsAlreadyAUnitWith = 'Unable to add %s '
|
||||
+'to project, because there is already a unit with the same name in the Project.';
|
||||
lisAddToProject = 'Add %s to project?';
|
||||
lisTheFile = 'The file %s%s%s';
|
||||
lisTheFile = 'The file "%s"';
|
||||
lisAddToUnitSearchPath = 'Add to unit search path?';
|
||||
lisAddToIncludeSearchPath = 'Add to include search path?';
|
||||
lisTheNewIncludeFileIsNotYetInTheIncludeSearchPathAdd =
|
||||
@ -761,7 +750,7 @@ resourcestring
|
||||
lisRemoveFromProject = 'Remove from Project';
|
||||
lisCreateAProjectFirst = 'Create a project first!';
|
||||
lisTheTestDirectoryCouldNotBeFoundSeeIDEOpt = 'The Test Directory '
|
||||
+'could not be found:%s%s%s%s%s(see IDE options)';
|
||||
+'could not be found:%s"%s"%s(see IDE options)';
|
||||
lisBuildNewProject = 'Build new project';
|
||||
lisTheProjectMustBeSavedBeforeBuildingIfYouSetTheTest = 'The project must '
|
||||
+'be saved before building%sIf you set the Test Directory in the '
|
||||
@ -780,8 +769,9 @@ resourcestring
|
||||
+'Lazarus while debugging or compiling.';
|
||||
lisReadError = 'Read Error';
|
||||
lisUnableToReadFile = 'Unable to read file';
|
||||
lisUnableToReadFile2 = 'Unable to read file %s%s%s.';
|
||||
lisUnableToReadTheProjectInfoFile = 'Unable to read the project info file%s%s%s%s.';
|
||||
lisUnableToReadFile2 = 'Unable to read file "%s".';
|
||||
lisUnableToReadFileError = 'Unable to read file "%s"%sError: %s';
|
||||
lisUnableToReadTheProjectInfoFile = 'Unable to read the project info file%s"%s".';
|
||||
lisUnableToReadLpi = 'Unable to read lpi';
|
||||
lisStrangeLpiFile = 'Strange lpi file';
|
||||
lisTheFileDoesNotLookLikeALpiFile = 'The file %s does not look like a lpi file.';
|
||||
@ -792,27 +782,27 @@ resourcestring
|
||||
+'packages contain a unit with the same name.';
|
||||
lisIgnoreAll = 'Ignore all';
|
||||
lisDeleteFileFailed = 'Delete file failed';
|
||||
lisUnableToRemoveOldBackupFile = 'Unable to remove old backup file %s%s%s!';
|
||||
lisUnableToRemoveOldBackupFile = 'Unable to remove old backup file "%s"!';
|
||||
lisRenameFileFailed = 'Rename file failed';
|
||||
lisUnableToRenameFileTo = 'Unable to rename file %s%s%s to %s%s%s!';
|
||||
lisUnableToRenameFileTo = 'Unable to rename file "%s" to "%s"!';
|
||||
lisUnableToRenameFileTo2= 'Unable to rename file "%s"%sto "%s".';
|
||||
lisBackupFileFailed = 'Backup file failed';
|
||||
lisUnableToBackupFileTo = 'Unable to backup file %s%s%s to %s%s%s!';
|
||||
lisUnableToBackupFileTo = 'Unable to backup file "%s" to "%s"!';
|
||||
lisFileNotLowercase = 'File not lowercase';
|
||||
lisTheUnitIsNotLowercaseTheFreePascalCompiler = 'The unit filename %s%s%s is '
|
||||
lisTheUnitIsNotLowercaseTheFreePascalCompiler = 'The unit filename "%s" is '
|
||||
+'not lowercase.%sThe Free Pascal compiler does not search for all cases.'
|
||||
+' It is recommended to use lowercase filename.%s%sRename file lowercase?';
|
||||
lisDeleteAmbiguousFile = 'Delete ambiguous file?';
|
||||
lisAmbiguousFileFoundThisFileCanBeMistakenWithDelete = 'Ambiguous file '
|
||||
+'found: %s%s%s%sThis file can be mistaken with %s%s%s%s%sDelete the '
|
||||
+'ambiguous file?';
|
||||
+'found: "%s"%sThis file can be mistaken with "%s"%s%sDelete the ambiguous file?';
|
||||
lisLazarusEditorV = 'Lazarus IDE v%s';
|
||||
lisnewProject = '(new project)';
|
||||
liscompiling = '%s (compiling ...)';
|
||||
lisdebugging = '%s (debugging ...)';
|
||||
lisRunning = '%s (running ...)';
|
||||
lisUnableToFindFile = 'Unable to find file %s%s%s.';
|
||||
lisUnableToFindFile = 'Unable to find file "%s".';
|
||||
lisUnableToFindFileCheckSearchPathInProjectCompilerOption = 'Unable to find '
|
||||
+'file %s%s%s.%sIf it belongs to your project, check search path '
|
||||
+'file "%s".%sIf it belongs to your project, check search path '
|
||||
+'in%sProject -> Compiler Options -> Search Paths -> Other Unit Files.'
|
||||
+' If this file belongs to a package, check the appropriate package compiler'
|
||||
+' options. If this file belongs to Lazarus, make sure compiling clean.'
|
||||
@ -1010,7 +1000,7 @@ resourcestring
|
||||
+'As Lazarus is growing we need more developers.';
|
||||
lisAboutNoContributors = 'Cannot find contributors list.';
|
||||
lisUnitNameAlreadyExistsCap = 'Unitname already in project';
|
||||
lisTheUnitAlreadyExists = 'The unit %s%s%s already exists.';
|
||||
lisTheUnitAlreadyExists = 'The unit "%s" already exists.';
|
||||
lisForceRenaming = 'Force renaming';
|
||||
lisCancelRenaming = 'Cancel renaming';
|
||||
lisAbortAll = 'Abort all';
|
||||
@ -3365,12 +3355,12 @@ resourcestring
|
||||
+'designer.%sThe class %s does not descend from a designable class like '
|
||||
+'TForm or TDataModule.';
|
||||
lisUnableToLoadTheComponentClassBecauseItDependsOnIts = 'Unable to load the '
|
||||
+'component class %s%s%s, because it depends on itself.';
|
||||
+'component class "%s", because it depends on itself.';
|
||||
lisCancelLoadingThisComponent = 'Cancel loading this component';
|
||||
lisAbortWholeLoading = 'Abort whole loading';
|
||||
lisIgnoreUseTFormAsAncestor = 'Ignore, use TForm as ancestor';
|
||||
lisTheResourceClassDescendsFromProbablyThisIsATypoFor = 'The resource '
|
||||
+'class %s%s%s descends from %s%s%s. Probably this is a typo for TForm.';
|
||||
+'class "%s" descends from "%s". Probably this is a typo for TForm.';
|
||||
|
||||
// make resource string dialog
|
||||
lisMakeResourceString = 'Make ResourceString';
|
||||
@ -3541,13 +3531,15 @@ resourcestring
|
||||
|
||||
// file checks
|
||||
lisUnableToCreateFile = 'Unable to create file';
|
||||
lisUnableToCreateFile4 = 'Unable to create file %s';
|
||||
lisCanNotCreateFile = 'Cannot create file %s%s%s';
|
||||
lisUnableToCreateFile2 = 'Unable to create file "%s"';
|
||||
lisUnableToCreateFile3 = 'Unable to create file%s"%s"';
|
||||
lisUnableToCopyFileTo = 'Unable to copy file "%s"%sto "%s"';
|
||||
lisCanNotCreateFile = 'Cannot create file "%s"';
|
||||
lisExtendUnitPath = 'Extend unit path?';
|
||||
lisTheDirectoryIsNotYetInTheUnitPathAddIt = 'The directory %s%s%s is not '
|
||||
+'yet in the unit path.%sAdd it?';
|
||||
lisUnableToCreateFilename = 'Unable to create file %s%s%s.';
|
||||
lisTheDirectoryIsNotYetInTheUnitPathAddIt = 'The directory "%s" is not yet in the unit path.%sAdd it?';
|
||||
lisUnableToWrite2 = 'Unable to write "%s"';
|
||||
lisUnableToWriteFile = 'Unable to write file';
|
||||
lisUnableToWriteFile2 = 'Unable to write file "%s".';
|
||||
lisUnableToWriteToFile2 = 'Unable to write to file "%s".';
|
||||
lisFileIsNotWritable = 'File is not writable';
|
||||
lisErrorDeletingFile = 'Error deleting file';
|
||||
@ -3555,10 +3547,9 @@ resourcestring
|
||||
lisTheFileMaskIsNotAValidRegularExpression = 'The file mask "%s" is not a '
|
||||
+'valid regular expression.';
|
||||
lisTheFileMaskIsInvalid = 'The file mask "%s" is invalid.';
|
||||
lisUnableToDeleteAmbiguousFile = 'Unable to delete ambiguous file %s%s%s';
|
||||
lisUnableToDeleteAmbiguousFile = 'Unable to delete ambiguous file "%s"';
|
||||
lisErrorRenamingFile = 'Error renaming file';
|
||||
lisUnableToRenameAmbiguousFileTo = 'Unable to rename ambiguous file %s%s%s%'
|
||||
+'sto %s%s%s';
|
||||
lisUnableToRenameAmbiguousFileTo = 'Unable to rename ambiguous file "%s"%sto "%s"';
|
||||
lisWarningAmbiguousFileFoundSourceFileIs = 'Warning: ambiguous file found: %'
|
||||
+'s%s%s. Source file is: %s%s%s';
|
||||
lisAmbiguousFileFound = 'Ambiguous file found';
|
||||
@ -3649,8 +3640,8 @@ resourcestring
|
||||
lisExecutionStopped = 'Execution stopped';
|
||||
lisFileNotFound = 'File not found';
|
||||
lisCleanUpUnitPath = 'Clean up unit path?';
|
||||
lisTheDirectoryIsNoLongerNeededInTheUnitPathRemoveIt = 'The directory %s%s%'
|
||||
+'s is no longer needed in the unit path.%sRemove it?';
|
||||
lisTheDirectoryIsNoLongerNeededInTheUnitPathRemoveIt =
|
||||
'The directory "%s" is no longer needed in the unit path.%sRemove it?';
|
||||
lisTheFileWasNotFoundDoYouWantToLocateItYourself = 'The file %s%s%s%swas '
|
||||
+'not found.%sDo you want to locate it yourself ?%s';
|
||||
lisRunToFailed = 'Run-to failed';
|
||||
@ -3808,7 +3799,7 @@ resourcestring
|
||||
+'like a compiled unit. Compiled units must be in the output directory of '
|
||||
+'the package, otherwise other packages can get problems using this '
|
||||
+'package.%s%sDelete ambiguous file?';
|
||||
lisPkgMangUnableToDeleteFile = 'Unable to delete file %s%s%s.';
|
||||
lisPkgMangUnableToDeleteFile = 'Unable to delete file "%s".';
|
||||
lisSkipErrors = 'Skip errors';
|
||||
lisDeleteAllTheseFiles = 'Delete all these files?';
|
||||
lisPkgMangUnsavedPackage = 'Unsaved package';
|
||||
@ -3855,7 +3846,7 @@ resourcestring
|
||||
lisPkgMangUnableToReadStateFileOfPackageError = 'Unable to read state file %'
|
||||
+'s%s%s%sof package %s.%sError: %s';
|
||||
lisPkgMangUnableToCreateDirectory = 'Unable to create directory';
|
||||
lisUnableToCreateDirectory = 'Unable to create directory %s%s%s.';
|
||||
lisUnableToCreateDirectory = 'Unable to create directory "%s".';
|
||||
lisPkgMangUnableToCreateOutputDirectoryForPackage = 'Unable to create '
|
||||
+'output directory %s%s%s%sfor package %s.';
|
||||
lisPkgMangUnableToDeleteFilename = 'Unable to delete file';
|
||||
@ -3894,7 +3885,7 @@ resourcestring
|
||||
lisPkgMangInvalidPackageFilename = 'Invalid package filename';
|
||||
lisPkgMangThePackageFileNameInIsNotAValidLazarusPackageName = 'The package '
|
||||
+'file name %s%s%s in%s%s%s%s is not a valid Lazarus package name.';
|
||||
lisPkgMangFileNotFound = 'File %s%s%s not found.';
|
||||
lisPkgMangFileNotFound = 'File "%s" not found.';
|
||||
lisPkgMangErrorReadingPackage = 'Error Reading Package';
|
||||
lisPkgUnableToReadPackageFileError = 'Unable to read package file %s%s%s.%sError: %s';
|
||||
lisPkgMangFilenameDiffersFromPackagename =
|
||||
@ -4708,15 +4699,13 @@ resourcestring
|
||||
rsFilterTheListWithString = 'Filter the lines in list with a string';
|
||||
|
||||
// Application Bundle
|
||||
lisUnableToWrite2 = 'Unable to write %s%s%s';
|
||||
lisErrorLoadingFrom = 'Error loading %s from%s%s%s%s';
|
||||
lisErrorSavingTo = 'Error saving %s to%s%s%s%s';
|
||||
lisXMLError = 'XML Error';
|
||||
lisXMLParserErrorInFileError = 'XML parser error in file %s%sError: %s';
|
||||
lisUnableToWriteXmlStreamToError = 'Unable to write xml stream to %s%sError: %s';
|
||||
lisFileIsSymlink = 'File is symlink';
|
||||
lisTheFileIsASymlinkOpenInstead = 'The file %s%s%s is a symlink.%s%sOpen %s%'
|
||||
+'s%s instead?';
|
||||
lisTheFileIsASymlinkOpenInstead = 'The file "%s" is a symlink.%s%sOpen "%s" instead?';
|
||||
lisOpenTarget = 'Open target';
|
||||
lisOpenSymlink = 'Open symlink';
|
||||
lisFileLinkError = 'File link error';
|
||||
@ -4908,15 +4897,15 @@ resourcestring
|
||||
+'not be deleted, because it is not owned by %s.';
|
||||
lisFilter3 = 'Filter: %s';
|
||||
lisInvalidPublishingDirectory = 'Invalid publishing Directory';
|
||||
lisSourceDirectoryAndDestinationDirectoryAreTheSameMa = 'Source directory %'
|
||||
+'s%s%s%sand destination directory %s%s%s%sare the same.%s%sMaybe you '
|
||||
lisSourceDirectoryAndDestinationDirectoryAreTheSameMa = 'Source directory '
|
||||
+'"%s"%sand destination directory "%s"%sare the same.%s%sMaybe you '
|
||||
+'misunderstand this feature.%sIt will clean/recreate the destination '
|
||||
+'directory%sand copies the package/project into it.';
|
||||
lisClearDirectory = 'Clear Directory?';
|
||||
lisInOrderToCreateACleanCopyOfTheProjectPackageAllFil = 'In order to create '
|
||||
+'a clean copy of the project/package, all files in the following '
|
||||
+'directory will be deleted and all its content will be lost.%s%sDelete '
|
||||
+'all files in %s%s%s?';
|
||||
+'all files in "%s"?';
|
||||
lisFileExtensionOfPrograms = 'File extension of programs';
|
||||
lisEveryNThLineNumber = 'Every n-th line number';
|
||||
lisShowOverviewGutter = 'Show overview Gutter';
|
||||
@ -4972,8 +4961,7 @@ resourcestring
|
||||
+'environmentoptions.xml';
|
||||
lisOverrideTheProjectBuildMode = '%soverride the project or IDE build mode.';
|
||||
lisProjectChangedOnDisk = 'Project changed on disk';
|
||||
lisTheProjectInformationFileHasChangedOnDisk = 'The project information '
|
||||
+'file %s%s%s%shas changed on disk.';
|
||||
lisTheProjectInformationFileHasChangedOnDisk = 'The project information file "%s"%shas changed on disk.';
|
||||
lisReopenProject = 'Reopen project';
|
||||
rsScanners = 'Scanners';
|
||||
rsAvailableScanners = 'Available scanners';
|
||||
@ -5132,8 +5120,7 @@ resourcestring
|
||||
lisThisFunctionNeedsAnOpenLfmFileInTheSourceEditor = 'This function needs '
|
||||
+'an open .lfm file in the source editor.';
|
||||
lisNoPascalFile = 'No Pascal file';
|
||||
lisUnableToFindPascalUnitPasPpForLfmFile = 'Unable to find Pascal unit (.'
|
||||
+'pas, .pp) for .lfm file%s%s%s%s';
|
||||
lisUnableToFindPascalUnitPasPpForLfmFile = 'Unable to find Pascal unit (.pas, .pp) for .lfm file%s"%s"';
|
||||
lisLFMIsOk = 'LFM is ok';
|
||||
lisClassesAndPropertiesExistValuesWereNotChecked = 'Classes and properties '
|
||||
+'exist. Values were not checked.';
|
||||
|
||||
31
ide/main.pp
31
ide/main.pp
@ -6300,7 +6300,7 @@ begin
|
||||
// check if file exists
|
||||
if not FileExistsCached(AFilename) then begin
|
||||
ACaption:=lisFileNotFound;
|
||||
AText:=Format(lisPkgMangFileNotFound, ['"', AFilename, '"']);
|
||||
AText:=Format(lisPkgMangFileNotFound, [AFilename]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtError, [mbAbort]);
|
||||
exit;
|
||||
end;
|
||||
@ -6324,14 +6324,13 @@ begin
|
||||
if (not FileUtil.FileIsText(AFilename,FileReadable)) and FileReadable then
|
||||
begin
|
||||
ACaption:=lisFileNotText;
|
||||
AText:=Format(lisFileDoesNotLookLikeATextFileOpenItAnyway,
|
||||
['"', AFilename, '"', LineEnding, LineEnding]);
|
||||
AText:=Format(lisFileDoesNotLookLikeATextFileOpenItAnyway,[AFilename,LineEnding,LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtConfirmation, [mbYes, mbAbort]);
|
||||
if Result=mrAbort then exit;
|
||||
end;
|
||||
if not FileReadable then begin
|
||||
Result:=IDEQuestionDialog(lisUnableToReadFile,
|
||||
Format(lisUnableToReadFile2, ['"', AFilename, '"']),
|
||||
Format(lisUnableToReadFile2, [AFilename]),
|
||||
mtError, [mrCancel, lisSkipFile, mrAbort, lisAbortAllLoading]);
|
||||
exit;
|
||||
end;
|
||||
@ -6496,7 +6495,7 @@ begin
|
||||
if (TestDir<>'') then begin
|
||||
IDEMessageDialog(lisCCOErrorCaption,
|
||||
Format(lisTheTestDirectoryCouldNotBeFoundSeeIDEOpt,
|
||||
[LineEnding, '"', EnvironmentOptions.TestBuildDirectory, '"', LineEnding]),
|
||||
[LineEnding, EnvironmentOptions.TestBuildDirectory, LineEnding]),
|
||||
mtError, [mbCancel]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
@ -8522,12 +8521,12 @@ begin
|
||||
end;
|
||||
end else begin
|
||||
if FilenameIsAbsolute(Filename) then begin
|
||||
IDEMessageDialog(lisInformation, Format(lisUnableToFindFile, ['"',
|
||||
Filename, '"']), mtInformation,[mbOk])
|
||||
IDEMessageDialog(lisInformation,
|
||||
Format(lisUnableToFindFile, [Filename]), mtInformation,[mbOk])
|
||||
end else if Filename<>'' then begin
|
||||
IDEMessageDialog(lisInformation, Format(
|
||||
lisUnableToFindFileCheckSearchPathInProjectCompilerOption, ['"',
|
||||
Filename, '"', LineEnding, LineEnding]),
|
||||
IDEMessageDialog(lisInformation,
|
||||
Format(lisUnableToFindFileCheckSearchPathInProjectCompilerOption,
|
||||
[Filename, LineEnding, LineEnding]),
|
||||
mtInformation,[mbOk]);
|
||||
end;
|
||||
end;
|
||||
@ -8647,13 +8646,13 @@ begin
|
||||
end;
|
||||
end else if AFilename<>'' then begin
|
||||
if FilenameIsAbsolute(AFilename) then begin
|
||||
IDEMessageDialog(lisInformation, Format(lisUnableToFindFile, ['"',
|
||||
AFilename, '"']), mtInformation,[mbOk]);
|
||||
IDEMessageDialog(lisInformation,
|
||||
Format(lisUnableToFindFile, [AFilename]), mtInformation,[mbOk]);
|
||||
end else if AFileName<>'' then begin
|
||||
IDEMessageDialog(lisInformation, Format(
|
||||
lisUnableToFindFileCheckSearchPathInProjectCompilerOption, ['"',
|
||||
AFilename, '"', LineEnding, LineEnding]),
|
||||
mtInformation,[mbOk]);
|
||||
IDEMessageDialog(lisInformation,
|
||||
Format(lisUnableToFindFileCheckSearchPathInProjectCompilerOption,
|
||||
[AFilename, LineEnding, LineEnding]),
|
||||
mtInformation,[mbOk]);
|
||||
end;
|
||||
end;
|
||||
end;//if
|
||||
|
||||
@ -1595,9 +1595,8 @@ begin
|
||||
NewSource:=CodeToolBoss.LoadFile(Filename,true,Revert);
|
||||
if NewSource=nil then begin
|
||||
ACaption:=lisCodeToolsDefsReadError;
|
||||
AText:=Format(lisUnableToReadFile2, ['"', Filename, '"']);
|
||||
Result:=Application.MessageBox(PChar(AText),PChar(ACaption)
|
||||
,MB_ABORTRETRYIGNORE);
|
||||
AText:=Format(lisUnableToReadFile2, [Filename]);
|
||||
Result:=Application.MessageBox(PChar(AText),PChar(ACaption),MB_ABORTRETRYIGNORE);
|
||||
if Result in [mrAbort,mrIgnore] then
|
||||
exit;
|
||||
end else begin
|
||||
@ -2930,8 +2929,8 @@ begin
|
||||
except
|
||||
on E: Exception do begin
|
||||
IDEMessageDialog(lisUnableToReadLpi,
|
||||
Format(lisUnableToReadTheProjectInfoFile,[LineEnding, Filename])+LineEnding
|
||||
+E.Message, mtError, [mbOk]);
|
||||
Format(lisUnableToReadTheProjectInfoFile,[LineEnding,Filename])+LineEnding+E.Message,
|
||||
mtError, [mbOk]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
@ -2958,8 +2957,8 @@ begin
|
||||
except
|
||||
on E: Exception do begin
|
||||
IDEMessageDialog(lisUnableToReadLpi,
|
||||
Format(lisUnableToReadTheProjectInfoFile,[LineEnding,PIFile])+LineEnding
|
||||
+E.Message, mtError, [mbOk]);
|
||||
Format(lisUnableToReadTheProjectInfoFile,[LineEnding,PIFile])+LineEnding+E.Message,
|
||||
mtError, [mbOk]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
|
||||
@ -190,9 +190,9 @@ begin
|
||||
end
|
||||
else
|
||||
{$IFNDEF EnableOldExtTools}
|
||||
IDEMessagesWindow.AddCustomMessage(mluError,Format(lisFileNotFound2, ['"', Filename, '"', '']));
|
||||
IDEMessagesWindow.AddCustomMessage(mluError,Format(lisFileNotFound2, [Filename]));
|
||||
{$ELSE}
|
||||
IDEMessagesWindow.AddMsg(Format(lisFileNotFound2, ['"', Filename, '"', '']), '', -1);
|
||||
IDEMessagesWindow.AddMsg(Format(lisFileNotFound2, [Filename]), '', -1);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
|
||||
@ -1583,7 +1583,7 @@ begin
|
||||
AFileName:=DiskFilename;
|
||||
if NewUnitInfo.IsVirtual then begin
|
||||
if (not (ofQuiet in Flags)) then begin
|
||||
IDEMessageDialog(lisRevertFailed, Format(lisFileIsVirtual, ['"',AFilename,'"']),
|
||||
IDEMessageDialog(lisRevertFailed, Format(lisFileIsVirtual, [AFilename]),
|
||||
mtInformation,[mbCancel]);
|
||||
end;
|
||||
Result:=mrCancel;
|
||||
@ -1636,8 +1636,7 @@ begin
|
||||
if (ofRevert in Flags) then begin
|
||||
// revert failed, due to missing file
|
||||
if not (ofQuiet in Flags) then begin
|
||||
IDEMessageDialog(lisRevertFailed, Format(lisPkgMangFileNotFound, ['"',
|
||||
AFilename, '"']),
|
||||
IDEMessageDialog(lisRevertFailed, Format(lisPkgMangFileNotFound, [AFilename]),
|
||||
mtError,[mbCancel]);
|
||||
end;
|
||||
Result:=mrCancel;
|
||||
@ -2262,8 +2261,7 @@ begin
|
||||
|
||||
if Project1.HasProjectInfoFileChangedOnDisk then begin
|
||||
if IDEQuestionDialog(lisProjectChangedOnDisk,
|
||||
Format(lisTheProjectInformationFileHasChangedOnDisk,
|
||||
['"', Project1.ProjectInfoFile, '"', LineEnding]),
|
||||
Format(lisTheProjectInformationFileHasChangedOnDisk,[Project1.ProjectInfoFile,LineEnding]),
|
||||
mtConfirmation, [mrYes, lisReopenProject, mrIgnore], '')=mrYes
|
||||
then begin
|
||||
MainIDE.DoOpenProjectFile(Project1.ProjectInfoFile,[]);
|
||||
@ -2333,16 +2331,15 @@ begin
|
||||
case ErrorData.Error of
|
||||
ceSrcDirDoesNotExists:
|
||||
IDEMessageDialog(lisCopyError2,
|
||||
Format(lisSourceDirectoryDoesNotExist, ['"', ErrorData.Param1, '"']),
|
||||
Format(lisSourceDirectoryDoesNotExist, [ErrorData.Param1]),
|
||||
mtError,[mbCancel]);
|
||||
ceCreatingDirectory:
|
||||
IDEMessageDialog(lisCopyError2,
|
||||
Format(lisUnableToCreateDirectory, ['"', ErrorData.Param1, '"']),
|
||||
Format(lisUnableToCreateDirectory, [ErrorData.Param1]),
|
||||
mtError,[mbCancel]);
|
||||
ceCopyFileError:
|
||||
IDEMessageDialog(lisCopyError2,
|
||||
Format(lisUnableToCopyFileTo, ['"', ErrorData.Param1, '"', LineEnding, '"',
|
||||
ErrorData.Param1, '"']),
|
||||
Format(lisUnableToCopyFileTo, [ErrorData.Param1, LineEnding, ErrorData.Param1]),
|
||||
mtError,[mbCancel]);
|
||||
end;
|
||||
end;
|
||||
@ -2360,7 +2357,7 @@ var
|
||||
procedure ShowErrorForCommandAfter;
|
||||
begin
|
||||
IDEMessageDialog(lisInvalidCommand,
|
||||
Format(lisTheCommandAfterIsNotExecutable, ['"', CmdAfterExe, '"']),
|
||||
Format(lisTheCommandAfterIsNotExecutable, [CmdAfterExe]),
|
||||
mtError,[mbCancel]);
|
||||
end;
|
||||
|
||||
@ -2382,8 +2379,8 @@ begin
|
||||
if CompareFilenames(SrcDir,DestDir)=0
|
||||
then begin
|
||||
IDEMessageDialog(lisInvalidPublishingDirectory,
|
||||
Format(lisSourceDirectoryAndDestinationDirectoryAreTheSameMa, ['"', SrcDir, '"',
|
||||
LineEnding, '"', DestDir, '"', LineEnding, LineEnding, LineEnding, LineEnding, LineEnding]),
|
||||
Format(lisSourceDirectoryAndDestinationDirectoryAreTheSameMa, [SrcDir, LineEnding,
|
||||
DestDir, LineEnding, LineEnding, LineEnding, LineEnding, LineEnding]),
|
||||
mtError, [mbCancel]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
@ -2411,8 +2408,8 @@ begin
|
||||
end;
|
||||
if not FileIsExecutableCached(CmdAfterExe) then begin
|
||||
IDEMessageDialog(lisCommandAfterInvalid,
|
||||
Format(lisTheCommandAfterPublishingIsInvalid,
|
||||
[LineEnding, '"', CmdAfterExe, '"']), mtError, [mbCancel]);
|
||||
Format(lisTheCommandAfterPublishingIsInvalid, [LineEnding, CmdAfterExe]),
|
||||
mtError, [mbCancel]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
@ -2423,14 +2420,13 @@ begin
|
||||
// ask user, if destination can be delete
|
||||
if IDEMessageDialog(lisClearDirectory,
|
||||
Format(lisInOrderToCreateACleanCopyOfTheProjectPackageAllFil,
|
||||
[LineEnding, LineEnding, '"', DestDir, '"']), mtConfirmation,
|
||||
[mbYes,mbNo])<>mrYes
|
||||
[LineEnding, LineEnding, DestDir]), mtConfirmation, [mbYes,mbNo])<>mrYes
|
||||
then
|
||||
exit(mrCancel);
|
||||
|
||||
if (not DeleteDirectory(ChompPathDelim(DestDir),true)) then begin
|
||||
IDEMessageDialog(lisUnableToCleanUpDestinationDirectory,
|
||||
Format(lisUnableToCleanUpPleaseCheckPermissions,['"',DestDir,'"',LineEnding]),
|
||||
Format(lisUnableToCleanUpPleaseCheckPermissions, [DestDir, LineEnding]),
|
||||
mtError,[mbOk]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
@ -2735,9 +2731,9 @@ begin
|
||||
if (ActiveUnitInfo=nil) then exit;
|
||||
if ActiveUnitInfo.IsPartOfProject then begin
|
||||
if not ActiveUnitInfo.IsVirtual then
|
||||
s:=Format(lisTheFile, ['"', ActiveUnitInfo.Filename, '"'])
|
||||
s:=Format(lisTheFile, [ActiveUnitInfo.Filename])
|
||||
else
|
||||
s:=Format(lisTheFile, ['"', ActiveSourceEditor.PageName, '"']);
|
||||
s:=Format(lisTheFile, [ActiveSourceEditor.PageName]);
|
||||
s:=Format(lisisAlreadyPartOfTheProject, [s]);
|
||||
IDEMessageDialog(lisInformation, s, mtInformation, [mbOk]);
|
||||
exit;
|
||||
@ -3410,8 +3406,8 @@ begin
|
||||
AFilename:=LPIFilename;
|
||||
end else begin
|
||||
if IDEQuestionDialog(lisFileHasNoProject,
|
||||
Format(lisTheFileIsNotALazarusProjectCreateANewProjectForThi, [
|
||||
'"', AFilename, '"', LineEnding, '"'+lowercase(SourceType)+'"']),
|
||||
Format(lisTheFileIsNotALazarusProjectCreateANewProjectForThi,
|
||||
[AFilename, LineEnding, lowercase(SourceType)]),
|
||||
mtConfirmation, [mrYes, lisCreateProject, mrCancel])<>mrYes
|
||||
then
|
||||
exit;
|
||||
@ -3959,8 +3955,7 @@ begin
|
||||
NewFilePath:=ExtractFilePath(NewFilename);
|
||||
if not DirPathExists(NewFilePath) then begin
|
||||
ACaption:=lisEnvOptDlgDirectoryNotFound;
|
||||
AText:=Format(lisTheDestinationDirectoryDoesNotExist,
|
||||
[LineEnding, '"', NewFilePath, '"']);
|
||||
AText:=Format(lisTheDestinationDirectoryDoesNotExist, [LineEnding, NewFilePath]);
|
||||
Result:=IDEMessageDialogAb(ACaption, AText, mtConfirmation,[mbCancel],CanAbort);
|
||||
exit;
|
||||
end;
|
||||
@ -3986,7 +3981,7 @@ begin
|
||||
if Project1.IndexOfUnitWithName(NewUnitName,true,AnUnitInfo)>=0 then
|
||||
begin
|
||||
Result:=IDEQuestionDialogAb(lisUnitNameAlreadyExistsCap,
|
||||
Format(lisTheUnitAlreadyExists, ['"', NewUnitName, '"']),
|
||||
Format(lisTheUnitAlreadyExists, [NewUnitName]),
|
||||
mtConfirmation, [mrIgnore, lisForceRenaming,
|
||||
mrCancel, lisCancelRenaming,
|
||||
mrAbort, lisAbortAll], not CanAbort);
|
||||
@ -4027,7 +4022,7 @@ begin
|
||||
or (CompareFilenames(NewFilename,AFilename)<>0))
|
||||
and FileExistsUTF8(NewFilename) then begin
|
||||
ACaption:=lisOverwriteFile;
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt, ['"', NewFilename, '"', LineEnding]);
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt, [NewFilename, LineEnding]);
|
||||
Result:=IDEQuestionDialogAb(ACaption, AText, mtConfirmation,
|
||||
[mrYes, lisOverwriteFileOnDisk, mrCancel,
|
||||
mrAbort, lisAbortAll], not CanAbort);
|
||||
@ -4271,7 +4266,7 @@ begin
|
||||
begin
|
||||
ACaption:=lisResourceSaveError;
|
||||
AText:=Format(lisUnableToAddResourceHeaderCommentToResourceFile, [
|
||||
LineEnding, '"', LRSCode.FileName, '"', LineEnding]);
|
||||
LineEnding, LRSCode.FileName, LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,[mbIgnore,mbAbort]);
|
||||
if Result<>mrIgnore then exit;
|
||||
end;
|
||||
@ -4281,8 +4276,7 @@ begin
|
||||
begin
|
||||
ACaption:=lisResourceSaveError;
|
||||
AText:=Format(lisUnableToAddResourceTFORMDATAToResourceFileProbably,
|
||||
[AnUnitInfo.ComponentName,
|
||||
LineEnding, '"', LRSCode.FileName, '"', LineEnding] );
|
||||
[AnUnitInfo.ComponentName, LineEnding, LRSCode.FileName, LineEnding] );
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtError, [mbIgnore, mbAbort]);
|
||||
if Result<>mrIgnore then exit;
|
||||
end else begin
|
||||
@ -4304,7 +4298,7 @@ begin
|
||||
LFMCode:=CodeToolBoss.CreateFile(LFMFilename);
|
||||
if LFMCode=nil then begin
|
||||
Result:=IDEQuestionDialog(lisUnableToCreateFile,
|
||||
Format(lisUnableToCreateFile2, ['"', LFMFilename, '"']),
|
||||
Format(lisUnableToCreateFile2, [LFMFilename]),
|
||||
mtWarning, [mrIgnore, lisContinueWithoutLoadingForm,
|
||||
mrCancel, lisCancelLoadingUnit,
|
||||
mrAbort, lisAbortAllLoading]);
|
||||
@ -4514,13 +4508,11 @@ begin
|
||||
// -> remove lfm file, so that it will not be auto loaded on next open
|
||||
if (FileExistsUTF8(NewLFMFilename))
|
||||
and (not DeleteFileUTF8(NewLFMFilename))
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed, Format(lisDeletingOfFileFailed, [
|
||||
'"', NewLFMFilename, '"']), mtError, [mbIgnore, mbCancel])=mrCancel)
|
||||
then
|
||||
begin
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed,
|
||||
Format(lisDeletingOfFileFailed, [NewLFMFilename]),
|
||||
mtError, [mbIgnore, mbCancel])=mrCancel)
|
||||
then
|
||||
exit(mrCancel);
|
||||
end;
|
||||
|
||||
// create new source with the new filename
|
||||
@ -4529,7 +4521,7 @@ begin
|
||||
NewSource.Source:=OldSourceCode;
|
||||
if NewSource=nil then begin
|
||||
Result:=IDEMessageDialog(lisUnableToCreateFile,
|
||||
Format(lisCanNotCreateFile, ['"', NewFilename, '"']),
|
||||
Format(lisCanNotCreateFile, [NewFilename]),
|
||||
mtError,[mbCancel,mbAbort]);
|
||||
exit;
|
||||
end;
|
||||
@ -4550,8 +4542,7 @@ begin
|
||||
if SearchDirectoryInSearchPath(OldUnitPath,NewFilePath,1)<1 then begin
|
||||
//DebugLn('TLazSourceFileManager.RenameUnit NewFilePath="',NewFilePath,'" OldUnitPath="',OldUnitPath,'"');
|
||||
if IDEMessageDialog(lisExtendUnitPath,
|
||||
Format(lisTheDirectoryIsNotYetInTheUnitPathAddIt,
|
||||
['"', NewFilePath, '"', LineEnding]),
|
||||
Format(lisTheDirectoryIsNotYetInTheUnitPathAddIt,[NewFilePath,LineEnding]),
|
||||
mtConfirmation,[mbYes,mbNo])=mrYes then
|
||||
begin
|
||||
Project1.CompilerOptions.OtherUnitFiles:=
|
||||
@ -4694,7 +4685,7 @@ begin
|
||||
and (CompareFilenames(OldFilePath,NewFilePath)=0)
|
||||
and (CompareFilenames(AmbiguousFiles[0],ExtractFilename(OldFilename))=0)
|
||||
then
|
||||
AmbiguousText:=Format(lisDeleteOldFile, ['"', ExtractFilename(OldFilename), '"'])
|
||||
AmbiguousText:=Format(lisDeleteOldFile, [ExtractFilename(OldFilename)])
|
||||
else
|
||||
AmbiguousText:=Format(lisThereAreOtherFilesInTheDirectoryWithTheSameName,
|
||||
[LineEnding, LineEnding, AmbiguousFiles.Text, LineEnding]);
|
||||
@ -4707,12 +4698,11 @@ begin
|
||||
AmbiguousFilename:=NewFilePath+AmbiguousFiles[i];
|
||||
if (FileExistsUTF8(AmbiguousFilename))
|
||||
and (not DeleteFileUTF8(AmbiguousFilename))
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed, Format(lisDeletingOfFileFailed,
|
||||
['"', AmbiguousFilename, '"']), mtError, [mbIgnore, mbCancel])=mrCancel) then
|
||||
begin
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed,
|
||||
Format(lisDeletingOfFileFailed, [AmbiguousFilename]),
|
||||
mtError, [mbIgnore, mbCancel])=mrCancel)
|
||||
then
|
||||
exit(mrCancel);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
@ -4733,8 +4723,7 @@ begin
|
||||
Project1.CompilerOptions.GetUnitPath(false),OldFilePath,1)<1)
|
||||
then begin
|
||||
if IDEMessageDialog(lisCleanUpUnitPath,
|
||||
Format(lisTheDirectoryIsNoLongerNeededInTheUnitPathRemoveIt,
|
||||
['"', OldFilePath, '"', LineEnding]),
|
||||
Format(lisTheDirectoryIsNoLongerNeededInTheUnitPathRemoveIt,[OldFilePath,LineEnding]),
|
||||
mtConfirmation,[mbYes,mbNo])=mrYes then
|
||||
begin
|
||||
Project1.CompilerOptions.OtherUnitFiles:=
|
||||
@ -4747,8 +4736,7 @@ begin
|
||||
// delete old pas, .pp, .ppu
|
||||
if (CompareFilenames(NewFilename,OldFilename)<>0)
|
||||
and OldFileExisted then begin
|
||||
if IDEMessageDialog(lisDeleteOldFile2,
|
||||
Format(lisDeleteOldFile, ['"', OldFilename, '"']),
|
||||
if IDEMessageDialog(lisDeleteOldFile2, Format(lisDeleteOldFile,[OldFilename]),
|
||||
mtConfirmation,[mbYes,mbNo])=mrYes then
|
||||
begin
|
||||
Result:=DeleteFileInteractive(OldFilename,[mbAbort]);
|
||||
@ -4855,7 +4843,7 @@ begin
|
||||
if AskUser then begin
|
||||
Result:=IDEQuestionDialog(lisFileNotLowercase,
|
||||
Format(lisTheUnitIsNotLowercaseTheFreePascalCompiler,
|
||||
['"', OldFilename, '"', LineEnding, LineEnding, LineEnding]),
|
||||
[OldFilename, LineEnding, LineEnding, LineEnding]),
|
||||
mtConfirmation,[mrYes,mrIgnore,lisNo,mrAbort],'');
|
||||
if Result<>mrYes then exit;
|
||||
end;
|
||||
@ -4878,7 +4866,7 @@ begin
|
||||
// this is a file, that was loaded last time, but was removed from disk
|
||||
Result:=IDEQuestionDialog(lisFileNotFound,
|
||||
Format(lisTheFileWasNotFoundIgnoreWillGoOnLoadingTheProject,
|
||||
['"', AFilename, '"', LineEnding, LineEnding, LineEnding]),
|
||||
[AFilename, LineEnding, LineEnding, LineEnding]),
|
||||
mtError, [mrIgnore, lisSkipFileAndContinueLoading,
|
||||
mrAbort, lisAbortLoadingProject]);
|
||||
exit;
|
||||
@ -4891,14 +4879,14 @@ begin
|
||||
if ofOnlyIfExists in Flags
|
||||
then begin
|
||||
IDEMessageDialog(lisFileNotFound,
|
||||
Format(lisFileNotFound2, ['"',AFilename,'"',LineEnding]), mtInformation,[mbCancel]);
|
||||
Format(lisFileNotFound2, [AFilename])+LineEnding, mtInformation,[mbCancel]);
|
||||
// cancel loading file
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if IDEMessageDialog(lisFileNotFound,
|
||||
Format(lisFileNotFoundDoYouWantToCreateIt, ['"',AFilename,'"',LineEnding,LineEnding]),
|
||||
mtInformation,[mbYes,mbNo])=mrYes then
|
||||
Format(lisFileNotFoundDoYouWantToCreateIt,[AFilename,LineEnding])+LineEnding,
|
||||
mtInformation,[mbYes,mbNo])=mrYes then
|
||||
begin
|
||||
// create new file
|
||||
NewFlags:=[nfOpenInEditor,nfCreateDefaultSrc];
|
||||
@ -4961,7 +4949,7 @@ begin
|
||||
end;
|
||||
end else begin
|
||||
AText:=Format(lisTheFileSeemsToBeAProgramCloseCurrentProject,
|
||||
['"', AFilename, '"', LineEnding, LineEnding]);
|
||||
[AFilename, LineEnding, LineEnding]);
|
||||
ACaption:=lisProgramDetected;
|
||||
if IDEMessageDialog(ACaption, AText, mtConfirmation, [mbYes,mbNo])=mrYes then
|
||||
begin
|
||||
@ -5079,8 +5067,7 @@ begin
|
||||
end;
|
||||
if UnitFilename='' then begin
|
||||
IDEMessageDialog(lisNoPascalFile,
|
||||
Format(lisUnableToFindPascalUnitPasPpForLfmFile,
|
||||
[LineEnding, '"', LFMUnitInfo.Filename, '"']),
|
||||
Format(lisUnableToFindPascalUnitPasPpForLfmFile,[LineEnding, LFMUnitInfo.Filename]),
|
||||
mtError,[mbCancel]);
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
@ -5413,7 +5400,7 @@ begin
|
||||
if (NewClassName='') or (LFMType='') then begin
|
||||
DebugLn(['TLazSourceFileManager.LoadLFM LFM file corrupt']);
|
||||
Result:=IDEMessageDialog(lisLFMFileCorrupt,
|
||||
Format(lisUnableToFindAValidClassnameIn, ['"', LFMBuf.Filename, '"']),
|
||||
Format(lisUnableToFindAValidClassnameIn, [LFMBuf.Filename]),
|
||||
mtError,[mbIgnore,mbCancel,mbAbort]);
|
||||
exit;
|
||||
end;
|
||||
@ -5504,7 +5491,7 @@ begin
|
||||
DumpExceptionBackTrace;
|
||||
ACaption:=lisFormatError;
|
||||
AText:=Format(lisUnableToConvertTextFormDataOfFileIntoBinaryStream,
|
||||
[LineEnding, '"', LFMBuf.Filename, '"', LineEnding, E.Message]);
|
||||
[LineEnding, LFMBuf.Filename, LineEnding, E.Message]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtError, [mbOk, mbCancel]);
|
||||
if Result=mrCancel then Result:=mrAbort;
|
||||
exit;
|
||||
@ -5726,9 +5713,9 @@ begin
|
||||
if (DescendantClassName<>'')
|
||||
and (SysUtils.CompareText(AComponentClassName,'TCustomForm')=0) then begin
|
||||
// this is a common user mistake
|
||||
IDEMessageDialog(lisCodeTemplError, Format(
|
||||
lisTheResourceClassDescendsFromProbablyThisIsATypoFor, ['"',
|
||||
DescendantClassName, '"', '"', AComponentClassName, '"']),
|
||||
IDEMessageDialog(lisCodeTemplError,
|
||||
Format(lisTheResourceClassDescendsFromProbablyThisIsATypoFor,
|
||||
[DescendantClassName, AComponentClassName]),
|
||||
mtError,[mbCancel]);
|
||||
Result:=false;
|
||||
exit;
|
||||
@ -6341,9 +6328,8 @@ begin
|
||||
|
||||
// check for cycles
|
||||
if AnUnitInfo.LoadingComponent then begin
|
||||
Result:=IDEQuestionDialog(lisCodeTemplError, Format(
|
||||
lisUnableToLoadTheComponentClassBecauseItDependsOnIts, ['"',
|
||||
AComponentClassName, '"']),
|
||||
Result:=IDEQuestionDialog(lisCodeTemplError,
|
||||
Format(lisUnableToLoadTheComponentClassBecauseItDependsOnIts, [AComponentClassName]),
|
||||
mtError, [mrCancel, lisCancelLoadingThisComponent,
|
||||
mrAbort, lisAbortWholeLoading]);
|
||||
exit;
|
||||
@ -6983,8 +6969,7 @@ begin
|
||||
NewProgramName:=ExtractFileNameOnly(AFilename);
|
||||
if (NewProgramName='') or (not IsValidUnitName(NewProgramName)) then begin
|
||||
Result:=IDEMessageDialog(lisInvalidProjectFilename,
|
||||
Format(lisisAnInvalidProjectNamePleaseChooseAnotherEGProject, ['"',
|
||||
SaveDialog.Filename, '"', LineEnding]),
|
||||
Format(lisisAnInvalidProjectNamePleaseChooseAnotherEGProject,[SaveDialog.Filename,LineEnding]),
|
||||
mtInformation,[mbRetry,mbAbort]);
|
||||
if Result=mrAbort then exit;
|
||||
continue; // try again
|
||||
@ -7017,8 +7002,7 @@ begin
|
||||
if (CompareFilenames(NewLPIFilename, NewProgramFilename) = 0) then
|
||||
begin
|
||||
ACaption:=lisChooseADifferentName;
|
||||
AText:=Format(lisTheProjectInfoFileIsEqualToTheProjectMainSource, [
|
||||
'"', NewLPIFilename, '"', LineEnding]);
|
||||
AText:=Format(lisTheProjectInfoFileIsEqualToTheProjectMainSource,[NewLPIFilename,LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtError, [mbAbort,mbRetry]);
|
||||
if Result=mrAbort then exit;
|
||||
continue; // try again
|
||||
@ -7029,8 +7013,7 @@ begin
|
||||
Project1.MainUnitInfo)>=0) then
|
||||
begin
|
||||
ACaption:=lisUnitIdentifierExists;
|
||||
AText:=Format(lisThereIsAUnitWithTheNameInTheProjectPleaseChoose, ['"',
|
||||
NewProgramName, '"', LineEnding]);
|
||||
AText:=Format(lisThereIsAUnitWithTheNameInTheProjectPleaseChoose,[NewProgramName,LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption,AText,mtError,[mbRetry,mbAbort]);
|
||||
if Result=mrAbort then exit;
|
||||
continue; // try again
|
||||
@ -7052,7 +7035,7 @@ begin
|
||||
if FileExistsUTF8(NewLPIFilename) then
|
||||
begin
|
||||
ACaption:=lisOverwriteFile;
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt, ['"', NewLPIFilename, '"', LineEnding]);
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt, [NewLPIFilename, LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtConfirmation, [mbOk, mbCancel]);
|
||||
if Result=mrCancel then exit;
|
||||
end
|
||||
@ -7061,8 +7044,7 @@ begin
|
||||
if FileExistsUTF8(NewProgramFilename) then
|
||||
begin
|
||||
ACaption:=lisOverwriteFile;
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt,
|
||||
['"', NewProgramFilename, '"', LineEnding]);
|
||||
AText:=Format(lisAFileAlreadyExistsReplaceIt, [NewProgramFilename, LineEnding]);
|
||||
Result:=IDEMessageDialog(ACaption, AText, mtConfirmation,[mbOk,mbCancel]);
|
||||
if Result=mrCancel then exit;
|
||||
end;
|
||||
@ -7107,8 +7089,9 @@ begin
|
||||
// switch MainUnitInfo.Source to new code
|
||||
NewBuf := CodeToolBoss.CreateFile(NewProgramFilename);
|
||||
if NewBuf=nil then begin
|
||||
Result:=IDEMessageDialog(lisErrorCreatingFile, Format(lisUnableToCreateFile3, [
|
||||
LineEnding, '"', NewProgramFilename, '"']), mtError, [mbCancel]);
|
||||
Result:=IDEMessageDialog(lisErrorCreatingFile,
|
||||
Format(lisUnableToCreateFile3, [LineEnding, NewProgramFilename]),
|
||||
mtError, [mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
@ -273,7 +273,7 @@ begin
|
||||
if (not FileExistsUTF8(AFilename)) then begin
|
||||
if AddFileType=d2ptUnit then begin
|
||||
IDEMessageDialog(lisFileNotFound,
|
||||
Format(lisPkgMangFileNotFound, ['"', AFilename, '"']),
|
||||
Format(lisPkgMangFileNotFound, [AFilename]),
|
||||
mtError, [mbCancel]);
|
||||
exit;
|
||||
end;
|
||||
|
||||
@ -4522,13 +4522,11 @@ var
|
||||
if Result in [mrYes,mrYesToAll] then begin
|
||||
YesToAll:=Result=mrYesToAll;
|
||||
if (not DeleteFileUTF8(AmbiguousFilename))
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed, Format(lisDeletingOfFileFailed,
|
||||
['"', AmbiguousFilename, '"']), mtError, [mbIgnore, mbCancel])
|
||||
<>mrIgnore) then
|
||||
begin
|
||||
Result:=mrCancel;
|
||||
exit;
|
||||
end;
|
||||
and (IDEMessageDialog(lisPkgMangDeleteFailed,
|
||||
Format(lisDeletingOfFileFailed, [AmbiguousFilename]),
|
||||
mtError, [mbIgnore, mbCancel])<>mrIgnore)
|
||||
then
|
||||
exit(mrCancel);
|
||||
Result:=mrOk;
|
||||
end else
|
||||
break;
|
||||
|
||||
@ -1265,8 +1265,7 @@ begin
|
||||
EnvironmentOptions.RecentPackageFiles,rltFile);
|
||||
end else begin
|
||||
IDEMessageDialog(lisPkgMangDeleteFailed,
|
||||
Format(lisPkgMangUnableToDeleteFile, ['"', OldPkgFilename, '"']),
|
||||
mtError, [mbOk]);
|
||||
Format(lisPkgMangUnableToDeleteFile, [OldPkgFilename]), mtError, [mbOk]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -2309,7 +2308,7 @@ begin
|
||||
|
||||
if not FileExistsUTF8(AFilename) then begin
|
||||
IDEMessageDialog(lisFileNotFound,
|
||||
Format(lisPkgMangFileNotFound, ['"', AFilename, '"']),
|
||||
Format(lisPkgMangFileNotFound, [AFilename]),
|
||||
mtError,[mbCancel]);
|
||||
RemoveFromRecentList(AFilename,EnvironmentOptions.RecentPackageFiles,rltFile);
|
||||
SetRecentPackagesMenu;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user