paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 09:09:29 +02: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

7
designer/jitforms.pp
View File

@ -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;

1
ideintf/propedits.pp
View File

@ -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);