设计器

升级

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;