From 126b69f781517209b941a4e6b4b96c8df601e1df Mon Sep 17 00:00:00 2001
From: tslediter <liujianjun@tinysoft.com.cn>
Date: Wed, 24 Apr 2024 10:00:21 +0800
Subject: [PATCH] =?UTF-8?q?=E8=AE=BE=E8=AE=A1=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

鍗囩骇
---
 designer/ctl_mgr/textcompclassadder.tsf | 14 ++++----------
 designer/utslvcldesigner.tsf            | 10 ++++++----
 2 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/designer/ctl_mgr/textcompclassadder.tsf b/designer/ctl_mgr/textcompclassadder.tsf
index 9b96233..0c2b32c 100644
--- a/designer/ctl_mgr/textcompclassadder.tsf
+++ b/designer/ctl_mgr/textcompclassadder.tsf
@@ -5,8 +5,7 @@ type textcompclassadder=class(tdcreateform)
     b_classfile:tbtn;
     label2:tlabel;
     p_imgshow:tpanel;
-    b_img:tbtn;
-    
+    b_img:tbtn;    
     b_ok:tbtn;
     b_cancel:tbtn;
     f_open:topenfileadlg;
@@ -14,17 +13,13 @@ type textcompclassadder=class(tdcreateform)
     begin		
         inherited;
     end 
-    
-
     function extcompclassadder_close(o;e);virtual;
     begin
         e.skip := true;
         Visible := false;
         EndModal(0);     
         inherited;
-
     end
-
     function b_cancel_clk(o;e);virtual;
     begin
         EndModal(0);
@@ -37,8 +32,8 @@ type textcompclassadder=class(tdcreateform)
             messageboxa("该控件已经注册","提示",0,self);
             return ;
         end             
-        o := findclass(s); 
-        if not (o is class(TWinControl)) then 
+        oc := findclass(s); 
+        if not (oc is class(TWinControl)) then 
         begin
             messageboxa("组件类型错误,或者组件不存在","提示",0,self);
             return ;    
@@ -74,8 +69,7 @@ type textcompclassadder=class(tdcreateform)
         begin 
             vi := nf[i];
             if vi=iof then 
-            begin 
-            
+            begin             
                 break;
             end 
             n := vi+n;    
diff --git a/designer/utslvcldesigner.tsf b/designer/utslvcldesigner.tsf
index 08292e7..03a6cff 100644
--- a/designer/utslvcldesigner.tsf
+++ b/designer/utslvcldesigner.tsf
@@ -2072,10 +2072,12 @@ function staticInit();
 begin
     global g_orig_lib_path;
     unit(utssvr_api_c).get_tssvr_api_c();
-    np := getdesignerpath()+"dcmps"+ioFileseparator();
-    CreateDirWithFileName(np+"1.txt");
-    g_orig_lib_path := sysgettsllibpath()+";"+Getfuncextdir();//tsl_getlibpath_()
-    syssettsllibpath( np+";"+g_orig_lib_path);//tsl_setlibpath_
+    dcmpdir := getdesignerpath()+"dcmps"+ioFileseparator();
+    CreateDirWithFileName(dcmpdir+"1.txt");
+    osysdir := trim(sysgettsllibpath());
+    if osysdir[length(osysdir)]<>";" then osysdir+=";";
+    g_orig_lib_path := osysdir+Getfuncextdir()+ioFileseparator()+";";
+    syssettsllibpath( dcmpdir+";"+g_orig_lib_path);
     ini := static getdesginerini();
     //class(TDSocketServer),class(TDSocketClient),   
     //注册的componet