修正一个手误
This commit is contained in:
@@ -3748,7 +3748,6 @@ type TEditer=class(TCustomcontrol) //
|
||||
begin
|
||||
f := d["file"];
|
||||
nf :=(f?(cmp.GetFileFullPath(f)):GetCurrentItem().OrigScriptPath);
|
||||
//echo "\r\n",nf,"===",d["line"];
|
||||
OpenAndGotoFileByName(nf,d["line"]);
|
||||
end
|
||||
cit := GetCurrentItem();
|
||||
|
||||
@@ -1800,7 +1800,8 @@ type TTsfFileParser = class() //
|
||||
"getfullpath":
|
||||
begin
|
||||
if not ifarray(FFilePaths) then return "";
|
||||
return FFilePaths[lowercase(d["value"])+".tsf"];
|
||||
r := FFilePaths[lowercase(d["value"])+".tsf"];
|
||||
return r;
|
||||
end
|
||||
"getprojecttsfs":
|
||||
begin
|
||||
@@ -2210,8 +2211,8 @@ type TTsfFileParser = class() //
|
||||
r := array();
|
||||
rdd :="";
|
||||
end
|
||||
//r["fullpath"] := pfn;
|
||||
r["name"] := fn;
|
||||
r["fullpath"] := pfn;
|
||||
//r["name"] := fn;
|
||||
if (aid := pos("@",fn)) then
|
||||
begin
|
||||
nn := fn[1:(aid-1)];
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user