Вызов стандартного окна истории изменений объекта.
При выполнении команды для объектов будет выведено окно изменения объекта. Если объект добавлен в систему управления версиями, то будет выведено окно, содержащее историю публикаций объекта.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и модуля с идентификатором "UserFunction".
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Mb: IMetabase;
ObjDes: IMetabaseObjectDescriptor;
Target: IUiCommandTarget;
Begin
MB := MetabaseClass.Active;
ObjDes := MB.ItemById("UserFunction");
Target := WinApplication.Instance.GetObjectTarget(ObjDes);
Target.Execute("Object.History", Null);
End Sub Button1OnClick;
При нажатии на кнопку будет выведено стандартное окно изменений модуля. Если модуль добавлен в систему управления версиями, то будет выведено окно, содержащее историю публикаций модуля.
См. также: