JianjunLiu
parent
147a737e12
commit
08efcf2722
|
|
@ -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;
|
||||
//********************
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
|
|
|||
|
|
@ -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
|
||||
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) 所有者 %%
|
||||
|
|
|
|||
|
|
@ -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 ;
|
||||
|
|
|
|||
|
|
@ -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) //单选框
|
||||
|
|
@ -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;
|
||||
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) //
|
||||
{**
|
||||
|
|
@ -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;
|
||||
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
|
||||
except
|
||||
//echo obj.classinfo()["classname"],"错误 \r\n";
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
{**
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
|
|
|||
|
|
@ -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) ÊÇ·ñÏú»Ù¾ä±ú %%
|
||||
|
|
|
|||
|
|
@ -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)()´°¿Ú¾ä±ú %%;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue