mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-11 20:59:10 +02:00
IDE: removed unnecessary confusing clarifications from "Unitname already in project" dialog wording
git-svn-id: trunk@38063 -
This commit is contained in:
parent
47c5ae5d8e
commit
81ed83a234
@ -945,9 +945,7 @@ resourcestring
|
||||
+'As Lazarus is growing we need more developers.';
|
||||
lisAboutNoContributors = 'Cannot find contributors list.';
|
||||
lisUnitNameAlreadyExistsCap = 'Unitname already in project';
|
||||
lisTheUnitAlreadyExistsIgnoreWillForceTheRenaming = 'The unit %s%s%s '
|
||||
+'already exists.%sIgnore will force the renaming,%sCancel will cancel '
|
||||
+'the saving of this source and%sAbort will abort the whole saving.';
|
||||
lisTheUnitAlreadyExists = 'The unit %s%s%s already exists.';
|
||||
lisForceRenaming = 'Force renaming';
|
||||
lisCancelRenaming = 'Cancel renaming';
|
||||
lisAbortAll = 'Abort all';
|
||||
|
@ -5813,8 +5813,7 @@ begin
|
||||
if Project1.IndexOfUnitWithName(NewUnitName,true,AnUnitInfo)>=0 then
|
||||
begin
|
||||
Result:=IDEQuestionDialogAb(lisUnitNameAlreadyExistsCap,
|
||||
Format(lisTheUnitAlreadyExistsIgnoreWillForceTheRenaming, ['"',
|
||||
NewUnitName, '"', #13, #13, #13]),
|
||||
Format(lisTheUnitAlreadyExists, ['"', NewUnitName, '"']),
|
||||
mtConfirmation, [mrIgnore, lisForceRenaming,
|
||||
mrCancel, lisCancelRenaming,
|
||||
mrAbort, lisAbortAll], not CanAbort);
|
||||
|
Loading…
Reference in New Issue
Block a user