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

IDE: debugging

Browse Source 
git-svn-id: trunk@29974 -
This commit is contained in:
mattias 2011-03-21 17:12:25 +00:00
parent be2698980b
commit cc790adde3
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/jitforms.pp
View File

@ -1713,7 +1713,7 @@ var
JITMethod: TJITMethod; JITMethod: TJITMethod;
CurLookupRoot: TPersistent; CurLookupRoot: TPersistent;
begin 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); Method.Code:=FCurReadJITComponent.MethodAddress(TheMethodName);
if Method.Code<>nil then begin if Method.Code<>nil then begin
// there is a real method with this name // there is a real method with this name
@ -1728,7 +1728,7 @@ begin
CurLookupRoot:=GetLookupRootForComponent(Reader.LookupRoot); CurLookupRoot:=GetLookupRootForComponent(Reader.LookupRoot);
if CurLookupRoot<>nil then begin if CurLookupRoot<>nil then begin
// create a fake TJITMethod // 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); JITMethod:=JITMethods.Add(CurLookupRoot.ClassType,TheMethodName);
end; end;
end; end;
@ -1738,6 +1738,7 @@ begin
Method.Data:=nil; Method.Data:=nil;
end; end;
SetMethodProp(Instance, PropInfo, Method); SetMethodProp(Instance, PropInfo, Method);
//debugln(['TJITComponentList.ReaderSetMethodProperty Data=',dbgs(Method.Data),' Code=',dbgs(Method.Code)]);
Handled:=true; Handled:=true;
end; end;

1
ideintf/propedits.pp
View File

@ -3960,6 +3960,7 @@ end;
function TMethodPropertyEditor.GetValue: ansistring; function TMethodPropertyEditor.GetValue: ansistring;
begin begin
Result:=PropertyHook.GetMethodName(GetMethodValue,GetComponent(0)); Result:=PropertyHook.GetMethodName(GetMethodValue,GetComponent(0));
//debugln(['TMethodPropertyEditor.GetValue Name=',GetName,' Result=',Result,' Data=',dbgs(GetMethodValue.Data)]);
end; end;
procedure TMethodPropertyEditor.GetValues(Proc: TGetStrProc); procedure TMethodPropertyEditor.GetValues(Proc: TGetStrProc);