mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-25 01:59:16 +02:00
IDE: replaced some cycle with circular dependency
git-svn-id: trunk@34590 -
This commit is contained in:
parent
16b7e1da2a
commit
fc55260fbc
@ -318,7 +318,7 @@ begin
|
|||||||
ReferenceControl,ReferenceSide,CheckPosition))
|
ReferenceControl,ReferenceSide,CheckPosition))
|
||||||
then begin
|
then begin
|
||||||
if MessageDlg(lisCCOWarningCaption,
|
if MessageDlg(lisCCOWarningCaption,
|
||||||
lisThisWillCreateACycle, mtWarning, [mbIgnore, mbCancel], 0)<>
|
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel], 0)<>
|
||||||
mrIgnore
|
mrIgnore
|
||||||
then begin
|
then begin
|
||||||
Refresh(false);
|
Refresh(false);
|
||||||
@ -538,7 +538,7 @@ begin
|
|||||||
ReferenceControl,ReferenceSide,CheckPosition))
|
ReferenceControl,ReferenceSide,CheckPosition))
|
||||||
then begin
|
then begin
|
||||||
if MessageDlg(lisCCOWarningCaption,
|
if MessageDlg(lisCCOWarningCaption,
|
||||||
lisThisWillCreateACycle, mtWarning, [mbIgnore, mbCancel], 0)<>
|
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel], 0)<>
|
||||||
mrIgnore
|
mrIgnore
|
||||||
then begin
|
then begin
|
||||||
Refresh(false);
|
Refresh(false);
|
||||||
@ -649,7 +649,7 @@ begin
|
|||||||
ReferenceControl,ReferenceSide,CheckPosition))
|
ReferenceControl,ReferenceSide,CheckPosition))
|
||||||
then begin
|
then begin
|
||||||
if MessageDlg(lisCCOWarningCaption,
|
if MessageDlg(lisCCOWarningCaption,
|
||||||
lisThisWillCreateACycle, mtWarning, [mbIgnore, mbCancel], 0)<>
|
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel], 0)<>
|
||||||
mrIgnore
|
mrIgnore
|
||||||
then begin
|
then begin
|
||||||
Refresh(false);
|
Refresh(false);
|
||||||
|
@ -1978,8 +1978,8 @@ var
|
|||||||
// check cycles
|
// check cycles
|
||||||
if TheFormEditor.ClassDependsOnComponent(NewComponentClass, LookupRoot) then
|
if TheFormEditor.ClassDependsOnComponent(NewComponentClass, LookupRoot) then
|
||||||
begin
|
begin
|
||||||
IDEMessageDialog(lisInvalidCycle,
|
IDEMessageDialog(lisA2PInvalidCircularDependency,
|
||||||
Format(lisIsAThisCycleDependencyIsNotAllowed, [dbgsName(LookupRoot),
|
Format(lisIsAThisCircularDependencyIsNotAllowed, [dbgsName(LookupRoot),
|
||||||
dbgsName(NewComponentClass), #13]),
|
dbgsName(NewComponentClass), #13]),
|
||||||
mtError,[mbOk],'');
|
mtError,[mbOk],'');
|
||||||
exit;
|
exit;
|
||||||
|
@ -3644,16 +3644,16 @@ resourcestring
|
|||||||
+'Project Inspector.';
|
+'Project Inspector.';
|
||||||
lisPkgMangARequiredPackagesWasNotFound = 'A required packages was not '
|
lisPkgMangARequiredPackagesWasNotFound = 'A required packages was not '
|
||||||
+'found. See package graph.';
|
+'found. See package graph.';
|
||||||
lisPkgMangCycleInPackageDependencies = 'Cycle in package dependencies';
|
lisPkgMangCircularDependencies = 'Circular dependencies found';
|
||||||
lisPkgMangThePackageIsCompiledAutomaticallyAndItsOutputDirec = 'The package '
|
lisPkgMangThePackageIsCompiledAutomaticallyAndItsOutputDirec = 'The package '
|
||||||
+'%s is compiled automatically and its output directory is "%s", which is '
|
+'%s is compiled automatically and its output directory is "%s", which is '
|
||||||
+'in the default unit search path of the compiler. The package uses other '
|
+'in the default unit search path of the compiler. The package uses other '
|
||||||
+'packages which also uses the default unit search of the compiler. This '
|
+'packages which also uses the default unit search of the compiler. This '
|
||||||
+'creates a cycle.%sYou can fix this issue%sby removing the path from '
|
+'creates an endless loop.%sYou can fix this issue%sby removing the path from '
|
||||||
+'your compiler config (e.g. fpc.cfg)%sor by disabling the auto update of '
|
+'your compiler config (e.g. fpc.cfg)%sor by disabling the auto update of '
|
||||||
+'this package%sor by removing dependencies.';
|
+'this package%sor by removing dependencies.';
|
||||||
lisPkgMangThereIsACycleInTheRequiredPackages = 'There is a cycle in the '
|
lisPkgMangThereIsACircularDependency = 'There is a circular dependency in the '
|
||||||
+'required packages. See package graph.';
|
+'packages. See package graph.';
|
||||||
lisPkgMangThereAreTwoUnitsWithTheSameName1From2From = 'There are two units '
|
lisPkgMangThereAreTwoUnitsWithTheSameName1From2From = 'There are two units '
|
||||||
+'with the same name:%s%s1. %s%s%s from %s%s2. %s%s%s from %s%s%s';
|
+'with the same name:%s%s1. %s%s%s from %s%s2. %s%s%s from %s%s%s';
|
||||||
lisPkgMangThereIsAUnitWithTheSameNameAsAPackage1From2 = 'There is a unit '
|
lisPkgMangThereIsAUnitWithTheSameNameAsAPackage1From2 = 'There is a unit '
|
||||||
@ -3923,7 +3923,7 @@ resourcestring
|
|||||||
lisA2PInvalidClassName = 'Invalid Class Name';
|
lisA2PInvalidClassName = 'Invalid Class Name';
|
||||||
lisA2PTheClassNameIsNotAValidPascalIdentifier = 'The class name %s%s%s is '
|
lisA2PTheClassNameIsNotAValidPascalIdentifier = 'The class name %s%s%s is '
|
||||||
+'not a valid pascal identifier.';
|
+'not a valid pascal identifier.';
|
||||||
lisA2PInvalidCycle = 'Invalid Cycle';
|
lisA2PInvalidCircularDependency = 'Invalid Circular Dependency';
|
||||||
lisA2PTheClassNameAndAncestorTypeAreTheSame = 'The class name %s%s%s and '
|
lisA2PTheClassNameAndAncestorTypeAreTheSame = 'The class name %s%s%s and '
|
||||||
+'ancestor type %s%s%s are the same.';
|
+'ancestor type %s%s%s are the same.';
|
||||||
lisA2PAmbiguousAncestorType = 'Ambiguous Ancestor Type';
|
lisA2PAmbiguousAncestorType = 'Ambiguous Ancestor Type';
|
||||||
@ -4486,7 +4486,7 @@ resourcestring
|
|||||||
lisLeftGroupBoxCaption = 'Left anchoring';
|
lisLeftGroupBoxCaption = 'Left anchoring';
|
||||||
lisBottomGroupBoxCaption = 'Bottom anchoring';
|
lisBottomGroupBoxCaption = 'Bottom anchoring';
|
||||||
lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control';
|
lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control';
|
||||||
lisThisWillCreateACycle = 'This will create a cycle.';
|
lisThisWillCreateACircularDependency = 'This will create a circular dependency.';
|
||||||
lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected';
|
lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected';
|
||||||
lisAnchorsOfSelectedControls = 'Anchors of selected controls';
|
lisAnchorsOfSelectedControls = 'Anchors of selected controls';
|
||||||
lisDebugOptionsFrmAdditionalSearchPath = 'Additional search path';
|
lisDebugOptionsFrmAdditionalSearchPath = 'Additional search path';
|
||||||
@ -4798,8 +4798,7 @@ resourcestring
|
|||||||
lisPWOpenRecentProject = 'Open Recent Project';
|
lisPWOpenRecentProject = 'Open Recent Project';
|
||||||
lisPWViewExampleProjects = 'View Example Projects';
|
lisPWViewExampleProjects = 'View Example Projects';
|
||||||
lisPWConvertProject = 'Convert Delphi Project';
|
lisPWConvertProject = 'Convert Delphi Project';
|
||||||
lisInvalidCycle = 'Invalid cycle';
|
lisIsAThisCircularDependencyIsNotAllowed = '%s is a %s.%sThis circular '
|
||||||
lisIsAThisCycleDependencyIsNotAllowed = '%s is a %s.%sThis cycle '
|
|
||||||
+'dependency is not allowed.';
|
+'dependency is not allowed.';
|
||||||
lisTheComponentCanNotBeDeletedBecauseItIsNotOwnedBy = 'The component %s can '
|
lisTheComponentCanNotBeDeletedBecauseItIsNotOwnedBy = 'The component %s can '
|
||||||
+'not be deleted, because it is not owned by %s.';
|
+'not be deleted, because it is not owned by %s.';
|
||||||
|
@ -867,7 +867,7 @@ begin
|
|||||||
|
|
||||||
// check classname<>ancestortype
|
// check classname<>ancestortype
|
||||||
if AnsiCompareText(Params.NewClassName,Params.AncestorType)=0 then begin
|
if AnsiCompareText(Params.NewClassName,Params.AncestorType)=0 then begin
|
||||||
IDEMessageDialog(lisA2PInvalidCycle,
|
IDEMessageDialog(lisA2PInvalidCircularDependency,
|
||||||
Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"',
|
Format(lisA2PTheClassNameAndAncestorTypeAreTheSame, ['"',
|
||||||
Params.NewClassName, '"', '"', Params.AncestorType, '"']),
|
Params.NewClassName, '"', '"', Params.AncestorType, '"']),
|
||||||
mtError,[mbCancel]);
|
mtError,[mbCancel]);
|
||||||
|
@ -1251,8 +1251,8 @@ begin
|
|||||||
PathList:=PackageGraph.FindCycleDependencyPath(APackage,FirstDependency);
|
PathList:=PackageGraph.FindCycleDependencyPath(APackage,FirstDependency);
|
||||||
if PathList<>nil then begin
|
if PathList<>nil then begin
|
||||||
DoShowPackageGraphPathList(PathList);
|
DoShowPackageGraphPathList(PathList);
|
||||||
Result:=IDEMessageDialogAb(lisPkgMangCycleInPackageDependencies,
|
Result:=IDEMessageDialogAb(lisPkgMangCircularDependencies,
|
||||||
lisPkgMangThereIsACycleInTheRequiredPackages,
|
lisPkgMangThereIsACircularDependency,
|
||||||
mtError,Btns,ShowAbort);
|
mtError,Btns,ShowAbort);
|
||||||
if not ShowAbort then
|
if not ShowAbort then
|
||||||
Result := mrCancel; // User confirmed error, implicitly cancel the action
|
Result := mrCancel; // User confirmed error, implicitly cancel the action
|
||||||
@ -1264,7 +1264,7 @@ begin
|
|||||||
if PathList<>nil then begin
|
if PathList<>nil then begin
|
||||||
ConflictPkg:=TObject(PathList[PathList.Count-1]) as TLazPackage;
|
ConflictPkg:=TObject(PathList[PathList.Count-1]) as TLazPackage;
|
||||||
DoShowPackageGraphPathList(PathList);
|
DoShowPackageGraphPathList(PathList);
|
||||||
Result:=IDEMessageDialogAb(lisPkgMangCycleInPackageDependencies,
|
Result:=IDEMessageDialogAb(lisPkgMangCircularDependencies,
|
||||||
Format(lisPkgMangThePackageIsCompiledAutomaticallyAndItsOutputDirec, [
|
Format(lisPkgMangThePackageIsCompiledAutomaticallyAndItsOutputDirec, [
|
||||||
ConflictPkg.Name, ConflictPkg.GetOutputDirectory, #13#13, #13, #13,
|
ConflictPkg.Name, ConflictPkg.GetOutputDirectory, #13#13, #13, #13,
|
||||||
#13]),
|
#13]),
|
||||||
|
Loading…
Reference in New Issue
Block a user