Написание компонента

← →
^SANYA © (2002-09-28 15:06) [0]

Как создать свойство схожее по структуре с TForm.Font?
Суть в том, что в инспекторе объектов у меня отображается только название класса свойства, но выпадающий список не работает...
Цель заключается в том, чтобы научиться отображать в инспекторе объектов создавать структурированные свойства типа TFont с выпадающим списком.
Как это правильно сделать?
Заранее благодарен.

← →
evgeg © (2002-09-28 15:10) [1]

Просто объявите в классе свойства published сво-ва. Все они будут отображаться в расшифровке.

← →
^SANYA © (2002-09-28 16:02) [2]

>evgeg © (28.09.02 15:10)
Это понятно, вопрос в том, как заставить ИО отображать выпадающий список свойств класса?
В данном примере я хочу грамотно увидеть свойство TColors:

type TColors = class private FTableColor, FTableBgrndColor, FTableBrdrColor, FTableFxdBgrndColor, FTableFxdBrdrColor : TColor; published // цвет таблиц property TableColor : TColor read FTableColor; // цвет фона таблиц property TableBgrndColor : TColor read FTableBgrndColor; // цвет разделителя таблиц property TableBrdrColor : TColor read FTableBrdrColor; // цвет фона фиксированных ячеек таблиц property TableFxdBgrndColor : TColor read FTableFxdBgrndColor; // цвет разделителя фиксированных ячеек таблиц property TableFxdBrdrColor : TColor read FTableFxdBrdrColor; end; type TMyStringGrid = class(TStringGrid) private { Private declarations } FShowSelecting : Boolean; FColors : TColors; protected { Protected declarations } public { Public declarations } published { Published declarations } constructor Create(AOwner : TComponent); override; property Colors : TColors read FColors write FColors;
Что я сделал не так?

← →
Le Taon (2002-09-28 16:07) [3]

TColors = class(TPersistent)

> TColors = class(TPersistent)

Точно, забыл сказать про это.

← →
Le Taon (2002-09-28 16:18) [5]

Да, ещё:
property Colors: TColors read FColors write SetColors;
//begin
// FColors.Assign(Value)
//end;

Написание компонента Найти похожие ветки