liujianjun/tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库

Browse Source 
整理代码
This commit is contained in:
JianjunLiu
2022-11-14 16:39:41 +08:00
parent d4c78d9928
commit b819fd95d6
4 changed files with 445 additions and 1118 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/utslvcldcomponents.tsf
+1 -89
View File
@@ -2104,28 +2104,7 @@ type TPopUpMenuWindow = class(TDVirutalWindow)
return GetPopUpMenuBitmapInfo();
end
end
type TSocketServerWindow = class(TDVirutalWindow)
function Create(AOwner);override;
begin
inherited;
BindComp := new TSocketServer(self);
end
function bitmapinfo();override;
begin
return GetServerBitmapInfo();
end
end
type TSocketClientWindow = class(TDVirutalWindow)
function Create(AOwner);override;
begin
inherited;
BindComp := new TSocketClient(self);
end
function bitmapinfo();override;
begin
return GetClientBitmapInfo();
end
end
type TClipBordWindow = class(TDVirutalWindow)
function Create(AOwner);override;
begin
@@ -2282,74 +2261,7 @@ type TDtlogincontrol = class(TDRootComponent)
end
//*************Server*************************
type TDSocketServer = class(TDRootComponent)
{**
@explan(说明) 弹出菜单控件 %%
**}
function HitTip();override;
begin
return "socket服务端";
end
function classification();override;
begin
return "天软";
end
function ComponentClass();override;
begin
return class(TSocketServer);
end
function bitmapinfo();override;
begin
return GetServerBitmapInfo();
end
function WndClass();override;
begin
return Class(TSocketServerWindow);
end
function Create(AOwner);override;
begin
inherited;
fiscontainerdcmp := false;
end
end
//*************client**********************
type TDSocketClient = class(TDRootComponent)
{**
@explan(说明) 弹出菜单控件 %%
**}
function HitTip();override;
begin
return "socket客户端";
end
function classification();override;
begin
return "天软";
end
function ComponentClass();override;
begin
return class(TSocketClient);
end
function bitmapinfo();override;
begin
return GetClientBitmapInfo();
end
function WndClass();override;
begin
return Class(TSocketClientWindow);
end
function Create(AOwner);override;
begin
inherited;
fiscontainerdcmp := false;
end
end
//*************TTreeView***************************
type TDTreeView = class (TDComponent)