Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.036 c
1-31764
Hammer1
2002-10-01 09:08
2002.10.10
DELPHI и VB


3-31644
svet
2002-09-20 09:12
2002.10.10
не получается вставить поле со списком в dbgrid (bc++)


1-31739
Шурик Ш
2002-09-30 16:19
2002.10.10
Передача значений между формами в заранее неизвестной последов.


14-31989
ребенок
2002-09-14 16:02
2002.10.10
Регистрация


14-31960
Ассемблерист
2002-09-15 05:25
2002.10.10
IRQ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский