diff --git a/designer/teditorform.tsf b/designer/teditorform.tsf index 7665715..108862e 100644 --- a/designer/teditorform.tsf +++ b/designer/teditorform.tsf @@ -553,6 +553,7 @@ type teditorform = class(TVCform) // caption := "-tsl±à¼­Æ÷"; ModifyEnCodeMenu(it); ModifySynMenu(it); + save_opend_file_name(); end function PageEditerChanged(it,flg) begin @@ -698,13 +699,19 @@ type teditorform = class(TVCform) // begin Exportfile(ftstream(),"",feditorglobalpath,array("font":g_editer_font_size)); end + save_opend_file_name(); + FEdter.CloseAllPageItems(); + end + function save_opend_file_name(); + begin global g_dotsavehistory; if g_dotsavehistory then return ; d := FEdter.GetAllPagesInfo(); if not ifarray(d) then d := array(); + if flastopend = d then return ; exportfile(ftstream(),"",FOpendpaths,d); - FEdter.CloseAllPageItems(); - end + flastopend := d; + end function clickRun(o,e); begin case o.caption of @@ -1371,7 +1378,7 @@ type tsearchdir = class(TCustomControl) rc:=_wapi.GetScreenRect(); l:=(rc[2]-rc[0])/2-400; 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(); FBtns := array(); for i,v in array(array(2,28,120,230),array(148,2,500,230)) do @@ -1613,6 +1620,7 @@ end FSynMenus; FCPB; FMTabs; + flastopend; FOpendpaths; FTabWidthpath; FFileopen; diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf index 2fff8ae..e5298ab 100644 --- a/designer/utslcodeeditor.tsf +++ b/designer/utslcodeeditor.tsf @@ -6272,7 +6272,7 @@ type TGoToLineWnd=class(TVCForm) // minmaxbox := false; WsDlgModalFrame := true; width := 300; - height := 80; + height := 110; caption := "תµ½.."; FLabel := new TLabel(self); FLabel.SetBoundsRect(array(3,10,70,35));