IDE: if component class is missing: note about RegisterClass

git-svn-id: trunk@37146 -
This commit is contained in:
mattias 2012-05-03 09:44:06 +00:00
parent 5a9e3fa502
commit 0871adbd8b
2 changed files with 5 additions and 4 deletions

View File

@ -3213,9 +3213,10 @@ resourcestring
lisCodeTemplComment = 'Comment:';
lisCodeTemplATokenAlreadyExists = ' A token %s%s%s already exists! ';
lisCodeTemplError = 'Error';
lisUnableToFindTheComponentClassItIsNotRegisteredViaR = 'Unable to find the '
+'component class "%s".%sIt is not registered via RegisterClass and no lfm'
+' was found.%sIt is needed by unit:%s%s';
lisNoTemplateSelected = 'no template selected';
lisUnableToFindTheLfmFileOfComponentClassNeededByUnit = 'Unable to find the '
+'lfm file of component class "%s".%sNeeded by unit:%s%s';
lisUnableToOpenDesignerTheClassDoesNotDescendFromADes = 'Unable to open '
+'designer.%sThe class %s does not descend from a designable class like '
+'TForm or TDataModule.';

View File

@ -7720,8 +7720,8 @@ begin
// not found => tell the user
Result:=IDEQuestionDialog(lisCodeTemplError,
Format(lisUnableToFindTheLfmFileOfComponentClassNeededByUnit, [
AComponentClassName, #13, #13, AnUnitInfo.Filename]),
Format(lisUnableToFindTheComponentClassItIsNotRegisteredViaR, [
AComponentClassName, #13, #13, #13, AnUnitInfo.Filename]),
mtError, [mrCancel, lisCancelLoadingThisComponent,
mrAbort, lisAbortWholeLoading,
mrIgnore, lisIgnoreUseTFormAsAncestor]);