From 9509c2b1a6d251ab740f9542f506154333dd6541 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Fri, 2 Sep 2022 16:53:04 +0800 Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 优化coolbar细节 --- funcext/tvclib/tcomponent.tsf | 5 +++-- funcext/tvclib/utslvclcoolbar.tsf | 3 +-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/funcext/tvclib/tcomponent.tsf b/funcext/tvclib/tcomponent.tsf index 0575fe7..904e99c 100644 --- a/funcext/tvclib/tcomponent.tsf +++ b/funcext/tvclib/tcomponent.tsf @@ -193,8 +193,9 @@ public begin end - function relnotification(ac,Operation);//֪ͨ¹ØÁªµÄ×é¼þ + function relnotification(Operation);//֪ͨ¹ØÁªµÄ×é¼þ begin + ac := self(self); ow := ac; while ow do begin @@ -347,7 +348,7 @@ public if not FComponentCreated then exit; Destroying(); ////////////////////////// - relnotification(self(true),"recycling"); + relnotification("recycling"); /////////////////////// DestroyComponents(); If FOwner is class(tcomponent)Then FOwner.RemoveComponent(self(true)); //self diff --git a/funcext/tvclib/utslvclcoolbar.tsf b/funcext/tvclib/utslvclcoolbar.tsf index 4bf1f34..1175c6d 100644 --- a/funcext/tvclib/utslvclcoolbar.tsf +++ b/funcext/tvclib/utslvclcoolbar.tsf @@ -60,7 +60,6 @@ type tcustomcoolbar=class(tcustomcontrol) begin doControlALign(); InvalidateRect(nil,false); - r := getarrange(); end end else if fsizenode then @@ -584,7 +583,7 @@ type tcoolbarlines = class() // for i,v in rs do begin 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