Работа с компонентами

← →
nstur (2003-10-14 13:34) [0]

Подскажите, как сделать, чтобы при двойном клике по компоненту вызывать редактор свойств конкретного свойства.

← →
Юрий Федоров (2003-10-14 13:36) [1]

см. TComponentEditor

← →
Skier (2003-10-14 13:39) [2]

1)
RegisterPropertyEditor(...)

2)
function TYourPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := [...,paDialog,...];
end;

← →
Skier (2003-10-14 13:40) [3]

Мда... вопрос надо внимательней читать ! [2] - отменяется !

← →
nstur (2003-10-14 13:56) [4]

В контекстном меню появился пункт, но он не отрабатывает.
Что не правильно?
{ TKadrGuideEditor }
procedure TKadrGuideEditor.ExecuteVerb(Index: Integer);
begin
inherited ExecuteVerb(0);
end;

function TKadrGuideEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result := "KadrGuide Designer...";
else Result := "";
end;
end;

function TKadrGuideEditor.GetVerbCount: Integer;
begin
Result := 1;
end;

← →
Skier (2003-10-14 13:59) [5]

procedure TKadrGuideEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0 : ShowMessage("TKadrGuideEditor.ExecuteVerb");
end; //case
end;

← →
nstur (2003-10-14 14:06) [6]

Все хорошо мессага отрабатывает. Но как запустить редактор?
Само свойство TCollection.

← →
Skier (2003-10-14 14:13) [7]

TCollectionProperty

← →
Skier (2003-10-14 14:18) [8]

+ ShowCollectionEditor(...);

← →
nstur (2003-10-14 15:08) [9]

Спасибо, разобрался. Долго и упорно искал ShowCollectionEditor.
Если можно подскажите, как подключить редактор свойств для TImageIndex, а то он работает только в коллекциях.

procedure TKadrGuideEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0 : ShowCollectionEditor(Designer,Component,
(Component as TKadrGuide).KadrDataList, "KadrDataList");
end; //case
end;

← →
Skier (2003-10-14 15:23) [10]

>nstur (14.10.03 15:08) [9]

> Если можно подскажите, как подключить редактор свойств для
> TImageIndex

RegisterPropertyEditor(...)

> а то он работает только в коллекциях.

???

← →
nstur (2003-10-14 15:30) [11]

RegisterPropertyEditor(TypeInfo(TImages{Index}), TNsLabel, "ImageIndex",TPropertyEditor);
Ранее пробовал так, но чую лажа.

← →
Skier (2003-10-14 15:32) [12]

RegisterPropertyEditor(TypeInfo(TImages{Index}),
TNsLabel, "ImageIndex",T YourPropertyEditor);

← →
nstur (2003-10-14 15:43) [13]

Дело в том, что нужен стандартный. И как правиль оформить TypeInfo(TImages{Index}),

← →
Skier (2003-10-14 15:46) [14]

> Дело в том, что нужен стандартный

У TImageIndex уже есть стандартный.

← →
nstur (2003-10-14 15:50) [15]

Картинки не выводятся, а выводятся только в коллкциях.

← →
nstur (2003-10-14 15:52) [16]

Может вместо TPropertyEditor нужно указывать другой, который я не нашел?

← →
Skier (2003-10-14 15:52) [17]

>nstur (14.10.03 15:50) [15]
В каких, блин, коллекциях ? И какие-такие "Картинки" ?

← →
nstur (2003-10-14 16:01) [18]

В D6, к примеру у TListView.Columns в ImageIndex выпадает список возможных элементов с "картинкой", которые есть у пристыкованного TImageList`а.
Простите если что-то непонятно.

← →
Skier (2003-10-14 16:03) [19]

>nstur (14.10.03 16:01) [18]
Ну и зачем же редактор этого св-ва вообще трогать ?
Простите если что-то непонятно.

← →
nstur (2003-10-14 16:10) [20]

Дело в том, что содержимое TImageList у меня очень большое (134 элемента) и достаточно трудоемко каждый раз залазить в TImageList находить какой картинке принадлежит определенный номер, а затем устанавливать его в ImageIndex.

← →
Skier (2003-10-14 16:15) [21]

>nstur (14.10.03 16:10) [20]
Если хочешь написать свой редактор этого св-ва то
пиши так
RegisterPropertyEditor(TypeInfo(TImageIndex),
TNsLabel, "ImageIndex",T YourPropertyEditor);

T YourPropertyEditor - это класс твоего, который будет отличаться от стандартного.

← →
Skier (2003-10-14 16:18) [22]

очепятка...
TYourPropertyEditor - это класс твоего редактора свойств, который будет отличаться от стандартного.

← →
nstur (2003-10-14 16:32) [23]

Хотелось бы стандартный.

← →
nstur (2003-10-14 16:35) [24]

А если свой, то от какого наследовать. Я не нашел тип редактора TimageIndex.

← →
Skier (2003-10-14 16:35) [25]

>nstur (14.10.03 16:32) [23]
Ты послушай себя : "Хочу пользовательский, но чтобы он был стандартным".

← →
nstur (2003-10-14 16:40) [26]

Спасибо, пока.

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