Opens a standard dialog box of object history.
When the command is executed, the object changes dialog box opens for objects. If the object is added to the version control system, a dialog box opens with publication history for the object.
Executing the example requires a form, the Button1 button on the form and a unit with the UserFunction identifier.
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;
Clicking the button opens a standard unit change dialog box. If the unit is added to the version control system, a dialog box opens showing the history of unit publications.
See also: