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

界面库 

优化coolbar细节
This commit is contained in:
JianjunLiu 2022-09-02 16:53:04 +08:00
parent 26fc211474
commit 9509c2b1a6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
funcext/tvclib/tcomponent.tsf
View File

@ -193,8 +193,9 @@ public
begin begin
end end
function relnotification(ac,Operation);//通知关联的组件 function relnotification(Operation);//通知关联的组件
begin begin
ac := self(self);
ow := ac; ow := ac;
while ow do while ow do
begin begin
@ -347,7 +348,7 @@ public
if not FComponentCreated then exit; if not FComponentCreated then exit;
Destroying(); Destroying();
////////////////////////// //////////////////////////
relnotification(self(true),"recycling"); relnotification("recycling");
/////////////////////// ///////////////////////
DestroyComponents(); DestroyComponents();
If FOwner is class(tcomponent)Then FOwner.RemoveComponent(self(true)); //self If FOwner is class(tcomponent)Then FOwner.RemoveComponent(self(true)); //self

3
funcext/tvclib/utslvclcoolbar.tsf
View File

@ -60,7 +60,6 @@ type tcustomcoolbar=class(tcustomcontrol)
begin begin
doControlALign(); doControlALign();
InvalidateRect(nil,false); InvalidateRect(nil,false);
r := getarrange();
end end
end else end else
if fsizenode then if fsizenode then
@ -584,7 +583,7 @@ type tcoolbarlines = class() //
for i,v in rs do for i,v in rs do
begin begin
if v<1 then continue; if v<1 then continue;
if y>=b and y<=b+v then //确定行 if (y>=b and y<=b+v) or (i=0 and y<b) then //确定行
begin begin
for j,bsi in flines[i].data do //ÔÚÐÐÖÐÑ­»· for j,bsi in flines[i].data do //ÔÚÐÐÖÐÑ­»·
begin begin