diff --git a/designer/udesignerproject.tsf b/designer/udesignerproject.tsf index e17ff9c..cea7ff7 100644 --- a/designer/udesignerproject.tsf +++ b/designer/udesignerproject.tsf @@ -20,11 +20,12 @@ type TProjectManagerForm = class(TVCForm) // WsPopUp := true; WsSysMenu := true; rc := _wapi.GetScreenRect(); - l :=(rc[2]-rc[0])/2-280; - t :=(rc[3]-rc[1])/2-230; - SetBoundsRect(array(l,t,480+l,300+t)); + //l :=(rc[2]-rc[0])/2-280; + //t :=(rc[3]-rc[1])/2-230; + //SetBoundsRect(array(l,t,480+l,300+t)); + SetBoundsRect(array(100,100,700,500)); FList := new TProgValueList(self); - FList.Border := false; + FList.Border := true; d := GetAllProjects(); p := array(); for i,v in d do p[i]:= array("caption":v["name"],"value":v["file"]); @@ -40,10 +41,10 @@ type TProjectManagerForm = class(TVCForm) // FList.OnDblClick := thisfunction(OpenSelectedObject); FDelBtn := new TBtn(self); FOpenBtn := new TBtn(self); - FDelBtn.caption := "移除(D)"; + FDelBtn.caption := "移除"; FOpenBtn.height := 28; FDelBtn.height := 28; - FOpenBtn.caption := "打开(O)"; + FOpenBtn.caption := "打开"; FDelBtn.parent := self; FOpenBtn.parent := self; FDelBtn.OnClick := function(o,e) @@ -341,7 +342,7 @@ type TProjectView = class(TVCForm) // rc := _wapi.GetScreenRect(); left := 20; top := 150; - width := 300; //350 + width := 360; //350 height := max(400,rc[3]-200); FInput := new TNameInput(self); finheritedinput := new tfm_inheritedwnd(self); diff --git a/designer/utslvcldesigner.tsf b/designer/utslvcldesigner.tsf index 28ed4dd..ed92d6c 100644 --- a/designer/utslvcldesigner.tsf +++ b/designer/utslvcldesigner.tsf @@ -57,6 +57,7 @@ type TVclDesigner = class(tvcform) function OpenProjectFromtpj(); //工程选择 begin SetWndPostWithMouse(FProjectsManager); + //center_popup_wnd(FProjectsManager,true); FProjectsManager.Show(); return ; end @@ -1493,11 +1494,12 @@ type TVclDesigner = class(tvcform) if vi in array("(none)","create","destroy","recycling","loadfromtfm") then continue; FFunctionSelecter.additem(vi); end - end - + end function create(AOwner); begin inherited; + ParentFont := false; + Font := array("width":10,"height":20); top := 10; left := 10; rect := _wapi.GetScreenRect(); @@ -1713,7 +1715,7 @@ type TVclDesigner = class(tvcform) project.Onclose := thisfunction(spectorclose); project.WsPopUp := true; project.Visible := false; - project.Width := 300;// + project.Width := 345;// project.height := 800; project.WsCaption := true; project.WsSysmenu := true; @@ -2145,7 +2147,7 @@ type TDesignertoolbars = class(TPageControl) // flg := true; for i,sbi in sb do begin - if sbi.ExecuteCommand("getbtncount")<20 then + if sbi.ExecuteCommand("getbtncount")<21 then begin flg := false; break; diff --git a/editor-install.exe b/editor-install.exe index 2380a12..fd61cea 100644 Binary files a/editor-install.exe and b/editor-install.exe differ diff --git a/funcext/tvclib/utvclgraphics.tsf b/funcext/tvclib/utvclgraphics.tsf index ab48bd9..7f16d2d 100644 --- a/funcext/tvclib/utvclgraphics.tsf +++ b/funcext/tvclib/utvclgraphics.tsf @@ -1347,21 +1347,17 @@ type tg_axes = class(tg_base) // fx_label := lbl; axi.tics_direction := tgc_bottom; axi.ytics_coord := array("x",0,0); - axi.tag := "+x+"; end 1: begin fy_label := lbl; axi.tics_direction := tgc_left; axi.ytics_coord := array(0,"y",0); - axi.tag := "+y+"; end 2: begin fz_label := lbl; - //axi.visible := false; axi.ytics_coord := array(0,0,"z"); - axi.tag := "+z+"; end end ; axi.axis_label := lbl; diff --git a/tsleditor.exe b/tsleditor.exe index 66b1269..bbc09d4 100644 Binary files a/tsleditor.exe and b/tsleditor.exe differ diff --git a/tslvcltool.exe b/tslvcltool.exe index be16fce..7639cae 100644 Binary files a/tslvcltool.exe and b/tslvcltool.exe differ