From 08efcf27222978521f17542e69f31cfd972baa9d Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Thu, 27 Apr 2023 16:39:02 +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/udesignerproject.tsf | 14 +- designer/utslvcldcomponents.tsf | 24 -- funcext/tvclib/tcomponent.tsf | 58 +++-- funcext/tvclib/tcontrol.tsf | 22 +- funcext/tvclib/tslvcl.tsf | 397 ++---------------------------- funcext/tvclib/twincontrol.tsf | 5 + funcext/tvclib/utslvclaction.tsf | 9 +- funcext/tvclib/utslvclcef.tsf | 6 +- funcext/tvclib/utslvclcoolbar.tsf | 1 + funcext/tvclib/utslvcldlg.tsf | 15 +- funcext/tvclib/utslvclgdi.tsf | 8 +- funcext/tvclib/utslvclmenu.tsf | 7 +- funcext/tvclib/utslvclpage.tsf | 1 + funcext/tvclib/utslvclstdctl.tsf | 22 +- 14 files changed, 127 insertions(+), 462 deletions(-) diff --git a/designer/udesignerproject.tsf b/designer/udesignerproject.tsf index c154ab2..6419c84 100644 --- a/designer/udesignerproject.tsf +++ b/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.Caption := "Ϊڽű"; - FSetEntryMenu.bitmap := bmps[""]; - FSetEntryMenu.OnClick := thisfunction(SetAsMainWind); + //FSetEntryMenu := new TMenu(self); + //FSetEntryMenu.Caption := "Ϊڽű"; + //FSetEntryMenu.bitmap := bmps[""]; + //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; //******************** diff --git a/designer/utslvcldcomponents.tsf b/designer/utslvcldcomponents.tsf index 98d02c9..f1e7276 100644 --- a/designer/utslvcldcomponents.tsf +++ b/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(); diff --git a/funcext/tvclib/tcomponent.tsf b/funcext/tvclib/tcomponent.tsf index 5a190ec..e8fb4d0 100644 --- a/funcext/tvclib/tcomponent.tsf +++ b/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 + deleteindex(r,n); 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 - function OrderPublish(r,od); //򷢲Ķ + end } + {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) %% diff --git a/funcext/tvclib/tcontrol.tsf b/funcext/tvclib/tcontrol.tsf index 454a97d..3c2063f 100644 --- a/funcext/tvclib/tcontrol.tsf +++ b/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; @@ -1406,12 +1411,7 @@ type tcontrol = class(tcomponent) begin 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; + end } protected property UnAlignBounds read GetUnAlignBounds write SetUnAlignBounds; {** @@ -1419,8 +1419,12 @@ type tcontrol = class(tcomponent) @param(UnAlignBounds)(array of integer) ȥԶʱķΧ %% @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 ; diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf index 095b813..c382f1a 100644 --- a/funcext/tvclib/tslvcl.tsf +++ b/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; - begin - return array("name","caption","icon","popupmenu","onclick","onnotification"); - end + published 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) //ѡ @@ -1232,14 +1160,7 @@ type tradiobtn = class(tcustomradiobtn) // function create(AOwner); 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 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; - 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 + published 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; - begin - return array("name","anchors","font","color", - "visible","parentcolor","parentfont", - "height","width","left","top", - "readonly","itemindex", - "onselchanged","ondropdown","oncloseup","onnotification"); - end + published 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) // {** @@ -2952,15 +2733,10 @@ type TPairSplitter=class(tcustomcontrol) // if FDRageimglist then _wapi.ImageList_Destroy(FDRageimglist); FSides := nil; inherited; - end + 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])ѡڸı%% @@ -4344,14 +4087,8 @@ type tdatetimepicker = class(tthreeEntry) inherited; FCalender := nil; Fonselectchange := nil; - end - function publishs();override; - 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 + published 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; - 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 + published 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; - begin - return lowercase(array("name","port","ip","usrname","onlogined","onnotification")); - end + published 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 + invoke(obj,n,1,d); except //echo obj.classinfo()["classname"]," \r\n"; end; diff --git a/funcext/tvclib/twincontrol.tsf b/funcext/tvclib/twincontrol.tsf index 37abf36..f90a419 100644 --- a/funcext/tvclib/twincontrol.tsf +++ b/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 diff --git a/funcext/tvclib/utslvclaction.tsf b/funcext/tvclib/utslvclaction.tsf index b6e763d..5559c7f 100644 --- a/funcext/tvclib/utslvclaction.tsf +++ b/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; @@ -275,12 +276,7 @@ type TCustomAction=class(TContainedAction) property Checked:bool read FChecked write SetChecked; 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 + property ShortCut:string read getshortcut write SetShortCut; 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; {** diff --git a/funcext/tvclib/utslvclcef.tsf b/funcext/tvclib/utslvclcef.tsf index c84ee95..c733c27 100644 --- a/funcext/tvclib/utslvclcef.tsf +++ b/funcext/tvclib/utslvclcef.tsf @@ -245,9 +245,9 @@ type tcefowner = class(tcustomcontrol) end end published - property url read furl write seturl; - property oncandownload read FOncandownload write FOncandownload; - property Ondownloadupdate read FOndownloadupdate write fOndownloadupdate; + property url:string read furl write seturl; + property oncandownload:eventhandler read FOncandownload write FOncandownload; + property Ondownloadupdate:eventhandler read FOndownloadupdate write fOndownloadupdate; private function seturl(url); //url begin diff --git a/funcext/tvclib/utslvclcoolbar.tsf b/funcext/tvclib/utslvclcoolbar.tsf index e98b077..463f310 100644 --- a/funcext/tvclib/utslvclcoolbar.tsf +++ b/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; diff --git a/funcext/tvclib/utslvcldlg.tsf b/funcext/tvclib/utslvcldlg.tsf index c9ba621..7ce193b 100644 --- a/funcext/tvclib/utslvcldlg.tsf +++ b/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 LinkFilePath:bool read fIsLinkFilePath write setLinkFilePath; + property OverwritePrompt read fIsOverwritePrompt write setOverwritePrompt; + 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(); diff --git a/funcext/tvclib/utslvclgdi.tsf b/funcext/tvclib/utslvclgdi.tsf index da68559..d4e8ee6 100644 --- a/funcext/tvclib/utslvclgdi.tsf +++ b/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; @@ -2075,11 +2077,7 @@ type TCustomImageList=class(tcomponent) property OnChange read FOnChange write FOnChange; 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 + property DrawBimpFirst read FDrawBimpFirst write FDrawBimpFirst; {** @param(Handle)(HIMAGELIS) imagelist %% @param(AutoDestroy)(bool) Ƿپ %% diff --git a/funcext/tvclib/utslvclmenu.tsf b/funcext/tvclib/utslvclmenu.tsf index a0cb0f1..2b30249 100644 --- a/funcext/tvclib/utslvclmenu.tsf +++ b/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 OnMeasureItem:eventhandler read FOnMeasureItem write FOnMeasureItem; - property OnSelect:eventhandler read FOnselect write FOnselect; + property OnDrawItem read FOnDrawItem write FOnDrawItem; + property OnMeasureItem read FOnMeasureItem write FOnMeasureItem; + 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)()ھ %%; diff --git a/funcext/tvclib/utslvclpage.tsf b/funcext/tvclib/utslvclpage.tsf index e4b1430..a87794d 100644 --- a/funcext/tvclib/utslvclpage.tsf +++ b/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 diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf index c6f8919..a771882 100644 --- a/funcext/tvclib/utslvclstdctl.tsf +++ b/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; @@ -665,7 +668,8 @@ type tcustomcheckbtn=class(tcustombtn) //checkbtn begin FcheckState := e.wparam; InvalidateRect(nil,false); - end + 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;