IDE: aded resourcestrings

git-svn-id: trunk@21391 -
This commit is contained in:
mattias 2009-08-22 14:56:13 +00:00
parent 6f2fbc674a
commit ffe4367a67
2 changed files with 5 additions and 3 deletions

View File

@ -1095,6 +1095,8 @@ resourcestring
lisEnvOptDlgInvalidDebuggerFilenameMsg =
'The debugger file "%s" is not an executable.';
lisEnvOptDlgDirectoryNotFound = 'Directory not found';
lisDirectoryNotFound = 'Directory %s%s%s not found.';
lisRemoveFromSearchPath = 'Remove from search path';
lisTheDirectoryWasNotFound = 'The directory %s was not found.';
lisInstallationFailed = 'Installation failed';
lisPkgMangThePackageFailedToCompileRemoveItFromTheInstallati = 'The package %'

View File

@ -225,9 +225,9 @@ begin
IDEMacros.SubstituteMacros(CurDir);
LazPackage.LongenFilename(CurDir);
if not DirPathExists(CurDir) then begin
DlgResult:=QuestionDlg('Directory not found',
'Directory "'+CurDir+'" not found.',
mtError,[mrIgnore,mrYes,'Remove from search path',mrCancel],0);
DlgResult:=QuestionDlg(lisEnvOptDlgDirectoryNotFound,
Format(lisDirectoryNotFound, ['"', CurDir, '"']),
mtError, [mrIgnore, mrYes, lisRemoveFromSearchPath, mrCancel], 0);
case DlgResult of
mrIgnore: ;
mrYes: