Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
ВнизРабота с компонентами Найти похожие ветки
← →
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]Спасибо, пока.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.022 c