37
37
NewX, NewY, NewTopLine: integer;
40
48
ExpandedFilename:=ExpandFileNameUTF8('scanexamples/methodjump1.pas');
41
57
CodeBuf:=CodeToolBoss.LoadFile(ExpandedFilename,true,false);
43
59
raise Exception.Create('failed loading '+ExpandedFilename);
44
if CodeToolBoss.JumpToMethod(CodeBuf,14,10,NewCode,NewX,NewY,NewTopLine,
60
if CodeToolBoss.JumpToMethod(CodeBuf,X,Y,NewCode,NewX,NewY,NewTopLine,
47
63
writeln(NewCode.Filename,' ',NewX,',',NewY,' TopLine=',NewTopLine,