Редакторый войст умирают.

← →
malkolinge © (2003-04-11 17:46) [0]

RegisterComponents("Vimas New Visual", [TvmsDBTreeView]); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "RootField", TvmsRootFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "KeyField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "ListField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "ImageField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "ParentField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "ChildField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeView, "QuickSearchField", TvmsListFieldProperty); RegisterComponents("Vimas New Visual", [TvmsDBTreeComboBox]); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "RootField", TvmsRootFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "KeyField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "ListField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "ImageField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "ParentField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "ChildField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBTreeComboBox, "QuickSearchField", TvmsListFieldProperty); RegisterComponents("Vimas New Visual", [TvmsDBMultiLookUpBox]); RegisterPropertyEditor(TypeInfo(string), TvmsDBMultiLookUpBox, "KeyField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBMultiLookUpBox, "ListField", TvmsListFieldProperty); RegisterPropertyEditor(TypeInfo(string), TvmsDBMultiLookUpBox, "QuickSearchField", TvmsListFieldProperty); RegisterComponents("Vimas New Modificators", [TvmsIndependentDataSetModifier, TvmsCustomModification]); RegisterComponents("Vimas Dev Tools", [TvmsDialogStrategyDirector, TvmsMemData, TvmsIbxLogin]); RegisterComponents("Vimas New Visual", [TvmsUpDownListBox, TvmsMenuButton, TvmsGridCard, TvmsBitBtn, TToolsGrid, TVimasDBTelePusik, TVmsDBFieldCaption]);

Проблема в том, что для ОДНОИМЕННЫХ свойств остальных(даже стандартных) компонентов редакторы свойств попросту отрубаються. Что делать ? Помогите а ?

← →
Skier © (2003-04-11 17:55) [1]

Объявить свой строковые (в данном случае) типы

Например :

TYourRootField = type string;
TYourKeyField = type string;

//...........................

RegisterPropertyEditor(TypeInfo(TYourRootField), TvmsDBTreeView, "RootField", TvmsRootFieldProperty);

RegisterPropertyEditor(TypeInfo(TYourKeyField), TvmsDBTreeView, "KeyField", TvmsListFieldProperty);

//...........................

← →
malkolinge © (2003-04-11 17:58) [2]

И компоненты переписывать ? точнее интерфесы менять...мда...спасибо огромное но неужели нету лдругого решения ?

← →
malkolinge © (2003-04-14 13:13) [3]

Неужели никто не знает ? :( все теперь точно попрут с работы :(

← →
Skier © (2003-04-14 13:20) [4]

>malkolinge
1) см. Skier © (11.04.03 17:55)
2) можно переименовать св-ва, которые по совпадают с дельфийскими
3) нужно думать когда заваёшь имена свойств...ну,...чтобы не
плакать потом...:)
4)
> все теперь точно попрут с работы :(
Мои соболезнования :)

← →
Anatoly Podgoretsky © (2003-04-14 13:35) [5]

Пункт 3

← →
malkolinge © (2003-04-14 13:52) [6]

Слушай но стандартные имена ДЛЯ стандартных свойст - правильно..Иначе вообще нельзя !

← →
malkolinge © (2003-04-14 13:56) [7]

> Anatoly Podgoretsky © (14.04.03 13:35)
> Пункт 3

Если я пишу грид ДБ. С НУЛЯ.. То КАк я должен назвать DataField ?

← →
malkolinge © (2003-04-14 14:05) [8]

> Anatoly Podgoretsky ©

Вы при разработке СВОИХ компонент тоже так делаете ? Только честно ?

← →
REA © (2003-04-14 14:52) [9]

Насчет думать когда называешь: сколько раз пытался что-то сделать сам (например TObjectList, TClassList, TColorBox), а Borland в следующей версии компилятора свои классы так же называет. И попробуй ему докажи, что он не прав.

← →
malkolinge © (2003-04-14 14:55) [10]

TColorBox - Сие имена классов. А имена свойств...Определение инкапусуляции помните ? так вот запрет использования для имен свойств, уже где-то используемых - прямое противоречие этой концепции

>REA
Советую в следующий раз использовать какой-нибудь префикс
(кстати он есть у всех мало-мальски серьёзных библиотек :
RX, LMD,...)
Например так :

TREAObjectList, TREAClassList, TREAColorBox :)

> TREAObjectList, TREAClassList, TREAColorBox :)

С эти согласен на все сто но все таки :

procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string; EditorClass: TPropertyEditorClass);

Из описания, следует что для ЛЮбого Свйоства Любого класса любого типа можно зарегестрировать свой редактор свойсв....Так чегож тогда не понимаю я ?

Так никто и ничего не придумал ?

Ты хочешь ничего не переписывать и при этом чтобы все работало?
Вряд ли получится.
Решение типа TYourRootField = type string; на мой взгляд наиболее логично.
А попроще примера нет? По-идее класс там явно указан и не должно быть пересечений.

Редакторый войст умирают. Найти похожие ветки