修正一个手误
This commit is contained in:
parent
b140a942df
commit
5732a251bf
|
|
@ -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.
BIN
tsleditor.exe
BIN
tsleditor.exe
Binary file not shown.
BIN
tslvcltool.exe
BIN
tslvcltool.exe
Binary file not shown.
Loading…
Reference in New Issue