Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Создание новых компонент

586
02 октября 2001 года
magika
4 / / 20.12.1999
1. Как в Delphi у вновь созданных компонент изменить иконку, которая отображается в палитре компонент?
2. У пользовательского компонента свойство типа record. Оно published. В Object Inspector не отображается. Хотелось бы, чтобы отображалось с "+" слева с возможностью раскрытия в виде дерева. Как это сделать?
448
02 октября 2001 года
Mr. API
105 / / 20.06.2000
1)
Изображение должно быть размером 24x24 пикселя.
Это изображение надо сохранить в формате файла DCR. А вск это тот же самый res.
Так что достаточно только переименовать.
Если имя компонента TMyComponent, то имя пиктограммы TMYCOMPONENT.
Если имя модуля компонента mycomponent.pas,
то имя ресурса mycomponent.dcr.

2)А в чем проблема?
586
03 октября 2001 года
magika
4 / / 20.12.1999
Привет! Спасибо что откликнулся на форуме...

On 2001-10-02 14:30, Mr. API wrote:
1)...

2)А в чем проблема?

Ну, проблема в том, что мой published property типа record по-идее ДОЛЖЕН отображаться. Желательно в виде дерева, чтоб в Object Inspector можно было коректировать поля записи...
ну, типа такого:
-------------------------------------
type
MyType = record
field1: integer;
field2: string;
end;

MyClass = class(TComponent)
private
fa: MyType;
....
published
a: MyType read fa write fa;
....
end;

И в Object Inspector "a" нет. Жаль. А хочу чтоб было, причем иерархически раскрывалось чтоб можно было ввести field1 и field2.
-------------------------
Magika
448
03 октября 2001 года
Mr. API
105 / / 20.06.2000
type
MyType = record
field1 integer;
field2 string;
end;

MyClass = class(TComponent)
private
fa MyType;
....
published
a MyType read fa write fa;
....
end;
-------------------------
Magika
[/quote]

Та не указала, что a это свойство.
В твоем примере надо было так.

type
MyType = record
field1 integer;
field2 string;
end;

MyClass = class(TComponent)
private
fa MyType;
....
published
property a MyType read fa write fa;
....
end;

Вроде так.
Если не сработает - пиши, постараюсь ответить.

С уважением, Mr. API
449
25 октября 2001 года
Fantasist
124 / / 20.06.2000
Ага. Только Delphi не знает как рекорды редактировать, а потому MyType надо объявлять примерно так

TMyType=class
fa:integer;
fb:string;
published
property a:integer read fa write fa;
property b:string read fb write fb;
end;
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог