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

编辑器 

优化
This commit is contained in:
tslediter 2023-11-17 17:39:39 +08:00
parent e3917cfa3d
commit c7d8491b45
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/teditorform.tsf
View File

@ -553,6 +553,7 @@ type teditorform = class(TVCform) //
caption := "-tsl±à¼­Æ÷"; caption := "-tsl±à¼­Æ÷";
ModifyEnCodeMenu(it); ModifyEnCodeMenu(it);
ModifySynMenu(it); ModifySynMenu(it);
save_opend_file_name();
end end
function PageEditerChanged(it,flg) function PageEditerChanged(it,flg)
begin begin
@ -698,13 +699,19 @@ type teditorform = class(TVCform) //
begin begin
Exportfile(ftstream(),"",feditorglobalpath,array("font":g_editer_font_size)); Exportfile(ftstream(),"",feditorglobalpath,array("font":g_editer_font_size));
end end
save_opend_file_name();
FEdter.CloseAllPageItems();
end
function save_opend_file_name();
begin
global g_dotsavehistory; global g_dotsavehistory;
if g_dotsavehistory then return ; if g_dotsavehistory then return ;
d := FEdter.GetAllPagesInfo(); d := FEdter.GetAllPagesInfo();
if not ifarray(d) then d := array(); if not ifarray(d) then d := array();
if flastopend = d then return ;
exportfile(ftstream(),"",FOpendpaths,d); exportfile(ftstream(),"",FOpendpaths,d);
FEdter.CloseAllPageItems(); flastopend := d;
end end
function clickRun(o,e); function clickRun(o,e);
begin begin
case o.caption of case o.caption of
@ -1371,7 +1378,7 @@ type tsearchdir = class(TCustomControl)
rc:=_wapi.GetScreenRect(); rc:=_wapi.GetScreenRect();
l:=(rc[2]-rc[0])/2-400; l:=(rc[2]-rc[0])/2-400;
t:=(rc[3]-rc[1])/2-300; t:=(rc[3]-rc[1])/2-300;
SetBoundsRect(array(l,t,545+l,310+t)); SetBoundsRect(array(l,t,545+l+5,310+t+15));
FLists := array(); FLists := array();
FBtns := array(); FBtns := array();
for i,v in array(array(2,28,120,230),array(148,2,500,230)) do for i,v in array(array(2,28,120,230),array(148,2,500,230)) do
@ -1613,6 +1620,7 @@ end
FSynMenus; FSynMenus;
FCPB; FCPB;
FMTabs; FMTabs;
flastopend;
FOpendpaths; FOpendpaths;
FTabWidthpath; FTabWidthpath;
FFileopen; FFileopen;

2
designer/utslcodeeditor.tsf
View File

@ -6272,7 +6272,7 @@ type TGoToLineWnd=class(TVCForm) //
minmaxbox := false; minmaxbox := false;
WsDlgModalFrame := true; WsDlgModalFrame := true;
width := 300; width := 300;
height := 80; height := 110;
caption := "תµ½.."; caption := "תµ½..";
FLabel := new TLabel(self); FLabel := new TLabel(self);
FLabel.SetBoundsRect(array(3,10,70,35)); FLabel.SetBoundsRect(array(3,10,70,35));