IWxSelectedShapes.Delete

Syntax

Delete(Index: Integer);

Parameters

Index. Shape index in the collection.

Description

The Delete method deletes a shape from the collection of selected shapes based on the defined index.

Example

Executing the example requires a form, a button named Button1 on the form, the WorkspaceBox component, and the UiWorkspace component named UiWorkspace1 that is used as a data source for WorkspaceBox.

Add links to the Andy, Drawing, Workspace system assemblies.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Wsp: IWxWorkspace;
    Rect: IWxRectangle;
    Ellipse: IWxEllipse;
    Pos: IGxPointF;
    SelectS: IWxSelectedShapes;
Begin
    Wsp := UiWorkspace1.WxWorkspace;
    Wsp.BeginUpdate;
    Rect := Wsp.CreateRectangle;
    Pos := New GxPointF.Create(20, 10);
    Rect.PinPosition := Pos;
    Rect.Text := "Rectangle";
    Ellipse := Wsp.CreateEllipse;
    Pos := New GxPointF.Create(40, 50);
    Ellipse.PinPosition := Pos;
    Ellipse.Text := "Ellipse";
    SelectS := Wsp.Views.Item(0).SelectedShapes;
    SelectS.Add(Rect);
    SelectS.Add(Ellipse);
    SelectS.Align(WxShapesAlignment.VerticalCenter);
    SelectS.Delete(0);
    Wsp.EndUpdate;
End Sub Button1OnClick;

After executing the example the created objects are aligned to the vertical center, and the rectangle is deselected.

See also:

IWxSelectedShapes