界面库

优化coolbar细节

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 

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<b) then  //确定行
             begin
                 for j,bsi in flines[i].data do  //ÔÚÐÐÖÐÑ­»·
                 begin