Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизНаписание компонента Найти похожие ветки
← →
^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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c