Button with 2 lines (diferentes font size) (SOLVED)

[esvignolo]

Hi Circular/Lainz, is posible use TBCButton like the attachment.

Thanks!!!

[lainz]

You can try to use the event OnAfterRenderBCButton.

Set the property ShowCaption to False. Then you can draw two texts by using that event:

Code: Pascal  [Select][+][-]

1. procedure TForm1.BCButton1AfterRenderBCButton(Sender: TObject;
2.   const ABGRA: TBGRABitmap; AState: TBCButtonState; ARect: TRect);
3. begin
4.   // draw your text here for each state
5. end;
6.  

If you mean the style, exactly looking this control can't

You can see the controls in BCImageButton unit, the class TBCXButton and how you can create your own button control.

Or you can create a Drawer for BGRA Custom Drawn controls, see that units too.

Edit: of course AutoSize will not work

[esvignolo]

Thanks!!

You can try to use the event OnAfterRenderBCButton.

Set the property ShowCaption to False. Then you can draw two texts by using that event:

Code: Pascal  [Select][+][-]

1. procedure TForm1.BCButton1AfterRenderBCButton(Sender: TObject;
2.   const ABGRA: TBGRABitmap; AState: TBCButtonState; ARect: TRect);
3. begin
4.   // draw your text here for each state
5. end;
6.  

If you mean the style, exactly looking this control can't

You can see the controls in BCImageButton unit, the class TBCXButton and how you can create your own button control.

Or you can create a Drawer for BGRA Custom Drawn controls, see that units too.

Edit: of course AutoSize will not work