Clear;
The Clear method clears a collection of selected shapes.
Executing the example requires a form with the Button1 button, the WorkspaceBox component and the UiWorkspace component named UiWorkspace1, which is a data source for WorkspaceBox.
Add links to the Andy, Drawing, Workspace system assemblies.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ws: IWxWorkspace;
Rect: IWxRectangle;
Ellipse: IWxEllipse;
pos: IGxPointF;
SelectS: IWxSelectedShapes;
Begin
ws := UiWorkspace1.WxWorkspace;
ws.BeginUpdate;
Rect := ws.CreateRectangle;
pos := New GxPointF.Create(20, 10);
Rect.PinPosition := pos;
Rect.Text := "Rectangle";
Ellipse := ws.CreateEllipse;
pos := New GxPointF.Create(40, 50);
Ellipse.PinPosition := pos;
Ellipse.Text := "Ellipse";
SelectS := ws.Views.Item(0).SelectedShapes;
SelectS.Add(Ellipse);
SelectS.Add(Rect);
SelectS.Align(WxShapesAlignment.VerticalCenter);
SelectS.Clear;
ws.EndUpdate;
End Sub Button1OnClick;
After executing the example the created objects are selected and aligned to the vertical center, following which the collection of selected shapes is cleared.
See also: