设计器

修改属性输出方式

designer/udesignerproject.tsf

@@ -421,10 +421,10 @@ type TProjectView = class(TVCForm) //
         FSetMainMenu.caption := "设置为主窗口";
         FSetMainMenu.bitmap := bmps["主窗口"];
         FSetMainMenu.OnClick := thisfunction(SetAsMainWind);
-        FSetEntryMenu := new TMenu(self);
+        //FSetEntryMenu := new TMenu(self);
-        FSetEntryMenu.Caption := "设置为入口脚本";
+        //FSetEntryMenu.Caption := "设置为入口脚本";
-        FSetEntryMenu.bitmap := bmps["入口"];
+        //FSetEntryMenu.bitmap := bmps["入口"];
-        FSetEntryMenu.OnClick := thisfunction(SetAsMainWind);
+        //FSetEntryMenu.OnClick := thisfunction(SetAsMainWind);
         FDelMenu := new TPopUpMenu(self);
         FDelMenu.bitmap := EditToolBmps["删除"];
         FDelMenu.Caption := "删除";
@@ -574,11 +574,11 @@ type TProjectView = class(TVCForm) //
                     FSetMainMenu.parent := nil;
                     //FAddMenu.visible := false;   
                 end
-                if(it.FType="tsl")and(it.FName <> FExecEntry)and(it.FPath()="")then
+                {if(it.FType="tsl")and(it.FName <> FExecEntry)and(it.FPath()="")then
                 begin
                     FSetEntryMenu.parent := FTreePopUpMenu;
                 end else
-                FSetEntryMenu.parent := nil;
+                FSetEntryMenu.parent := nil;}
                 if((it.FType="form")and(it.FName <> FMainForm))or(it.FType="tsl")and(it.FName <> FExecEntry)or(it.FType="tsf")or(it.FType="panel") {or((it.FType = "dir") and it.parent<>FTree.RootNode)}then
                 begin
                     FRenameMenu.parent := FTreePopUpMenu;
@@ -1823,7 +1823,7 @@ end
     FTreeTool;
     //设置主窗口
     FSetMainMenu;
-    FSetEntryMenu;
+    //FSetEntryMenu;
     //删除菜单
     FDelMenu;
     //********************

designer/utslvcldcomponents.tsf

@@ -1282,10 +1282,6 @@ type TDFileWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TOpenFileADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetOpenFileBitmapInfo();
@@ -1301,10 +1297,6 @@ type TDFileSaveWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TSavefileADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetSaveFileBitmapInfo();
@@ -1321,10 +1313,6 @@ type TDColorChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TColorChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetColorChooseBitmapInfo();
@@ -1340,10 +1328,6 @@ type TDFontChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TFontChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetFontChooseBitmapInfo();
@@ -1359,10 +1343,6 @@ type TDFolderChooseWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TFolderChooseADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetFolderChooseBitmapInfo();
@@ -3050,10 +3030,6 @@ type TDMessageboxWindow = class(TDVirutalWindow)
         inherited;
         BindComp := new TMessageboxADlg(self);;
     end     
-    function GetPublishEvents();override;
-    begin
-        return array();//array(1:nil);
-    end 
     function bitmapinfo();override;
     begin
         return GetMessageBoxBitmapInfo();

funcext/tvclib/tcomponent.tsf

@@ -70,19 +70,13 @@ uses utslvclauxiliary,UVCPropertyTypesPersistence,utslvclbase;
         begin
             r union=static call(thisfunction,findclass(v,o))name v+"&&_&&";
         end
-        for i,v in t["properties"] do
+        ///////////////////////subs/////////////////////////////////////////////
+        for i,v in t["subs"] do
         begin
             n := v["name"];
-            if((v["access"]in array(2,3))or(not(v["read"])))or not(v["type"])then
-            begin
             deleteindex(r,n);
-                continue;
-            end
-            if v["read"]and v["type"]then
-            begin
-                r union=array(n:v[array("name","type","write","parser")]);
-            end
         end
+        /////////////////////////menbers//////////////////////////////////////////////
         for i,v in t["members"] do
         begin
             n := v["name"];
@@ -91,10 +85,26 @@ uses utslvclauxiliary,UVCPropertyTypesPersistence,utslvclbase;
                 deleteindex(r,n);
                 continue;
             end
-            tr := v[array("name","type","write","parser")];
+            tr := v[array("name","type","write")]; //,"parser"
             tr["write"]:= true;
             r union=array(n:tr);
         end
+        ///////////////property/////////////////////////////////////
+        for i,v in t["properties"] do
+        begin
+            n := v["name"];
+            access := v["access"];
+            if((access in array(2,3))or(not(v["read"])))or not(v["type"])then
+            begin
+                deleteindex(r,n);
+                continue;
+            end
+            if v["read"]and v["type"]then
+            begin
+                r union=array(n:v[array("name","type","write","access")]);//,"parser"
+            end            
+        end
+        
         GetClassDigestB(idx,r);
         return r;
     end
@@ -472,7 +482,7 @@ public //
     FChangedinheritedProperties;
     FChangedProperties;
     FVariableProperties;
-    function GetPublishInfo();//属性获取
+    {function GetPublishInfo();//属性获取
     begin
         r := publishs();
         rr := array();
@@ -482,8 +492,8 @@ public //
             if ifstring(v) then rr[ri++] := lowercase(v);
         end 
         return rr;
-    end 
+    end }
-    function OrderPublish(r,od); //排序发布的东西
+    {function OrderPublish(r,od); //排序发布的东西
     begin
         if od then
         begin
@@ -495,12 +505,8 @@ public //
             end
             r := r1;
         end
-    end
+    end}
     public //设计器属性设置相关
-    function publishs();virtual;//释放属性
-    begin
-        //return array("currentcolor","lazyitems","range","firstdayofweek","align","mbbtnstyle","textalign","text","imagelist","canvs","images","items","bkbitmap","icon","popupmenu","mainmenu","cursor","height","width","left","top","enabled","visible","caption","color","font","onclick","rootfolder","initialdir");
-    end		
     function GetPublishproperties();virtual; //获得属性信息
     begin
         {**
@@ -508,16 +514,17 @@ public //
         **}
         ps := GetPropInfo();
         r := array();
-        pps := GetPublishInfo();
+        //pps := GetPublishInfo();
         for i,v in ps do
         begin
             typ := v["type"];
+            if v["access"]<>4 then continue;
             if typ="eventhandler" then continue;
             otype :=GetComponentPropertyType(typ);// GetPropertyType(typ);
             if otype then
             begin
                 n := v["name"];
-                if pps and not(n in pps)then continue;
+                //if pps and not(n in pps)then continue;
                 if typ in array("variable","popupmenu","syscursor","tmainmenu")then
                 begin
                     r[n]:= otype.FormatEdit(FVariableProperties[n],v["write"]?true:false);
@@ -527,7 +534,7 @@ public //
         end
         //次序处理
         ////////////////////
-        OrderPublish(r,pps);
+        //OrderPublish(r,pps);
         ////////////////////
         return r;
     end
@@ -539,7 +546,7 @@ public //
         **}
         ps := GetPropInfo();
         r := array();
-        pps := GetPublishInfo();
+        //pps := GetPublishInfo();
         for i,v in ps do
         begin
             typ := v["type"];
@@ -548,12 +555,12 @@ public //
             if otype then
             begin
                 n := v["name"];
-                if pps and not(n in pps)then continue;
+                //if pps and not(n in pps)then continue;
                 ne := FEventsProperties[n];
                 r[n]:= otype.FormatEdit(ne,v["write"]?true:false);
             end
         end
-        OrderPublish(r,pps);
+        //OrderPublish(r,pps);
         return r;
     end
     function GetChangedPropertiesn(n);virtual;//获得改变的属性
@@ -657,6 +664,7 @@ public //
             end
         end
     end
+    published
     property Owner:tcomponent read FOwner; //所有者
     {**
     @param(Owner)(tcomponent) 所有者 %%

funcext/tvclib/tcontrol.tsf

@@ -566,6 +566,7 @@ type tcontrol = class(tcomponent)
     //procedure UpdateMouseCursor(X, Y: integer); begin    end 
     procedure ChangeBounds(ALeft,ATop,AWidth,AHeight:integer;KeepBase:boolean);virtual; //边界改变
     begin
+        if ALeft=-32000 or ATop = -32000 then exit ;
         SizeChanged :=(FWidth <> AWidth)or(FHeight <> AHeight);
         PosChanged :=(FLeft <> ALeft)or(FTop <> ATop);
         if(not SizeChanged)and(not PosChanged)then Exit;
@@ -573,7 +574,7 @@ type tcontrol = class(tcomponent)
         d := new tvclwindowpos_class(0);
         if SizeChanged then
         begin
-            if AWidth=-3200 or AHeight = -3200 then exit ;
+            
             d.cx := AWidth;
             d.cy := AHeight;
             D.flags := SWP_NOMOVE;
@@ -1283,6 +1284,10 @@ type tcontrol = class(tcomponent)
                 rchange := 0;
                 d := new tvclwindowpos_class(TheMessage.lparam);
                 flags := d.flags;
+                //if flags .& SWP_HIDEWINDOW then return ;
+                //if flags .& SWP_SHOWWINDOW then return ;
+                if d.x=-32000 then return ;
+                if d.y=-32000 then return ;
                 if not((flags .& SWP_NOMOVE)=SWP_NOMOVE)then
                 begin
                     x := d.x;
@@ -1407,11 +1412,6 @@ type tcontrol = class(tcomponent)
             Parent.AdjustSize(); //
         end
     end }  
-    public
-    // standard properties, which should be supported by all descendants  
-    property Action:taction read GetAction write SetAction;
-    property Anchors:anchors read FAnchors write SetAnchors; 
-    property Align:align read FAlign write SetAlign;
     protected
     property UnAlignBounds read GetUnAlignBounds write SetUnAlignBounds;
     {**
@@ -1420,7 +1420,11 @@ type tcontrol = class(tcomponent)
     	@param(Align)(member of TAlign ) 默认 alNone 对齐方式 %%
     	@param(Anchors)( array of TAnchorKind member) 锚定位置 ,默认 array(akTop,akLeft)  %%
     **} 
-    public
+    published
+    // standard properties, which should be supported by all descendants  
+    property Action:taction read GetAction write SetAction;
+    property Anchors:anchors read FAnchors write SetAnchors; 
+    property Align:align read FAlign write SetAlign;
     property ParentFont:bool read FParentFont write SetParentFont;
     property Parentcolor:bool read FParentcolor write SetParentcolor;
     property Caption:string read GetText write SetText ;  

funcext/tvclib/tslvcl.tsf

@@ -336,14 +336,6 @@ type TLabel = class(TcustomLabel)
     begin
         inherited;
     end
-
-    function publishs();override;
-    begin
-        return array("name","action","align","anchors","caption","enabled","font","border",
-            "popupmenu","visible","textalign",
-            "height","width","left","top","color","bkbitmap","parentcolor","parentfont","transparent",
-            "onpopupmenu","onmousedown","onmouseup","onnotification");
-    end
     {**
     @param(TextAlign)(member of TAlignStyle9) 文字对齐 %%
     **}
@@ -525,22 +517,6 @@ type TPanel=class(TScrollingWinControl)	//
         inherited;
         drawdesigninggrid();
     end 
-    function publishs();override;
-    begin
-        return array("name","align","anchors","caption","enabled","cursor","font",
-            "popupmenu","visible",
-            "height","width","left","top","border",
-            "zorder","color","bkbitmap","parentcolor","parentfont",
-            //"minwidth","minheight",
-            "wspopup","wsdlgmodalframe","wscaption","wssizebox","wssysmenu",
-            "autoscroll",
-            "onmousewheel","onsize","onmove","onmousemove","onpopupmenu",
-            "onmousedown","onmouseup",
-            "onactivate","onclose",
-            "onsetfocus","onkillfocus",
-            "onkeyup","onkeydown","onkeypress","onnotification"
-        );
-    end
 end
 //托盘
 type TTray=class(TComponent)
@@ -708,10 +684,7 @@ type TTray=class(TComponent)
             FHaveadd := false;
         end
     end
-    function publishs();override;
+    published
-    begin
-        return array("name","caption","icon","popupmenu","onclick","onnotification");
-    end
     property Form read FForm write SetForm;
     property Caption:string read FCaption write SetCaption;
     property OnClick:eventhandler read FOnclick write FOnclick;
@@ -1063,6 +1036,7 @@ type TVCForm = class(TScrollingWinControl)
         end;
         inherited;
     end;
+    published
     property OnMinimize:eventhandler read FOnMinimize write FOnMinimize;
     property MainMenu:tmainmenu read FMainMenu write SetMainMenu;
     property minmaxbox:bool read FMaxminbox write SetMaxMinBox;
@@ -1073,24 +1047,6 @@ type TVCForm = class(TScrollingWinControl)
     property BorderStyle:TFormBorderStyle read FFormBorderStyle write SetFormBorderStyle;
     property FormIcon:ticon read GetFormIcon write SetFormIcon;
     property Tray:ttray READ FTray write SetTray;
-    function publishs();override;
-    begin
-        return array(
-            "name","action","caption","cursor","font",
-            "popupmenu","visible",
-            "height","width","left","top",
-            "color","bkbitmap","parentcolor","parentfont",
-            //"minwidth","minheight",
-            "wssizebox","wsdlgmodalframe",
-            "mainmenu","minmaxbox","formicon","tray",
-            "onsize","onmove","onmousemove",
-            "onmousedown","onmouseup",
-            "onactivate","onclose",
-            "onsetfocus","onkillfocus","onpopupmenu",
-            "onkeyup","onkeydown","onkeypress","onnotification"
-        );
-    end
-
 end 
 type tform=class(TVCForm)
     {**
@@ -1163,13 +1119,6 @@ type TDCreateForm=class(TVCForm) //
         inherited;
         Loader.LoadFromTfm(self(true));
     end 
-    function publishs();override;
-    begin
-        r := inherited;
-        r[length(r)] := "oncreated";
-        r[length(r)] := "ondestroy";
-        return r;
-    end 
 
 end
 type TDCreatePanel=class(TpanelForm) //设计器的面板
@@ -1182,14 +1131,6 @@ type TDCreatePanel=class(TpanelForm) //
         inherited;
         Loader.LoadFromTfm(self(true));
     end 
-    function publishs();override;
-    begin
-        r := inherited;
-        r[length(r)] := "oncreated";
-        r[length(r)] := "ondestroy";
-        return r;
-    end 
-
 end
 
 	//按钮
@@ -1201,13 +1142,6 @@ type tbtn = class(tcustombtn) //
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return  array("name","action","left","top","width","height",
-            "align","anchors","caption","font","enabled","visible","bkbitmap","color","parentcolor","parentfont","tabstop","wsdlgmodalframe",
-            "onclick","onmousemove","onsetfocus","onkillfocus","onkeyup","onkeydown","onkeypress","onnotification");
-    end 
-
 end 
 type tcheckbtn = class(tcustomcheckbtn) //复选框
     {**
@@ -1217,12 +1151,6 @@ type tcheckbtn = class(tcustomcheckbtn) //
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "caption","anchors","enabled","color","visible","font","parentcolor","parentfont",
-            "textpos","checked","lefttext","tabstop","onclick","onmousemove","onmousedown","onmouseup","onnotification");
-    end 
 
 end 
 type tradiobtn = class(tcustomradiobtn) //单选框
@@ -1233,13 +1161,6 @@ type tradiobtn = class(tcustomradiobtn) //
     begin
         inherited;  
     end    
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "caption","anchors","enabled","color","visible","font","parentcolor","parentfont",
-            "textpos","checked","lefttext","tabstop","onclick","onmousemove","onmousedown","onmouseup","onnotification");
-    end 
-    
 end 
 
 type TPopMenuBtn=class(TBtn)
@@ -1326,12 +1247,6 @@ type tedit = class(tcustomedit) //
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","align","anchors","border","font","color","enabled","parentcolor","parentfont","popupmenu","visible","height","width","left","top","text","placeholder"
-            ,"readonly","limitlength","linewrap","tabstop","onmousemove","onpopupmenu","onmousedown","onmouseup","onkeyup"
-            ,"onkeydown","onkeypress","onmaxtext","onkillfocus","onsetfocus","onchange","onnotification");
-    end
 end 
 type tpassword = class(tcustompassword) //密码框
 		{**
@@ -1341,18 +1256,6 @@ type tpassword = class(tcustompassword) //
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name",
-            "align","anchors","font","color","parentcolor","parentfont",
-            "popupmenu","visible",
-            "height","width","left","top",
-            "text","placeholder","readonly","limitlength","tabstop",
-            "passwordchar","onmousemove","onpopupmenu",
-            "onmousedown","onmouseup",
-            "onkeyup","onkeydown","onkeypress",
-            "onmaxtext","onkillfocus","onsetfocus","onchange","onnotification");
-    end
 end 
 
 type tmemo = class(TSynMemoNorm)   //多行文本框
@@ -1406,7 +1309,7 @@ type tmemo = class(TSynMemoNorm)   //
         FonSetFocus := nil;
         FonKillFocus := nil;
     end 
-    public 
+    published 
     property onupdate read Fonchange write Fonchange;
     property onchange read Fonchange write Fonchange;
     property LineWrap read FLineWrap write FLineWrap;
@@ -1416,17 +1319,6 @@ type tmemo = class(TSynMemoNorm)   //
     			@param(onupdate)(fpointer)文本更新回调%%
     			@param(onchange)(fpointer)文本改变回调%%
 		 **}
-    function publishs();override;
-    begin
-    	    return array("name","font","color","parentcolor","parentfont",
-    		"popupmenu","visible","anchors","align",
-    		"height","width","left","top",
-    		"text","readonly","selectbkcolor","guttercolor","currentlinecolor","guttercharcnt","autogutterwidth",
-    		"tabspace","highlighter","onmousewheel","onmousemove","onpopupmenu",
-    		"onmousedown","onmouseup","onsetfocus","onkillfocus",
-    		"onkeyup","onkeydown","onkeypress",
-    		"onchange","onnotification");
-    end 
     private 
     Fonchange;
     FLineWrap;
@@ -1440,10 +1332,6 @@ type thighlighter= class(tcustomsynhighlighter) //
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","keywordcolor","symcolor","stringcolor","annotationcolor","ignorecase","onnotification");
-    end 
 end 
 
 	//goupbox
@@ -1455,12 +1343,6 @@ type tgroupbox = class(tcustomgroupbox)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "align","anchors","border","caption","color","enabled","font","visible","textpos","parentcolor","parentfont","wsdlgmodalframe",
-            "onsize","onnotification");
-    end 
 end  
 
 type TCheckGroupBox=class(TRadioGroupBox)
@@ -1530,14 +1412,8 @@ type TCheckGroupBox=class(TRadioGroupBox)
         InvalidateSubItem(idx,true);
         CallMessgeFunction(OnSelectionChanged,self,e);
     end
+    published
     property ItemIndexs:integers read GetItemIndexs write SetItemIndexs;
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "align","border","ItemIndexs","caption","color","enabled","font",
-            //"minheight","minwidth",
-            "parentfont","parentfont","visible","textpos","wsdlgmodalframe","onnotification");
-    end
 end
 
 type TRadioGroupBox=class(TGroupbox)
@@ -1804,20 +1680,13 @@ type TRadioGroupBox=class(TGroupbox)
             Items := nits;
         end
     end
+    published
     property OnSelectionChanged:eventhandler read FSelectionChanged write FSelectionChanged;
     property Columns:integer read FColumns write SetColumns;
     property ItemIndex:integer read FItemIndex write SetItemIndex;
     property Items:strings read FItems write SetItems;
     property Selected read GetSelected;
     property ColumnLayout:SplitterType read FColumnLayout write SetColumnLayout;
-    function publishs();override;
-    begin
-        r := array("name","left","top","width","height",
-            "align","border","ItemIndexs","caption","color","enabled","font",
-            //"minheight","minwidth",
-            "parentfont","parentcolor","visible","textpos","wsdlgmodalframe","onselectionchanged","onnotification");
-        return r;
-    end
     {**
     @param(OnSelectionChanged)(function[TRadioGroupBox,tuieventbase]) 选择改变时回调 %%
     @param(Columns)(integer) 列数 %%
@@ -1836,17 +1705,6 @@ type TListBox = class(TcustomListBox)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","caption","anchors","align","enabled",
-            "font","visible","border","color",
-            "height","width","left","top",
-            "itemheight","items","itemindex","selbkcolor",
-            "multisel","checkbox","ownerdraw","itemcount","popupmenu","wsdlgmodalframe",
-            "onpopupmenu","onmousedown","onmouseup","ondrawlist",
-            "onselchanged","onnotification"
-        );
-    end
 
 end 
 type TColorbox=class(TcustomListBox)
@@ -1964,16 +1822,7 @@ type TColorbox=class(TcustomListBox)
         rc[1]+= 2;
         cvs.drawtext(getColorName(idx),rc,DT_NOPREFIX);
     end
-    function publishs();override;
+    published
-    begin
-        return array("name","align","anchors","font","color",
-            "visible","border","enabled",
-            "height","width","left","top",
-            "wsdlgmodalframe","popupmenu","parentcolor","parentfont",
-            "onpopupmenu","onmousedown","onmouseup",
-            "onselchanged","onnotification"
-        );
-    end
     property customcolor:color read fcustomcolor write setcustomcolor;
     private
     function setcustomcolor(cl);
@@ -2109,14 +1958,7 @@ type TColorCombobox=class(TCustomComboBoxbase)
         end 
         return inherited;
     end 
-    function publishs();override;
+    published
-    begin
-        return array("name","anchors","font","color",
-            "visible","parentcolor","parentfont",
-            "height","width","left","top",
-            "readonly","itemindex",
-            "onselchanged","ondropdown","oncloseup","onnotification");
-    end
     property customcolor:Color read getcustomcolor write setcustomcolor;
     private
     function getcustomcolor();
@@ -2145,20 +1987,8 @@ type TComboBox = class(TcustomComboBox)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","font","border","font","color",
-            "visible","anchors","align","enabled","parentcolor","parentfont",
-            "height","width","left","top",
-            "readonly","items",
-            "checkbox","multisel",
-            "itemindex","dropdowncount","oncloseup","ondropdown","onselchanged","oneditchanged","onnotification");
-    end
 end 
 
-
-
-
 type TToolButton = class(TcustomToolButton)
     {**
     @explan(说明) 工具栏项 %%
@@ -2167,10 +1997,6 @@ type TToolButton = class(TcustomToolButton)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","action","caption","enabled","stylesep","imageid","visible","onclick","popupmenu","onnotification");
-    end
 end 
 
 type TToolBar = class( TcustomToolBar)
@@ -2181,18 +2007,6 @@ type TToolBar = class( TcustomToolBar)
     begin
         inherited;        
     end 
-    function publishs();override;
-    begin
-        return array("name","align","caption","enabled","font","left","top","width","height",
-            "visible","imagelist","mainmenu","onnotification");
-        if Align <> alNone then
-        begin
-            return array("name","align","caption","enabled","font",
-                "visible","imagelist");
-        end else
-        return array("name","align","caption","enabled","font","left","top","width","height",
-            "visible","imagelist");
-    end
 end
 type TStatusBar = class(TcustomStatusBar)
     {**
@@ -2202,11 +2016,6 @@ type TStatusBar = class(TcustomStatusBar)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","caption","enabled","border",
-            "font","visible","items","itemorder","onmousemove","onmousedown","onmouseup","onnotification");
-    end
 end 
 type tcoolbar = class(tcustomcoolbar)
     {**
@@ -2216,10 +2025,6 @@ type tcoolbar = class(tcustomcoolbar)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","enabled","caption","autosize","align","border","wsdlgmodalframe","font","color","dragbtncolor","visible","arrange","onnotification");
-    end 
 end 
 type tsplitter = class(tcustomsplitter)
     {**
@@ -2229,10 +2034,6 @@ type tsplitter = class(tcustomsplitter)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","enabled","border","left","top","width","height","color","parentcolor","transparent","visible","align","onnotification");
-    end 
 end 
 
 	//树控件
@@ -2586,15 +2387,9 @@ type TTreeView=class(TTreeCtl)
         RootItem.RecyclingChildren();
         EndUpDate();
     end
+    published
     property RootItem read GetRootNode;
     property LazyItems:TreeData read GetLazyItems Write SetLazyItems;
-    function publishs();override;
-    begin
-        return array("name",
-            "left","top","width","height","caption","align","anchors",
-            "checkbox","visible","itemheght","imagelist","hasline","singleexpand","color","font","parentcolor","parentfont",
-            "lazyitems","onselchanged","onmousedown","onsetfocus","onkillfocus","onkeyup","onkeydown","onnotification");
-    end
     //property OnDeleteItem read FOnDeleteItem write FOnDeleteItem;
     //property OnItemExpand:eventhandler read FOnItemExpand write FOnItemExpand;
     {**
@@ -2611,10 +2406,6 @@ type TTabSheet = class(tcustomtabsheet)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","caption","font","color","border","parentcolor","parentfont","wsdlgmodalframe","onsize","onnotification");
-    end 
 end 
 type tpagecontrol = class(tcustompagecontrol)
     {**
@@ -2624,12 +2415,6 @@ type tpagecontrol = class(tcustompagecontrol)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "align","anchors","color","font","parentcolor","parentfont","border","caption","popupmenu","enabled","visible","cursel","cursor",
-            "wsdlgmodalframe","wssizebox","onpopupmenu","onselchange","onnotification");
-    end
 end 
 //二分控件
 type TPairSplitterSide=class(TCustomControl)
@@ -2659,10 +2444,6 @@ type TPairSplitterSide=class(TCustomControl)
         cursor := OCR_NORMAL;
         border := true;
     end
-    function publishs();override;
-    begin
-        return array("name","border","caption","color","font","parentcolor","parentfont","popupmenu","bkbitmap","wsdlgmodalframe","onpopupmenu","onsize","onnotification");
-    end
 end
 type TPairSplitter=class(tcustomcontrol) //
     {**
@@ -2953,14 +2734,9 @@ type TPairSplitter=class(tcustomcontrol) //
         FSides := nil;
         inherited;
     end   
+    published 
     property Position:integer read GetPosition write SetPosition;
     property SplitterType:SplitterType read FSplitterType write SetSplitterType;
-    function publishs();override;
-    begin
-        return array("name","left","top","width","height",
-            "align","anchors","border","color","font","caption","enabled","visible","parentcolor","parentfont","splittertype","position",
-            "wsdlgmodalframe","wscaption","wspopup","wssizebox","wssysmenu","onnotification");
-    end
     {**
     @param(Position)(integer) 分割线位置 %%
     @param(SplitterType)(menuber of TPairSplitterType) 分割线位置 %%
@@ -3003,15 +2779,6 @@ type TGridCtl = class(TcustomGridCtl)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","height","width","left","top","border","anchors","align","font","color","parentcolor","parentfont",
-            "autoscroll","columncount","itemcount",
-            "itemheight","variablerows","mousesizecell","fixedrows","fixedcolumns","mergeinfo",
-            "ondrawcell","onhitcellsizer","onmousewheel","onmousemove",
-            "onmousedown","onmouseup","ondblclick",
-            "onkeyup","onkeydown","onkeypress","onnotification");
-    end  
 end 
 
 type TGRidBase = class(TGridCtl)
@@ -3357,6 +3124,7 @@ type TGRidBase = class(TGridCtl)
         //click 
         //LVN_COLUMNCLICK
     end
+    published
     property GridLine:bool read FGridLine write SetGridLine;
     property ColumnHeader:bool read FColumHeader write SetColumHeader;
     property ItemCount:integer read GetItemCount write SetItemCount;
@@ -3392,6 +3160,7 @@ type TDrawGrid=class(TGRidBase)
         FOnDoDrawSubItem := nil;
         inherited;
     end
+    published
     property OnDoDrawSubItem read FOnDoDrawSubItem write FOnDoDrawSubItem;
     {**
     @param(OnDoDrawSubItem)(function[tdrawgrid,TGRIDMDRAWITEM]) 子项绘制 %%
@@ -3990,6 +3759,7 @@ type TListView = class(TDrawGrid)
             //calldatafunction(SelectedChanged,self(true));
         end
     end
+    published
     property SelectedChanged read FSelectedChanged write FSelectedChanged;
     property OnSelChanged:eventhandler read FSelectedChanged write FSelectedChanged;
     property List read FList;
@@ -4002,17 +3772,6 @@ type TListView = class(TDrawGrid)
     property ListValues read GetListValues;
     property OnCheckItem:eventhandler read FOnCheckItem write FOnCheckItem;
     property NumberAlign read FIntAlign write SetIntAlign;
-    function publishs();override;
-    begin
-        return array("name","height","width","left","top","border","anchors","align","font","color","parentcolor","parentfont",
-            "autoscroll","itemheight","columns","columncount","itemcount","mousesizecell",
-            "fixedrows","fixedcolumns",
-            "gridline","columnheader",
-            "selectedid","selbkcolor","mouseonbkcolor",
-            "onmousewheel","onmousemove",
-            "onmousedown","onmouseup","ondblclick",
-            "onkeyup","onkeydown","onkeypress","oncolumnclick","oncheckitem","onnotification");
-    end
     {**
     @param(SelectedId)(integer) 当前选中的序号,<0表示没有选中项 %%
     @param(PrevSelectedId)(integer) 选择切换前面的选中id %%
@@ -4042,16 +3801,6 @@ type tprogressbar = class(tcustomprogressbar)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","border",
-                "align","anchors",
-                "popupmenu","color","visible","enabled","parnetcolor",
-                "height","width","left","top",
-                "vertical","smooth","range","position","barcolor","onmousemove","onpopupmenu",
-                "onmousedown","onmouseup","onnotification");
-    end 
-
 end 
 type tmonthcalendar = class(TCustomControl)
 {**
@@ -4152,17 +3901,11 @@ type tmonthcalendar = class(TCustomControl)
         FonSelect := nil;
         FonSelectChange := nil;
     end 
+    published
     property onSelectChange read FonSelectChange write FonSelectChange;
     property TodayButton:bool read getnoTodayButton write setNoTodayButton;
     property onSelect:eventhandler read FonSelect write FonSelect;
     property onSelChanged:eventhandler read FonSelectChange write FonSelectChange;
-    function publishs();override;
-    begin
-        return array("name","caption","anchors","enabled","color",
-        "popupmenu","visible","parentcolor",
-        "height","width","left","top","border","onmousemove","onpopupmenu",
-        "onmousedown","onmouseup","onselchanged");
-    end 
     {**
         @param(todayButton)(bool)月历显示“今日”按钮（默认开启）%%
         @param(onselchanged)(function[tmonthcalendar,tuieventbase])选择日期改变%%
@@ -4345,13 +4088,7 @@ type tdatetimepicker = class(tthreeEntry)
         FCalender := nil;
         Fonselectchange := nil;
     end  
-    function publishs();override;
+    published
-    begin
-        return array("name","caption","anchors","enabled","font","color",
-        "popupmenu","visible","parentcolor","parentfont",
-        "height","width","left","top","border","onmousemove","onpopupmenu",
-        "onmousedown","onmouseup","onselchanged","onnotification");
-    end  
     property onselectchange:eventhandler read Fonselectchange write Fonselectchange; 
     property onselchanged:eventhandler read Fonselectchange write Fonselectchange; 
     {
@@ -4513,13 +4250,7 @@ type ttimepicker = class(tthreeEntry)
     begin
         inherited;
     end 
-    function publishs();override;
+    published
-    begin
-        return array("name","align","anchors","caption","enabled","font","color",
-        "popupmenu","visible","parentcolor","parentfont",
-        "height","width","left","top","border","onmousemove","onpopupmenu",
-        "onmousedown","onmouseup","onkeyup","onkeydown","onselchanged","onnotification");
-    end 
     property onselectchange read Fonselectchange write Fonselectchange;
     property onselchanged:eventhandler read Fonselectchange write Fonselectchange;
     {
@@ -4554,11 +4285,6 @@ type tipaddr = class(tcustomipaddr)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","align","anchors","font","color","caption","visible","parentcolor","parentfont","height","width","left","top",
-        "ipaddr","hasport","onaddrchanged","border","wsdlgmodalframe","onnotification");
-    end
 end 	
 
 type TSpinEdit=class(TCustomSpinEdit)
@@ -4570,12 +4296,6 @@ type TSpinEdit=class(TCustomSpinEdit)
         inherited;
         //border := true;
     end
-    function publishs();override;
-    begin
-        return array("name","left","top","anchors","width","height",
-            "border","enabled","visible",
-            "increment","minvalue","maxvalue","value","wsdlgmodalframe","onincrease","ondecrease","onnotification");
-    end
 end
 
 type tapplicationwindow=class(TWinControl)
@@ -4737,6 +4457,7 @@ type TDragImageList=class(TCustomImageList)
     procedure HideDragImage;
     function SetDragImage(Index,HotSpotX,HotSpotY:Integer):Boolean;
     //procedure ShowDragImage;
+    published
     property DragCursor:TCursor read FDragCursor write SetDragCursor;
     property DragHotspot:TPoint read FDragHotspot write FDragHotspot;
     property Dragging:Boolean read FDragging;
@@ -4804,10 +4525,6 @@ type TTimer = class(TCustomTimer)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","interval","ontimer","onnotification");
-    end
 end 
 
 //******action 相关*****************************************
@@ -4821,22 +4538,12 @@ type TAction=class(TCustomAction)
     begin
         inherited;
     end
-    
-    function publishs();override;
-    begin
-        r := array("name","caption","enabled","shortcut","onexecute","onnotification");
-        return r;
-    end
 end
 type tactionlist =class(TCustomactionlist)
     function create(AOwner);override;
     begin
         inherited;
     end
-    function publishs();override;
-    begin
-        return array("name","onnotification");
-    end
 end 
 
 
@@ -4849,11 +4556,6 @@ type TMessageboxADlg = class(TcustommsgADlg)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","chooseok","caption",
-            "mbtext","mbbtnstyle","mbiconstyle","onnotification");
-    end
 end 
 type TColorChooseADlg = class(tcustomcolordlg)
     {**
@@ -4863,11 +4565,6 @@ type TColorChooseADlg = class(tcustomcolordlg)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","chooseok","caption",
-            "customcolors","result","onnotification");
-    end
 end 
 type TFontChooseADlg = class(tcustomfontdlg)
     {**
@@ -4877,11 +4574,6 @@ type TFontChooseADlg = class(tcustomfontdlg)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        array("name","chooseok","caption","color","onnotification");
-    end
-
 end 
 type TSavefileADlg = class(tcustomfsdlg)
     {**
@@ -4892,11 +4584,6 @@ type TSavefileADlg = class(tcustomfsdlg)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","caption","filter","filterindex","filename","defaultfileextension",
-            "showhidden","multiselected","overwriteprompt","filemustexist","onnotification"); //"linkfilepath" "createprompt"
-    end
 
 end 
 type TOpenFileADlg=class(tcustomfsdlg)
@@ -4919,11 +4606,6 @@ type TOpenFileADlg=class(tcustomfsdlg)
     begin
         inherited;
     end
-    function publishs();override;
-    begin
-        return array("name","caption","filter","filterindex","filename",
-            "defaultfileextension","showhidden","multiselected","onnotification"); //,"linkfilepath"
-    end
 end
 type TFolderChooseADlg = class(tcustomfolderdlg)
     {**
@@ -4933,11 +4615,6 @@ type TFolderChooseADlg = class(tcustomfolderdlg)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","caption",
-            "defaultdir","rootfolder","folder","onnotification");
-    end
 end 
 
 	//菜单
@@ -4949,11 +4626,6 @@ type TMenu = class(TcustomMenu)
     begin
         inherited;
     end
-    function publishs();override;
-    begin
-        return array("action","bitmap","caption","checked","enabled","name","tseparator",
-            "onclick","onrbuttonup","onselect","onnotification");
-    end
 end 
 type TPopupmenu=class(TcustomPopupmenu)
     {**
@@ -4963,10 +4635,6 @@ type TPopupmenu=class(TcustomPopupmenu)
     begin
         inherited;
     end
-    function publishs();override;
-    begin
-        return array("name","caption","enabled","onrbuttonup","onnotification");
-    end
 end
 type TMainmenu = class(TcustomMainmenu)
     {**
@@ -4976,10 +4644,6 @@ type TMainmenu = class(TcustomMainmenu)
     begin
         inherited;
     end
-    function publishs();override;
-    begin
-        return array("name");
-    end
 end 
 
 type TApplicationProperties=class(TComponent)
@@ -5004,6 +4668,7 @@ type TApplicationProperties=class(TComponent)
         FApplication := getapplication();
         FTrayData := new TNOTIFYICONDATAA();
     end
+    published
     property TrayMenu:tpopupmenu read FPopupMenu write SetPopupMenu;
     property TrayIcon:icondata read FTrayIcon write FTrayIcon;
     property ShowTray:bool read FShowTray write SetShowTray;
@@ -5017,10 +4682,6 @@ type TClipBoard = class(TcustomClipBoard)
     begin
         inherited;
     end 
-    function publishs();override;
-    begin
-        return array("name","text","bmp");
-    end
 end 
 
 	//线程
@@ -5583,15 +5244,12 @@ type TQuotations=class(tcomponent)
         end
         return nil;
     end
+    published
     property OnCallBack:eventhandler read FOncallBack write FOncallBack;
     property Ids:strings read FIds write FIds;
     property SUBs:strings read FSUbs write FSUbs;
     property GlobalVariable:tsldata read FGlobalVariable write FGlobalVariable;
     property Script:text read FScript write FScript;
-    function publishs();override;
-    begin
-        return array("name","ids","subs","globalvariable","script","oncallback","onnotification");
-    end
     {**
     @param(OnCallBack)(function[TQuotations]) 执行回调 %%
     @param(ids)(array of stockid) 证券代码数组 array("SZ000001","SZ000002") %%
@@ -5823,10 +5481,7 @@ type tlogincontrol=class(tpanel)
         if CheckLogined()then return true;
         else return false;
     end
-    function publishs();override;
+    published
-    begin
-        return lowercase(array("name","port","ip","usrname","onlogined","onnotification"));
-    end
     property Port:string read GetPort write SetPort;
     property Ip:string read GetIp write SetIp;
     property UsrName:string read GetUsrName write SetUsrName;
@@ -5983,15 +5638,7 @@ type Ttfm2Component = class(TTmfParser)
             d := et.ReadTMF(td,owner);
             if ifnil(d)then continue;
             try
-                pbs := obj.publishs();
-                if(n in pbs)then
-                begin
-                    //echo "\r\n====",n,"****",d;
                 invoke(obj,n,1,d);
-                end else
-                begin
-                    //echo "pbs:",tostn(pbs);
-                end
             except
                 //echo obj.classinfo()["classname"],"错误 \r\n";
             end;

funcext/tvclib/twincontrol.tsf

@@ -535,6 +535,7 @@ type TWinControl = class(tcontrol)
     end
     procedure ChangeBounds(ALeft,ATop,AWidth,AHeight:integer;KeepBase:boolean);override; //type_twinctrol
     begin
+        if ALeft=-32000 or ATop = -32000 then exit ;
         if HandleAllocated()then
         begin
             //_wapi.MoveWindow(self.Handle,ALeft,ATop,AWidth,AHeight,true);
@@ -2149,6 +2150,10 @@ type TWinControl = class(tcontrol)
     begin
         return FWMNCHITTEST.hitstyle2(self(true),x,y);
     end
+    Procedure SetDesigning(Value,SetChildren);virtual; //ÉèÖÃÉè¼Æ״̬
+    begin
+        inherited;
+    end;
     public //ÏûÏ¢·Ö·¢
     function MainWndProc(hwnd,message,wparam,lparam);virtual; //type_twinctrol
     begin

funcext/tvclib/utslvclaction.tsf

@@ -126,6 +126,7 @@ type TBasicAction=class(TComponent)
             if FActionComponent is class(TComponent)then FActionComponent.FreeNotification(self);
         end
     end
+    published
     property ActionComponent:TComponent read FActionComponent write SetActionComponent;
     property onexecute:eventhandler read FOnExecute write SetOnExecute;
     property OnUpdate:TNotifyEvent read FOnUpdate write FOnUpdate;
@@ -276,11 +277,6 @@ type TCustomAction=class(TContainedAction)
     property Enabled:bool read FEnabled write SetEnabled;
     property Visible:bool read FVisible write SetVisible;
     property ShortCut:string read getshortcut write SetShortCut;  
-    function publishs();override;
-    begin
-        r := array("name","caption","enabled","onexecute");
-        return r;
-    end
 end;
 type TCustomactionlist=class(TComponent)
     {**
@@ -409,6 +405,7 @@ type TBasicActionLink=class(TSLUIBASE)
     begin
     if FAction is class(TBasicAction) then return FAction.Update();
     end }
+    published
     property Action:TBasicAction read FAction write SetAction;
     property OnChange:TNotifyEvent read FOnChange write FOnChange;
     {**

funcext/tvclib/utslvclcef.tsf

@@ -245,9 +245,9 @@ type tcefowner = class(tcustomcontrol)
         end 
     end 
     published
-    property url read furl write seturl;
+    property url:string read furl write seturl;
-    property oncandownload read FOncandownload write FOncandownload;
+    property oncandownload:eventhandler read FOncandownload write FOncandownload;
-    property Ondownloadupdate read FOndownloadupdate write fOndownloadupdate;
+    property Ondownloadupdate:eventhandler read FOndownloadupdate write fOndownloadupdate;
     private 
     function seturl(url); //ÉèÖÃurl 
     begin

funcext/tvclib/utslvclcoolbar.tsf

@@ -277,6 +277,7 @@ type tcustomcoolbar=class(tcustomcontrol)
         inherited;
         FDRageimglist := nil;
     end 
+    published
     property autosize:bool read fautosize write setautosize;
     property arrange:lazystr read getarrange write setarrange;
     property dragbtncolor:color read fdragbtncolor write fdragbtncolor;

funcext/tvclib/utslvcldlg.tsf

@@ -44,6 +44,7 @@ type TCommDlg=class(tcomponent)
         @explan(说明) 打开对话框虚函数
         **}
     end
+    published
     property ChooseOk read FChooseOk;
     property WndOwner:variable read FWndOwner write FWndOwner;
     property Parent read FWndOwner write SetParent;
@@ -120,6 +121,7 @@ type TcustommsgADlg=class(TCommDlg)
     IDTRYAGAIN			10				"再试一次"按钮被按下
     IDYES 				6				"yes"按钮被选中			
     }
+    published
     property mbText:string read FmbText write setMbtext;
     property mbbtnstyle:MBbtnstyle read Fbtnval write setmbbtnstyle;
     property mbiconstyle:MBiconstyle read Ficonval write setmbiconstyle;
@@ -172,6 +174,7 @@ type tcustomcolordlg=class(TCommDlg)
     @param(CustomColors)(array of integer) 自定义颜色 %%
     @param(RgbResult)(integer) 颜色rgba值 %%
     **}
+    published
     property CustomColors read GetCustomColors write SetCustomColors;
     property Result:color read GetResult write SetResult;
 
@@ -222,6 +225,7 @@ type tcustomfontdlg=class(TCommDlg)
         if WndOwner is class(TWinControl)then FFontChoose.hwndowner := WndOwner.Handle;
         return _wapi.ChooseFontA(FFontChoose._getptr_);
     end
+    published
     property FontInfo:font read GetFontInfo write SetFontInfo;
     property color Write SetColor;
 
@@ -309,6 +313,7 @@ type tcustomfolderdlg=class(TCommDlg)
         FFolder := s;
         return true;
     end
+    published
     property DefaultDir read FDefaultDirstr write SetDefaultDir;
     property RootFolder:directory read FRootStr write SetRootFold;
     property Folder read FFolder;
@@ -508,6 +513,7 @@ type tcustomfsdlg = class(TCommDlg)
         end
         return r;
     end
+    published
     property filter:filefilter read FFilter write setfilter;
     property filterindex read Ffilterindex write Ffilterindex;
     property FileName read GetResult;
@@ -516,10 +522,10 @@ type tcustomfsdlg = class(TCommDlg)
     property initialDir:filename read getInitialDir write setInitialDir;
     property ShowHidden:bool read fIsShowHidden write setShowHidden;
     property Multiselected:bool read fIsMultiselected write setMultiselected;
-    property OverwritePrompt:bool read fIsOverwritePrompt write setOverwritePrompt;
+    property OverwritePrompt read fIsOverwritePrompt write setOverwritePrompt;
-    property LinkFilePath:bool read fIsLinkFilePath write setLinkFilePath;
+    property LinkFilePath read fIsLinkFilePath write setLinkFilePath;
     property FileMustExist:bool read fIsFileMustExist write setFileMustExist;
-    property CreatePrompt:bool read fIsCreatePrompt write setCreatePrompt;
+    property CreatePrompt read fIsCreatePrompt write setCreatePrompt;
     
     {**
     @param(filter)(array) array("所有文件":"*.*","tsl流文件":"*.stm")%%
@@ -617,6 +623,7 @@ type TcustomTipMessageButton = class(TGraphicControl)
         end
         return 0;
     end
+    published
     property messageText:string read fmessageText write setMessageText;
     property messageCaption:string read fmessageCaption write setMessageCaption;
     property showInfomationIcon:bool read isInfomationIcon write setInfomationIcon;
@@ -1098,6 +1105,7 @@ type TInputEditor=class()
         @param(info)(array) 信息 %%
         **}
     end
+    published
     property NextCtrl read FNextCtrl Write FNextCtrl;
     property Value read GetValue write SetValue;
     {**
@@ -1290,6 +1298,7 @@ type TEditAndBtnUni=class(tcustomcontrol)
         FBtn.SetBoundsRect(array(C[2]-18,1,C[2]-3,c[3]-2));
         FText.SetBoundsRect(array(c[0]+1,c[1]+1,c[2]-22,c[3]-2));
     end
+    published
     property Text read GetText Write SetText;
     private
     function GetText();

funcext/tvclib/utslvclgdi.tsf

@@ -1617,6 +1617,7 @@ type TcustomIcon = class(TPicturebase)
         end
         return r;
     end
+    published
     property id read FId write SetID;
     property Handle read FHandle write SetHandle;
     property MaskBMP:tbitmap read GetMaskBitMap;
@@ -2065,6 +2066,7 @@ type TCustomImageList=class(tcomponent)
             FAutoDestroy := false;
         end
     end
+    published
     property Handle read HandleNeeded write SetHandle;
     property AutoDestroy read FAutoDestroy write FAutoDestroy;
     property ImageCount read FimageCount;
@@ -2076,10 +2078,6 @@ type TCustomImageList=class(tcomponent)
     property BkColor:COLORREF read FBKColor write setbkcolor;
     property Images:imagesdata read GetImages write SetImages;
     property DrawBimpFirst read FDrawBimpFirst write FDrawBimpFirst;  
-    function publishs();override;
-    begin
-        return array("name","images","imgwidth","imgheight","bkcolor");
-    end
     {**
     @param(Handle)(HIMAGELIS) imagelist¾ä±ú %%
     @param(AutoDestroy)(bool) ÊÇ·ñÏú»Ù¾ä±ú %%

funcext/tvclib/utslvclmenu.tsf

@@ -855,9 +855,9 @@ private
     property TString index 0 read GetMenuType write SetMenuType;
     Property TOwnerdraw:bool index 0x100 read GetMenuType write SetMenuType;
     property Checked:bool read FChecked write SetChecked;
-    property OnDrawItem:eventhandler read FOnDrawItem write FOnDrawItem;
+    property OnDrawItem read FOnDrawItem write FOnDrawItem;
-    property OnMeasureItem:eventhandler read FOnMeasureItem write FOnMeasureItem;
+    property OnMeasureItem read FOnMeasureItem write FOnMeasureItem;
-    property OnSelect:eventhandler read FOnselect write FOnselect;
+    property OnSelect read FOnselect write FOnselect;
     property Oninitmenupopup read FOninitmenupopup write FOninitmenupopup;
     property Onrbuttonup:eventhandler read FOnrbuttonup write FOnrbuttonup;
     property Zorder read GetZorder write SetZorder;
@@ -961,6 +961,7 @@ type TcustomMainmenu=class(TcustomMenu)
         r := _wapi.CreateMenu();
         return r;
     end
+    published
     property Hwnd:pointer read FWndHandle write setwndhandle;
     {**
     @param(Hwnd)()´°¿Ú¾ä±ú %%;

funcext/tvclib/utslvclpage.tsf

@@ -666,6 +666,7 @@ type tcustomtabitem = class() //
         FVisible:= true;
         FCaption := "";
     end 
+    published
     property Caption read FCaption write SetCaption;
     property PageSheet read FPageSheet Write FPageSheet;
 end 

funcext/tvclib/utslvclstdctl.tsf

@@ -123,6 +123,7 @@ type TcustomClipBoard=class(tcomponent) //
     begin
         inherited;
     end
+    published
     property Text read GetText write SetText;
     property Bmp read GetBitmap write SetBitmap;
     {**
@@ -314,6 +315,7 @@ type TCustomTimer = class(tcomponent)//
             return 1;
         end
     end
+    published
     property Interval:integer read FInterval write SetInterval; //间隔
     property Ontimer:eventhandler read FOntimer write FOntimer; //回调
     property Enabled:bool read FStart Write SetEnabled; //启动
@@ -534,6 +536,7 @@ type tcustombtn = class(TCustomControl) //
         FonSetFocus := nil;
         FonKillFocus := nil;
     end 
+    published
     property textPos:AlignStyle9 read FtextPosition write setTextPosition; //文字对齐
     property pushLike:bool read FpushLike write setPushLike;  
     property multiLine:bool read FmultiLine write setMultiLine;
@@ -666,6 +669,7 @@ type tcustomcheckbtn=class(tcustombtn) //checkbtn
         FcheckState := e.wparam;   
         InvalidateRect(nil,false); 
     end 
+    published    
     property checked:bool read FcheckState write setChecked;
     property leftText:bool read FleftText write setLeftText;
     {**
@@ -1711,6 +1715,7 @@ type teditable=class(TSLUIBASE)  //
         FFont := nil;
         inherited;
     end
+    published
     property Visible read FVisible write SetVisible;
     property text:string read FString write setEditText;
     property onmaxtext:eventhandler read FOnMaxText write FOnMaxText; //eventhandler 修改
@@ -2185,7 +2190,7 @@ type tVirtualCalender=class(TSLUIBASE)
         FHost := nil;
         FFont := nil;
     end
-    public
+    published
     property Left read FLeft write SetLeft;
     property top read FTop write SetTop;
     property host read FHost write sethost;
@@ -2421,6 +2426,7 @@ type TcustomLabel = class(TGraphicControl)
         if ifnil(val)then val := 36;
         return dc.drawtext(txt,rect,val .| DT_NOPREFIX);
     end
+    published
     property TextAlign:AlignStyle9 read FTextAlign write SetTextAlign;
     {**
     @param(TextAlign)(member of TAlignStyle9) 文字对齐 %%
@@ -2570,6 +2576,7 @@ type tcustomedit=class(TCustomControl)
         if FEditable then FEditable.Recycling();
         FEditable := nil;
     end
+    published
     property text:string read getentrytext write setentrytext;
     property onmaxtext:eventhandler read Fonmaxtext write fonmaxtext;
     property onupdate read FOnUpdate write FOnUpdate;
@@ -2675,6 +2682,7 @@ type tcustompassword = class(tcustomedit)
         end 
         inherited;    
     end 
+    published
     property PassWordChar:string read getPassWordChar write SetPassWordChar;
 		
 end	
@@ -3238,6 +3246,7 @@ type TCustomListBoxbase=class(TCustomScrollControl)
     begin
         return FItemCount;
     end
+    published
     property ItemCount read GetItemCount write SetItemCount;
     property ItemHeight read GetYScrollDelta;
     {**
@@ -3768,6 +3777,7 @@ type TcustomListBox=class(TCustomListBoxbase)
         Fondrawlist := nil;
         return inherited;
     end
+    published
     property ItemHeight:integer read GetYScrollDelta write setItemHeight;
     property ItemCount:integer read GetItemCount write SetItemCount;
     property Multisel:bool read FMultisel write SetMultisel;
@@ -4386,6 +4396,7 @@ type TcustomComboBox=class(TCustomComboBoxbase)
         end 
         return getItemText(idx);
     end
+    published
     property readonly:bool read Freadonly write setReadOnly;
     property Multisel:bool read fmultisel write setMultisel;
     property checkbox:bool read fcheckbox write setcheckbox;
@@ -4594,6 +4605,7 @@ type TcustomToolButton=class(tcomponent)
         FEnabled := true; //有效 可以点击
         FVisible := true; //可见 
     end
+    published
     property OnClick:eventhandler read FOnClick write FOnClick;
     property Caption:string read FCaption write SetCaption;
     property ImageId:integer read FImageId write SetImageId;
@@ -5257,6 +5269,7 @@ type TcustomToolBar=class(TCustomControl)
         end ;
         return inherited;
     end 
+    published
     property MainMenu:tmainmenu read fmainmenu write setmainmenu;
     protected
     procedure SetAlign(Value:TAlign);override;
@@ -5558,6 +5571,7 @@ type TcustomStatusBar=class(TCustomControl)
             InvalidateRect(nil,false);
         end
     end
+    published
     property Items:statusitems read Fitems Write SetItems;
     property itemtext:string read gettexti write settexti;
     property itemwidth:integer read getwidthi write setwidthi;  
@@ -5956,6 +5970,7 @@ type TCustomSpinEdit = class(TCustomControl)
         DrawItem(CI_UP,CIS_NONE);
         DrawItem(CI_DOWN,CIS_NONE);
     end
+    published
     property OnIncrease:eventhandler read FOnIncrease write FOnIncrease;
     property OnDecrease:eventhandler read FOnDecrease write FOnDecrease;
     property Increment:integer read FIncrement write SetIncrement;
@@ -6035,6 +6050,7 @@ type tcustomgroupbox=class(TCustomControl)
         drawdesigninggrid();
         /////////////////////////////////		    
     end
+    published
     property textPos:AlignStyle9 read FtextPosition write setTextPosition;
     private
     function setTextPosition(n);
@@ -6154,6 +6170,7 @@ type tcustomprogressbar=class(TCustomControl)
         end 
         return r;
     end
+    published
     property smooth:bool read Fsmooth write setSmooth;
     property vertical:bool read Fvertical write setVertical;
     {**
@@ -6575,6 +6592,7 @@ type tcustomipaddr = class(TCustomControl)
         FEditors := array();
         inherited;
     end
+    published
     property HasPort:bool read FHasPort write SetHasPort;
     property ipaddr:string  read getAddress write setAddress;
     property onaddrchanged:eventhandler read FaddrChange  write FaddrChange;