paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: parameter hints: show message if nothign to add

Browse Source 
git-svn-id: trunk@30766 -
This commit is contained in:
mattias 2011-05-16 12:42:42 +00:00
parent 339b4d136a
commit b4be065867
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/codecontextform.pas
View File

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

2
ide/lazarusidestrconsts.pas
View File

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