liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器 

优化
This commit is contained in:
JianjunLiu 2023-03-14 15:02:23 +08:00
parent 73ad8b3530
commit 8d828d167f
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/utslcodeeditor.tsf
View File

@ -855,8 +855,9 @@ type TExecuteEditer=class(TCustomControl) //ִ
begin begin
if 13=e.charcode then if 13=e.charcode then
begin begin
if o.Completion and o.Completion.Visible then return ;
e.skip := true; e.skip := true;
doSaveCurrentName(); //doSaveCurrentName();
end end
end end
{FMemo.OnKeyDown := function(o,e) {FMemo.OnKeyDown := function(o,e)

13
funcext/tvclib/ugtkinterface.tsf
View File

@ -3193,7 +3193,18 @@ type tgtkapis = class() //gtk
function openresourcemanager(p); //打开资源管理器 function openresourcemanager(p); //打开资源管理器
begin begin
if ifstring(p) then if ifstring(p) then
return tsl_gtk_execsystem(format('nautilus "%s" &',p)); begin
for i := length(p) downto 1 do
begin
if p[i]="/" then
begin
tsl_gtk_execsystem(format('caja "%s" &',p[1:i]));
break;
end
end
tsl_gtk_execsystem(format('nautilus "%s" &',p));
return 1;
end
end end
/////////////////////////////pipe process///////////执行程序相关///////////////////////////// /////////////////////////////pipe process///////////执行程序相关/////////////////////////////
//function tsl_gtk_closehandle(p:pointer):integer;cdecl;external "plugin/libTSLUIL.so"; //function tsl_gtk_closehandle(p:pointer):integer;cdecl;external "plugin/libTSLUIL.so";