TCheckBox draw like as TRadioButton

[papelhigienico]

I'm creating a component descendent from TCheckBox, but I want paint it like a TRadioButton. How to do this?

[antonio]

Why don't you simply use a TRadioButton? What are you trying to do?

[papelhigienico]

sorry, I don't explain right...

My Hierarchy:

TCheckBox -> THMICheckBox -> THMIRadioButton;

Because of a lot of procedures, functions and propertys that are implemented in THMICheckBox, to me is more easy redraw the component like as RadioButton. In Delphi I can do this, but in Lazarus I don't found any way to do this. It's possible?

[antonio]

Probably yes. Probably you must write your Paint procedure to paint it as a RadioButton.

[papelhigienico]

I found an way to do this. At end of unit of your component, add initialization section and add this code

  RegisterWSComponent(ClassOFYourComponent, FindWSComponentClass(ClassThatYouLike));