paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: fix a message text.

Browse Source 
git-svn-id: trunk@32628 -
This commit is contained in:
juha 2011-10-02 21:09:16 +00:00
parent 525b562ee9
commit ebda97db9c
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/lazarusidestrconsts.pas
View File

@ -3848,8 +3848,7 @@ resourcestring
lisA2PTheUnitNameIsTheSameAsAnRegisteredComponent = 'The unit name %s%s%s '
+'is the same as an registered component.%sUsing this can cause strange '
+'error messages.';
lisA2PFileAlreadyExistsInTheProject = 'File %s%s%s already exists in the '
+'project.';
lisA2PFileAlreadyExistsInThePackage = 'File %s%s%s already exists in the package.';
lisA2PExistingFile = '%sExisting file: %s%s%s';
lisA2PFileAlreadyExists = 'File already exists';
lisA2PFileIsUsed = 'File is used';

2
packager/addtopackagedlg.pas
View File

@ -287,7 +287,7 @@ begin
if FilenameIsAbsolute(AFilename) then begin
PkgFile:=LazPackage.FindPkgFile(AFilename,true,false);
if PkgFile<>nil then begin
Msg:=Format(lisA2PFileAlreadyExistsInTheProject, ['"', AFilename, '"']);
Msg:=Format(lisA2PFileAlreadyExistsInThePackage, ['"', AFilename, '"']);
if PkgFile.Filename<>AFilename then
Msg:=Format(lisA2PExistingFile, [#13, '"', PkgFile.Filename, '"']);
MessageDlg(lisA2PFileAlreadyExists, Msg, mtError, [mbCancel], 0);