IDE: parameter hints: show message if nothign to add

git-svn-id: trunk@30766 -

ide/codecontextform.pas

@@ -973,6 +973,10 @@ procedure TCodeContextFrm.CompleteParameters(DeclCode: string);
     NewCode:=CodeToolBoss.SourceChangeCache.BeautifyCodeOptions.BeautifyStatement(
       NewCode,Indent,[],X);
     NewCode:=copy(NewCode,Indent+1,length(NewCode));
+    if NewCode='' then begin
+      ShowMessage(lisAllParametersOfThisFunctionAreAlreadySetAtThisCall);
+      exit;
+    end;
     // insert
     ASynEdit.BeginUndoBlock;
     XY:=Point(X,Y);

ide/lazarusidestrconsts.pas

@@ -5086,6 +5086,8 @@ resourcestring
   lisHideMessageViaDirective = 'Hide message via directive';
   lisRemoveLocalVariable2 = 'Remove local variable';
   lisNoHints = 'no hints';
+  lisAllParametersOfThisFunctionAreAlreadySetAtThisCall = 'All parameters of '
+    +'this function are already set at this call. Nothing to add.';
   lisToInstallYouMustCompileAndRestartTheIDE = 'To install you must compile '
     +'and restart the IDE';