Скачать: CL | DM;

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

← →
^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)

---

← →
evgeg ©   (2002-09-28 16:18) [4]

> TColors = class(TPersistent)

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c