IWxSelectedShapes.Delete

Синтаксис

Delete(Index: Integer);

Параметры

Index. Индекс фигуры в коллекции.

Описание

Метод Delete удаляет фигуру из коллекции выделенных фигур по заданному индексу.

Пример

Sub Draw;

Var

UiWorkspace1: UiWorkspace;

Rect : IWxRectangle;

Ellipse : IWxEllipse;

pos : IGxPointF;

SelectS : IWxSelectedShapes;

Begin

UiWorkspace1.WxWorkspace.BeginUpdate;

Rect := UiWorkspace1.WxWorkspace.CreateRectangle;

pos := New GxPointF.Create(20,10);

Rect.PinPosition := pos;

Rect.Text := "Прямоугольник";

Ellipse := UiWorkspace1.WxWorkspace.CreateEllipse;

pos := New GxPointF.Create(40,50);

Ellipse.PinPosition := pos;

Ellipse.Text := "Эллипс";

SelectS := UiWorkspace1.WxWorkspace.Views.Item(0).SelectedShapes;

SelectS.Add(Rect);

SelectS.Add(Ellipse);

SelectS.Align(WxShapesAlignment.VerticalCenter);

SelectS.Delete(0);

UiWorkspace1.WxWorkspace.EndUpdate;

End Sub Draw;

После выполнения примера созданные объекты будут выровнены по вертикальному центру, и снято выделение с прямоугольника.

См. также:

IWxSelectedShapes