设计器

tsl语法修正,注册控件

designer/tslvcldesigner.tsf

@@ -2040,6 +2040,8 @@ begin
     begin 
         dir := static getdesignerpath()+"dcmps"+ioFileseparator();
         nf := dir+kn+".tsf";
+        sysclearfunc(kn,"system");
+        sysclearfunc(n,"system");
         filedelete("",nf);
     end   
 end 

designer/utslsynmemo.tsf

@@ -657,6 +657,11 @@ type TTslSynHighLighter = class(TSynHighLighter)
                 isjsfh := true;
                 if ttk then 
                     SetJsToken(tokens,ttk,idx-1);
+            end else 
+            if vi='"' or vi="'" then 
+            begin
+                if ttk then 
+                    SetJsToken(tokens,ttk,idx-1);
             end 
             if vi="[" then 
             begin 
@@ -761,7 +766,7 @@ type TTslSynHighLighter = class(TSynHighLighter)
             end else 
             if {pos(vi,jsfh)}isjsfh then 
             begin
-                if vi<>" " or vi="\t" then 
+                if not(vi=" " or vi="\t") then 
                 begin 
                     td := SetJsToken(tokens,vi,idx); 
                     if td and hightercolor then  

designer/utslvcldcomponents.tsf

@@ -47,7 +47,11 @@ type TDComponent = class()
             if (v is class(TDComponent) )  then 
             begin
                 o := createobject(v);
+                try 
                 n := o.dclassname();
+                except
+                continue;
+                end 
                 if n and ifstring(n) then 
                 begin
                     n := lowercase(n);
@@ -62,6 +66,7 @@ type TDComponent = class()
     begin 
         if not fdcomponentobjectsext then return 0;
         reindex(fdcomponentobjectsext,array(n:nil));     
+        reindex(fdcomponentobjects,array(n:nil));     
     end 
     private 
     fisiherted;