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

added debugging information

Browse Source 
git-svn-id: trunk@10466 -
This commit is contained in:
mattias 2007-01-18 11:53:08 +00:00
parent b2c9e59472
commit b66c203a3c
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/codecompletiontool.pas
View File

@ -1010,13 +1010,24 @@ var
begin begin
Result:=false; Result:=false;
{$IFDEF VerboseCompleteMethod}
DebugLn(['TCodeCompletionCodeTool.CompleteMethod A ',ProcNode<>nil]);
{$ENDIF}
// check if cursor in a method // check if cursor in a method
ProcNode:=CursorNode.GetNodeOfType(ctnProcedure); ProcNode:=CursorNode.GetNodeOfType(ctnProcedure);
{$IFDEF VerboseCompleteMethod}
DebugLn(['TCodeCompletionCodeTool.CompleteMethod B ',ProcNode<>nil]);
{$ENDIF}
if (ProcNode=nil) and (CursorNode.Desc=ctnProcedure) then if (ProcNode=nil) and (CursorNode.Desc=ctnProcedure) then
ProcNode:=CursorNode; ProcNode:=CursorNode;
{$IFDEF VerboseCompleteMethod}
DebugLn(['TCodeCompletionCodeTool.CompleteMethod C ',ProcNode<>nil]);
{$ENDIF}
if (ProcNode=nil) or (ProcNode.Desc<>ctnProcedure) if (ProcNode=nil) or (ProcNode.Desc<>ctnProcedure)
or ((ProcNode.SubDesc and ctnsForwardDeclaration)<>0)
or (not NodeIsMethodBody(ProcNode)) then begin or (not NodeIsMethodBody(ProcNode)) then begin
{$IFDEF VerboseCompleteMethod}
DebugLn(['TCodeCompletionCodeTool.CompleteMethod node is not a method body ',ProcNode<>nil]);
{$ENDIF}
exit; exit;
end; end;
@ -1051,6 +1062,9 @@ begin
ProcCode:=ExtractProcHead(ProcNode, ProcCode:=ExtractProcHead(ProcNode,
[phpWithStart,phpWithoutClassName,phpWithVarModifiers,phpWithParameterNames, [phpWithStart,phpWithoutClassName,phpWithVarModifiers,phpWithParameterNames,
phpWithDefaultValues,phpWithResultType,phpWithCallingSpecs]); phpWithDefaultValues,phpWithResultType,phpWithCallingSpecs]);
{$IFDEF VerboseCompleteMethod}
DebugLn(['TCodeCompletionCodeTool.CompleteMethod Adding ProcName="',ProcName,'"']);
{$ENDIF}
AddClassInsertion(CleanProcCode,ProcCode,ProcName,ncpPrivateProcs); AddClassInsertion(CleanProcCode,ProcCode,ProcName,ncpPrivateProcs);
// apply changes // apply changes

2
examples/designerbaseclass/example/unit1.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TMyComponent1','FORMDATA',[ LazarusResources.Add('TMyComponent1','FORMDATA',[
'TPF0'#13'TMyComponent1'#12'MyComponent1'#4'left'#3'.'#1#3'top'#3'R'#2#0#11'T' 'TPF0'#13'TMyComponent1'#12'MyComponent1'#4'left'#3'.'#1#3'top'#3'R'#2#0#11'T'
+'OpenDialog'#11'OpenDialog1'#5'Title'#6#18'Open existing file'#11'FilterInde' +'OpenDialog'#11'OpenDialog1'#5'Title'#6#18'Open existing file'#11'FilterInde'