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

codetools: class completion: add static method specifier for class property setter

Browse Source 
git-svn-id: trunk@37636 -
This commit is contained in:
mattias 2012-06-13 14:53:28 +00:00
parent 86b0a8eb31
commit 65ea827862
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -6577,7 +6577,7 @@ var
end;
end;
if IsClassProp then
AccessFunc:='class '+AccessFunc;
AccessFunc:='class '+AccessFunc+' static;';
// add new Insert Node
if CompleteProperties then
AddClassInsertion(CleanAccessFunc,AccessFunc,AccessParam,
@ -6731,7 +6731,7 @@ var
+BeautifyCodeOpts.LineEnd
+'end;';
if IsClassProp then
ProcBody:='class '+ProcBody;
ProcBody:='class '+ProcBody+' static;';;
end;
end else begin
// index, no param list
@ -6792,7 +6792,7 @@ var
CleanAccessFunc := UpperCaseStr(CleanAccessFunc + '('+IndexType+');');
end;
if IsClassProp then
AccessFunc:='class '+AccessFunc;
AccessFunc:='class '+AccessFunc+' static;';;
// add new Insert Node
if CompleteProperties then
AddClassInsertion(CleanAccessFunc,AccessFunc,AccessParam,