MetabaseObject: IMetabaseObjectDescriptor;
The MetabaseObject property determines the repository object that is displayed on the workspace.
Executing the example requires a form with the Button1 button, the WorkspaceBox component named WorkspaceBox1 and the UiWorkspaceObject or UiWorkspace component that is used as a data source for WorkspaceBox1.
Add links to the Andy, ExtCtrls, Forms, Ui, and Workspace system assemblies.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MB: IMetabase;
Shape: IWxRectangle;
WxObj: IWxMetabaseObject;
Begin
MB := MetabaseClass.Active;
WorkspaceBox1.View.BeginUpdate;
Shape := WorkspaceBox1.View.Workspace.CreateRectangle;
Shape.Style.TextPosition := WxTextPosition.Bottom;
Shape.CreateExtension("KeWsp.WxMetabaseObject");
Shape.Id := "New_Shape";
WxObj := Shape.Extension As IWxMetaBaseObject;
WxObj.MetabaseObject := MB.ItemById("Etl");
WorkspaceBox1.View.EndUpdate;
End Sub Button1OnClick;
After executing the example, on clicking the button the object of repository with the Etl identifier is added to the workspace.
See also: