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

MG: started new client rectangle

Browse Source 
git-svn-id: trunk@1635 -
This commit is contained in:
lazarus 2002-04-24 16:11:17 +00:00
parent 1c20c98a0b
commit d969776637
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -1048,6 +1048,8 @@ writeln('[TCodeCompletionCodeTool.CheckForOverrideAndAddInheritedCode]');
if ProcCall[i]=';' then ProcCall[i]:=',';
if ProcCall[length(ProcCall)]<>';' then
ProcCall:=ProcCall+';';
if NodeIsFunction(ProcNode) then
ProcCall:=BeautifyCodeOptions.BeautifyIdentifier('Result')+':='+ProcCall;
ProcCode:=ProcCode+BeautifyCodeOptions.LineEnd
+'begin'+BeautifyCodeOptions.LineEnd
+GetIndentStr(BeautifyCodeOptions.Indent)

11
components/codetools/pascalparsertool.pas
View File

@ -237,6 +237,7 @@ type
function NodeHasParentOfType(ANode: TCodeTreeNode;
NodeDesc: TCodeTreeNodeDesc): boolean;
function NodeIsInAMethod(Node: TCodeTreeNode): boolean;
function NodeIsFunction(ProcNode: TCodeTreeNode): boolean;
function NodeIsPartOfTypeDefinition(ANode: TCodeTreeNode): boolean;
function PropertyIsDefault(PropertyNode: TCodeTreeNode): boolean;
procedure MoveCursorToFirstProcSpecifier(ProcNode: TCodeTreeNode);
@ -3469,6 +3470,16 @@ begin
end;
end;
function TPascalParserTool.NodeIsFunction(ProcNode: TCodeTreeNode): boolean;
begin
Result:=false;
if (ProcNode=nil) or (ProcNode.Desc<>ctnProcedure) then exit;
MoveCursorToNodeStart(ProcNode);
ReadNextAtom;
if UpAtomIs('CLASS') then ReadNextAtom;
Result:=UpAtomIs('FUNCTION');
end;
function TPascalParserTool.NodeIsPartOfTypeDefinition(ANode: TCodeTreeNode
): boolean;
begin