界面库

修正coolbar自动大小的细节

funcext/tvclib/twincontrol.tsf

@@ -2108,13 +2108,13 @@ type TWinControl = class(tcontrol)
                 end
             end
         end else
-        if message=WM_MOVE then
+        {if message=WM_MOVE then
         begin
             x := e.lolparamsigned();
             if FClientLeft <> x then FClientLeft := x;
             y := e.hilparamsigned();
             if FClientTop <> y then FClientTop := y;
-        end else
+        end else}
         //if message = WM_MOUSEMOVE then 
         if message=WM_NCHITTEST then //
         begin

funcext/tvclib/utslvclcoolbar.tsf

@@ -176,11 +176,11 @@ type tcustomcoolbar=class(tcustomcontrol)
             rc := ClientRect;
             nh := sum(rhs);
             h := rc[3]-rc[1];
+            bw := Height-h;
             dh := h-nh;
             if abs(dh)>4 then 
             begin
                 Align := alNone;
-                if WSSizebox or WsDlgModalFrame or Border then bw := 2;
                 Height := bw+nh;
                 Align := alTop;
                 return ;
@@ -314,9 +314,9 @@ type tcustomcoolbar=class(tcustomcontrol)
                 ar+= inttostr(ctls.indexof(v.fctl));
                 ar+=",";
             end 
-            ar[length(ar)] := ";"; 
+            ar[length(ar)] := ";";             
         end 
-        if ar then ar[length(ar):] := "";
+        if ar then ar[length(ar):] := "";        
         return ar;    
     end 
     function setarrange(ar);