界面库

修改目录结构

designer/tslediter.exe.cmd

@@ -1 +0,0 @@
-"%~dp0..\tsl.exe" "%~dp0tslediter.tsl" -libpath "%~dp0;"

designer/tslvcldesigner.tsf

@@ -366,7 +366,7 @@ type TVclDesigner = class(tvcform)
             begin
                 if f[i]=fio then 
                 begin
-                    ef := f[1:i]+"designer"+fio+"examples";
+                    ef := f[1:i]+"d_examples";
                     if filelist("",ef) then 
                     begin 
                         FProjectFileOpener.initialDir := ef;
@@ -2055,9 +2055,11 @@ begin
 end 
 function staticInit();
 begin
+    global g_orig_lib_path;
     np := getdesignerpath()+"dcmps"+ioFileseparator();
     CreateDirWithFileName(np+"1.txt");
-    tsl_setlibpath_( np+";"+tsl_getlibpath_());
+    g_orig_lib_path := tsl_getlibpath_();
+    tsl_setlibpath_( np+";"+g_orig_lib_path);
     ini := static getdesginerini();
     //class(TDSocketServer),class(TDSocketClient),   
     //×¢²áµÄcomponet   

designer/udesignerproject.tsf

@@ -1083,7 +1083,26 @@ type TProjectView = class(TVCForm) //
             fgoformmenu.Enabled := false; 
             return;
         end
-        FTslEditer.TslSearchDir := array(p,Getfuncextdir());
+        ////////////////////´Óй¹ÔìsearchĿ¼///////////////////////////////
+        global g_orig_lib_path;
+        sdir := array(p);
+        idx := 1;
+        if ifstring(g_orig_lib_path) then 
+        begin 
+            for i,v in str2array(g_orig_lib_path,";") do 
+            begin 
+                tm := trim(v);
+                if tm then 
+                begin 
+                    sdir[idx++] := tm;    
+                end 
+            end   
+        end else 
+        begin
+            sdir[idx++] := Getfuncextdir();  
+        end 
+        /////////////////////////////////////
+        FTslEditer.TslSearchDir := sdir;//array(p,Getfuncextdir());
         FExecEntry := FprojName;
         if d["entryscript"]then
         begin
@@ -2037,6 +2056,7 @@ BD141CA912494F502D48D224F45050274A21E03806FF2C7CA7516022D7D000000
         Onclose := thisfunction(CloseHidden);
         exe := gettslexe();
         fio := ioFileseparator();
+        global g_orig_lib_path;
         FDefaultcmdline := format('"%s" "%s" -libpath "%s"',"$(TSL_EXE)","$(FULL_CURRENT_PATH)","$(SEARCH_PATH)");
     end
     function getExecuteEditerSetcmdline();

designer/vcldesigner.exe.cmd

@@ -1 +0,0 @@
-"%~dp0..\tsl.exe" "%~dp0vcldesigner.tsl" -libpath "%~dp0;"

exec_tsl/tslediter.exe.cmd

@@ -0,0 +1 @@
+"%~dp0..\tsl.exe" "%~dp0tslediter.tsl" -libpath "%~dp0;%~dp0..\designer\;"

exec_tsl/vcldesigner.exe.cmd

@@ -0,0 +1 @@
+"%~dp0..\tsl.exe" "%~dp0vcldesigner.tsl" -libpath "%~dp0;%~dp0..\designer\;"

funcext/tvclib/utslvclstdctl.tsf

@@ -6772,10 +6772,11 @@ type tcustomprocess = class(tcomponent)  //
         **}
         if fprocesshandle then return 0;
         if fexecstr then 
-        begin
-            if not(ifstring(e) and e) then return 0;
+        begin            
             e := exe;
+            if not(ifstring(e) and e) then return 0;
             arg := cmd;
+            
         end else 
         begin
             if not parserasexeclevparam(exe,cmd,e,arg,envp) then return 0;