Создание настроек 712

[oiko]

Может кто подскажет. Ситуация следующая на версии 712 до патча common05 настройки и папки создавались. После этого патча папки настроек TuneRef.AddPart создает папки, а TuneRef.AddTune настройки не создает, может синтакиси изменился?

Пример:

TuneRef.AddPart (ttUserTune,'UP.ZAR.MY','UP.ZAR','SAMPLE',0);
TuneRef.AddTune (ttUserTune, 'UP.ZAR.MY.1','UP.ZAR.MY','SAMLETUNE',ftdouble,'0','',0);

[edward_K]

там vih файл поменялси
crtune.vih
=====
//********************************************************************************
// objCreateTune - предоставляет доступ к функциям создания настроек
ObjInterface objCreateTune;
//--------------------------------------------------------------------------------
Function AddPart ( SysType: word; Code: string; CodeParent: string; Name: string; Help: word ): word;
//------------------------------------------------------------------------------
// следующие 3 функции являются клоном AddPart с явно указанным типом
Function AddPartA(Code: string; Name: string; Help: word ): word; // All = Sys+User, имя родителя должно быть установлено SetParent
Function AddPartS(Code: string; Name: string; Help: word ): word; // Sys, имя родителя должно быть установлено SetParent
Function AddPartU(Code: string; Name: string; Help: word ): word; // User, имя родителя должно быть установлено SetParent
//--------------------------------------------------------------------------------
Function AddTune ( SysType: word;
Code: string; CodeParent: string;
Name: string; ValType: word;
DefaultValue: string; Mask: string[20]; Help: word ): word;
//------------------------------------------------------------------------------
// следующие 2 функции являются клоном AddTune с явно указанным типом
Function AddTuneS(Code: string;
Name: string; ValType: word; // sys, имя родителя должно быть установлено SetParent
DefaultValue: string; Mask: string[20]; Help: word ): word;
Function AddTuneU(Code: string;
Name: string; ValType: word; // user,имя родителя должно быть установлено SetParent
DefaultValue: string; Mask: string[20]; Help: word ): word;
//--------------------------------------------------------------------------------
Function AddListTune (Code: string; ValueNo: word; Value: string): word;
Function AddList (ValueNo: word; Value: string): word; // AddListTune(

Function AddIntrTune (Code: string; Intr: string): word;
Function AddIntr (Intr: string): word;

Function SetRghTune (Code: string; Rgh: word): word;
Function SetRgh (Rgh: word): word;
Function MakeInvisible: word;

Procedure CallPostMetod (Code: string); // вызвать отложенный пост-метод для настройки
Procedure SetNextNumberTune (Num: word); // установить следующий номер настройки
Procedure SetParent(CodeParent: string); // установить родителя
Procedure SetParentAndNumber(CodeParent: string; Num: word); // установить родителя и номер настройки
Procedure DeleteTune (Code: string); // удалить настройку

Function SetCorpoType (Code: string; Tip: word): word; // установить Корпо-тип настройки
end;

//********************************************************************************
// ObjCreateTunePlugin - вызвается интерфейсом CreateTune в конце создания настроек.
// Сторонние разработчики могут написать свои реализации этого объектного интерфейса, чтобы дополнить список.
// Также можно использовать в патчах.
// Все реализации должны начинатся с префикса "CreateTunePatch_"
ObjInterface ObjCreateTunePlugin;
// эта процедура вызвается в момент построения списка настроек
// TuneRef - ссылка на интерфейс создания настроек используется, для обратной связи
Procedure AddTunePatch (TuneRef: objCreateTune);
function SetLastDateModTune: date; // установить дату модификации реестра
end;

VipInterface CreateTune implements objCreateTune #Licensed_Free;
===============

[oiko]

Спасибо проверил все работает

[Maverick]

Внимание! Опять поменялся VIH (common06)

Изменение касается названия переменной TuneRef
Теперь она называетсЯ TR

Вроде мелочь, но валит всю сборку