ExCtrls: New component TButtonEx

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7481 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/exctrls/exctrlspkg.lpk

@@ -17,7 +17,7 @@
 - CurrencyEdit
 - TRadioButton, TCheckbox, TRadioGroup and TCheckGroup: drawn by ThemeServices/Canvas, not by widgetset, button/text layout, wordwrap, user-provided check images"/>
     <License Value="LGPL with linking exception (like Lazarus LCL)."/>
-    <Files Count="3">
+    <Files Count="4">
       <Item1>
         <Filename Value="source\excheckctrls.pas"/>
         <UnitName Value="ExCheckCtrls"/>
@@ -31,6 +31,10 @@
         <HasRegisterProc Value="True"/>
         <UnitName Value="ExCtrlsReg"/>
       </Item3>
+      <Item4>
+        <Filename Value="source\exbuttons.pas"/>
+        <UnitName Value="exbuttons"/>
+      </Item4>
     </Files>
     <RequiredPkgs Count="2">
       <Item1>

components/exctrls/exctrlspkg.pas

@@ -8,7 +8,7 @@ unit ExCtrlsPkg;
 interface
 
 uses
-  ExCheckCtrls, ExEditCtrls, ExCtrlsReg, LazarusPackageIntf;
+  ExCheckCtrls, ExEditCtrls, ExCtrlsReg, ExButtons, LazarusPackageIntf;
 
 implementation
 

components/exctrls/images/imagelist.txt

@@ -1,3 +1,6 @@
+tbuttonex.png
+tbuttonex_150.png
+tbuttonex_200.png
 tradiobuttonex.png
 tradiobuttonex_150.png
 tradiobuttonex_200.png

components/exctrls/source/exctrlsreg.pas

@@ -12,14 +12,14 @@ procedure Register;
 implementation
 
 uses
-  ExCheckCtrls, ExEditCtrls;
+  ExButtons, ExCheckCtrls, ExEditCtrls;
 
 {$R exctrlsreg.res}
 
 procedure Register;
 begin
   RegisterComponents('ExCtrls', [
-    TCheckboxEx, TRadioButtonEx, TCheckGroupEx, TRadioGroupEx
+    TButtonEx, TCheckboxEx, TRadioButtonEx, TCheckGroupEx, TRadioGroupEx
   ]);
   RegisterComponents('LazControls', [
     TCurrSpinEditEx