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

codetools: added verbosity

Browse Source 
git-svn-id: trunk@10476 -
This commit is contained in:
mattias 2007-01-18 14:59:57 +00:00
parent 2cf5ba11a4
commit 078cef717e
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/codecompletiontool.pas
View File

@ -2235,6 +2235,8 @@ begin
+GetIndentStr(BeautifyCodeOptions.Indent) +GetIndentStr(BeautifyCodeOptions.Indent)
+ProcCall+BeautifyCodeOptions.LineEnd +ProcCall+BeautifyCodeOptions.LineEnd
+'end;'; +'end;';
// Graeme
DebugLn(['TCodeCompletionCodeTool.CheckForOverrideAndAddInheritedCode ProcCode="',ProcCode,'"']);
ANodeExt.ExtTxt3:=ProcCode; ANodeExt.ExtTxt3:=ProcCode;
end; end;
AnAVLNode:=ClassProcs.FindSuccessor(AnAVLNode); AnAVLNode:=ClassProcs.FindSuccessor(AnAVLNode);
@ -2255,11 +2257,14 @@ var
ProcCode:=ANodeExt.ExtTxt1; ProcCode:=ANodeExt.ExtTxt1;
ProcCode:=ASourceChangeCache.BeautifyCodeOptions.AddClassAndNameToProc( ProcCode:=ASourceChangeCache.BeautifyCodeOptions.AddClassAndNameToProc(
ProcCode,TheClassName,''); ProcCode,TheClassName,'');
{$IFDEF CTDEBUG} { $IFDEF CTDEBUG}
// Graeme
DebugLn('CreateMissingProcBodies InsertProcBody ',TheClassName,' "',ProcCode,'"'); DebugLn('CreateMissingProcBodies InsertProcBody ',TheClassName,' "',ProcCode,'"');
{$ENDIF} { $ENDIF}
ProcCode:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc( ProcCode:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc(
ProcCode,Indent,ANodeExt.ExtTxt3=''); ProcCode,Indent,ANodeExt.ExtTxt3='');
// Graeme
DebugLn(['CreateMissingProcBodies beautified ProcCode="',ProcCode,'"']);
ASourceChangeCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos, ASourceChangeCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos,
ProcCode); ProcCode);
if JumpToProcName='' then begin if JumpToProcName='' then begin
@ -2286,6 +2291,8 @@ var
phpWithParameterNames,phpWithResultType,phpWithCallingSpecs]); phpWithParameterNames,phpWithResultType,phpWithCallingSpecs]);
TheNodeExt.ExtTxt3:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc( TheNodeExt.ExtTxt3:=ASourceChangeCache.BeautifyCodeOptions.BeautifyProc(
ProcCode,Indent,true); ProcCode,Indent,true);
// Graeme
DebugLn(['CreateCodeForMissingProcBody TheNodeExt.ExtTxt3="',TheNodeExt.ExtTxt3,'" ProcCode="',ProcCode,'"']);
end; end;
end; end;
end; end;