界面库

升级

designer/gettsleditorstart.tsf

@@ -47,7 +47,11 @@ end
 
 if sysparamcount()=0 then  //处理单独一个文件
 begin 
-	    ops := sysparamstr(0);		
+	    ops := sysparamstr(0);	
+	    if lowercase(SysExecName())=lowercase(ops) then //处理编译成exe 导致参数次序问题
+	    begin
+	        ops := nil;
+	    end 	
 end
 if ops and ifstring(ops) then 
 begin 

designer/udesignerproject.tsf

@@ -570,7 +570,7 @@ type TProjectView = class(TVCForm) //
                     end else FDelMenu.Enabled := true;
                     FAddMenu.Enabled := false;
                 end
-                if((it.FType="form")and(it.FName <> FMainForm)and(it.FPath()=""))then
+                if((it.FType="form")and(it.FName <> FMainForm){and(it.FPath()="")})then
                 begin
                     FSetMainMenu.parent := FTreePopUpMenu;
                 end else