Новый компонент VCL — добавление стиля с помощью конструктора растровых стилей ⇐ C++

[Anonymous]

В RAD Studio 12.2 C++Builder я создал новый компонент под названием TGroupBoxE, производный от TGroupBox. Он унаследовал все графические свойства TGroupBox.


Я хочу, чтобы новый компонент использовал не стиль TGroupBox, а новый стиль TGroupBoxE, который я создам с помощью дизайнера растровых стилей. В дизайнере растровых стилей я загрузил и скопировал GroupBox (TSeStyleObject). Я назвал его GroupBoxE и изменил рендеринг, чтобы он не отображал рамки.


Новый компонент правильно определен в категории «Образцы», и его можно использовать в приложении.
Как правильно определить TSeStyleObject в компоненте TGroupBoxE, чтобы он не использовал визуальный стиль TGroupBox, а вместо этого использовал мой новый дизайн без рамок?
#include
#pragma hdrstop
#include "GroupBoxE.h"
#pragma package(smart_init)
//-----------------------GroupBoxE.cpp---------------------------------------
__fastcall TGroupBoxE::TGroupBoxE(TComponent* Owner)
: TGroupBox(Owner)//, FFrameWidth(1), FCustomShowFrame(true)
{
}
//---------------------------------------------------------------------------
TRect __fastcall TGroupBoxE::GetClientRect()
{
TRect Rect = TGroupBox::GetClientRect();
if (Caption.IsEmpty())
{
int CaptionHeight = Canvas->TextHeight("A");
Rect.Top -= CaptionHeight;
}
return Rect;
}
//---------------------------------------------------------------------------
void __fastcall TGroupBoxE::WndProc(TMessage &Message)
{
if (Message.Msg == WM_SIZE && FOnResize) FOnResize(this);
TGroupBox::WndProc(Message);
}
//---------------------------------------------------------------------------
namespace Groupboxe
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TGroupBoxE)};
RegisterComponents(L"Samples", classes, 0);
}
}
//---------------------------------------------------------------------------

//--------------------------------GroupBoxE.h--------------------------------
#ifndef GroupBoxEH
#define GroupBoxEH
//---------------------------------------------------------------------------
#include
#include
#include
//---------------------------------------------------------------------------
class PACKAGE TGroupBoxE : public TGroupBox
{
private:
TNotifyEvent FOnResize;
protected:
virtual void __fastcall WndProc(TMessage &Message) override;
public:
__fastcall TGroupBoxE(TComponent* Owner) override;
__published:
virtual TRect __fastcall GetClientRect() override;
__property TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
};
//---------------------------------------------------------------------------
#endif


Подробнее здесь: https://stackoverflow.com/questions/792 ... e-designer