优化编辑器，快捷键提示

funcext/tvclib/tcontrol.tsf

@@ -1503,8 +1503,8 @@ type tcontrol = class(tcomponent)
         if ft then 
         begin 
             c := caption;
-            w := ft.Width*(max(2,length(c)))+2;
-            h := ft.Height+2; 
+            w := ft.Width*(length(c)+2);
+            h := ft.Height+3; 
         end 
     end  
     protected

funcext/tvclib/tslvcl.tsf

@@ -574,7 +574,7 @@ type TPanel=class(TScrollingWinControl)	//
         return frclient;
     end 
     published
-    property borderwidth read fborderwidth write setborderwidth;
+    property borderwidth:natural read fborderwidth write setborderwidth;
     property bevelinner:tbevelcut read fbevelinner write setbevelinner;
     property bevelouter:tbevelcut read fbevelouter write setbevelouter;
     property bevelwidth:integer read fbevelwidth write setbevelwidth;

funcext/tvclib/utslvclstdctl.tsf

@@ -2426,10 +2426,12 @@ type tcustombevel = class(TGraphicControl)
     function create(AOwner);
     begin
         inherited;
+        Color := clMenu;
+        transparent := false;
         caption := "";
         fshape := bsbox;
         fstyle := bsLowered;
-    end 
+    end     
     function paint();override;
     begin
         if iffuncptr(OnPaint) then call(OnPaint,self(true));