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

codetools: FindSMartHint: replace comments to single space

Browse Source 
git-svn-id: trunk@30696 -
This commit is contained in:
mattias 2011-05-12 16:40:23 +00:00
parent 1b7397b2a3
commit 27c0fdd062
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/finddeclarationtool.pas
View File

@ -2202,7 +2202,7 @@ begin
Result:=Result+' = '
else
Result:=Result+': ';
Result := Result + ExtractNode(TypeNode, []);
Result := Result + ExtractNode(TypeNode, [phpCommentsToSpace]);
end;
ctnClass, ctnClassInterface, ctnDispinterface,
ctnObject, ctnRecordType,
@ -2214,7 +2214,7 @@ begin
end;
ctnConstant:
begin
NodeStr:=' = '+ExtractNode(TypeNode,[]);
NodeStr:=' = '+ExtractNode(TypeNode,[phpCommentsToSpace]);
Result:=Result+copy(NodeStr,1,50);
end;
end;
@ -2225,7 +2225,7 @@ begin
DebugLn('TFindDeclarationTool.FindSmartHint const without subnode "',ExtractNode(Node,[]),'"');
NodeStr:=ExtractCode(Node.StartPos
+GetIdentLen(@Src[Node.StartPos]),
Node.EndPos,[]);
Node.EndPos,[phpCommentsToSpace]);
Result:=Result+copy(NodeStr,1,50);
end;
end;
@ -2239,7 +2239,7 @@ begin
Result:=Result+ExtractProcHead(Node,
[phpAddClassName,phpWithStart,phpWithVarModifiers,phpWithParameterNames,
phpWithDefaultValues,phpWithResultType,phpWithOfObject]);
phpWithDefaultValues,phpWithResultType,phpWithOfObject,phpCommentsToSpace]);
end;
ctnProperty,