From cc790adde3ebc380f53db2396f68b3b6f6f17d40 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 21 Mar 2011 17:12:25 +0000 Subject: [PATCH] IDE: debugging git-svn-id: trunk@29974 - --- designer/jitforms.pp | 7 ++++--- ideintf/propedits.pp | 1 + 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/designer/jitforms.pp b/designer/jitforms.pp index 263c955711..5858a35560 100644 --- a/designer/jitforms.pp +++ b/designer/jitforms.pp @@ -1684,7 +1684,7 @@ end; set these values. But at design time we do not have the corresponding TForm descendent. And there is no compiled code, thus it must be produced (just-in-time), - if fake methods are not used . + if fake methods are not used. } procedure TJITComponentList.ReaderFindMethod(Reader: TReader; const FindMethodName: Ansistring; var Address: Pointer; var Error: Boolean); @@ -1713,7 +1713,7 @@ var JITMethod: TJITMethod; CurLookupRoot: TPersistent; begin - //debugln('TJITComponentList.ReaderSetMethodProperty ',DbgSName(Instance),' LookupRoot=',DbgSName(Reader.LookupRoot),' ',PropInfo^.Name,':=',TheMethodName); + //debugln('TJITComponentList.ReaderSetMethodProperty START ',DbgSName(Instance),' LookupRoot=',DbgSName(Reader.LookupRoot),' ',PropInfo^.Name,':=',TheMethodName); Method.Code:=FCurReadJITComponent.MethodAddress(TheMethodName); if Method.Code<>nil then begin // there is a real method with this name @@ -1728,7 +1728,7 @@ begin CurLookupRoot:=GetLookupRootForComponent(Reader.LookupRoot); if CurLookupRoot<>nil then begin // create a fake TJITMethod - //DebugLn(['TJITComponentList.ReaderSetMethodProperty ',DbgSName(reader.LookupRoot),' TheMethodName=',TheMethodName]); + //DebugLn(['TJITComponentList.ReaderSetMethodProperty create JIT method: ',DbgSName(reader.LookupRoot),' TheMethodName=',TheMethodName]); JITMethod:=JITMethods.Add(CurLookupRoot.ClassType,TheMethodName); end; end; @@ -1738,6 +1738,7 @@ begin Method.Data:=nil; end; SetMethodProp(Instance, PropInfo, Method); + //debugln(['TJITComponentList.ReaderSetMethodProperty Data=',dbgs(Method.Data),' Code=',dbgs(Method.Code)]); Handled:=true; end; diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp index fe19073125..c1674b20aa 100644 --- a/ideintf/propedits.pp +++ b/ideintf/propedits.pp @@ -3960,6 +3960,7 @@ end; function TMethodPropertyEditor.GetValue: ansistring; begin Result:=PropertyHook.GetMethodName(GetMethodValue,GetComponent(0)); + //debugln(['TMethodPropertyEditor.GetValue Name=',GetName,' Result=',Result,' Data=',dbgs(GetMethodValue.Data)]); end; procedure TMethodPropertyEditor.GetValues(Proc: TGetStrProc);