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

界面库 

整理代码
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Help/tslvclhelp.CHM
View File

Binary file not shown.

90
designer/utslvcldcomponents.tsf
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)

1426
funcext/tvclib/tslvcl.tsf
View File

File diff suppressed because it is too large Load Diff

47
funcext/tvclib/utslvclstdctl.tsf
View File

@ -5935,14 +5935,44 @@ type tcustomprogressbar=class(TCustomControl)
if Fvertical then
begin
d := rt *h;
br[0] +=(h-d);
br[1] +=(h-d);
end else
begin
d := floor(rt*w);
br[2] := br[0]+d;
end
dc.brush.color := FbarColor;
dc.FillRect(br);
dc.FillRect(br);
if not Fsmooth then
begin
pc := dc.pen.Color;
pw := dc.pen.Width;
dc.pen.Color := color;
dc.pen.Width := 2;
sp := 18;
if Fvertical then
begin
p := br[3]-sp;
while p>br[1] do
begin
dc.moveto(array(r[0],p));
dc.LineTo(array(r[2],p));
p-=sp;
end
end else
begin
p := sp ;
while p<br[2] do
begin
dc.moveto(array(p,r[1]));
dc.LineTo(array(p,r[3]));
p+=sp;
end
end
dc.pen.Color := pc;
dc.pen.Width := pw;
end
end
function increaseByStep();
begin
@ -5989,14 +6019,14 @@ type tcustomprogressbar=class(TCustomControl)
@param(stepincrement)(integer)½ø¶ÈÀ¸µÄ²½ÔöÁ¿%%
**}
private
private //属性
Fsmooth;
Fvertical;
Frange;
Fposition;
Fstep;
FbarColor;
private
private //属性处理函数
function setSmooth(n);
begin
Fsmooth := n;
@ -6388,10 +6418,10 @@ type tcustomipaddr = class(TCustomControl)
end
property HasPort:bool read FHasPort write SetHasPort;
property ipaddr:string read getAddress write setAddress;
property onAddrChange:eventhandler read FaddrChange write FaddrChange;
property onaddrchanged:eventhandler read FaddrChange write FaddrChange;
{**
@param(ipaddr)(string)ipµØÖ·%%
@param(onAddrChange)(function[tIPAddr,tuieventbase])id華硊曹趙隙覃%%
@param(onaddrchanged)(function[tIPAddr,tuieventbase])id地址变化回调%%
**}
private
FEditors;
@ -6443,8 +6473,7 @@ type tcustomipaddr = class(TCustomControl)
nv := v?true:false;
if FHasPort <>nv then
begin
FHasPort := nv;
FHasPort := nv;
calcportsize();
FPort.Visible := nv;
InvalidateRect(nil,false);
@ -6496,9 +6525,7 @@ type tcustomipaddr = class(TCustomControl)
Fsynrects[3,0] := ":";
Fsynrects[3,1] := rc1;
end
end
implementation
type TtoolbuttonActionLink=class(TControlActionLink)
{**