IWxWorkspace.DeglueShapes

Синтаксис Fore

DeglueShapes(Shape1: IWxShape; Shape2: IWxShape);

Синтаксис Fore.NET

Prognoz.Platform.Interop.Andy.DeglueShapes(Shape1: Prognoz.Platform.Interop.IWxShape; Shape2: Prognoz.Platform.Interop.IWxShape);

Параметры

Shape1. Фигура;

Shape2. Фигура.

Описание

Метод DeglueShapes разъединяет две фигуры.

Пример Fore

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UserProc;

Var

ws: IWxWorkspace;

Shapes : IWxShapes;

Begin

Shapes := ws.Shapes;

ws.DeglueShapes(Shapes.Item(0), Shapes.Item(1));

End Sub UserProc;

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

Пример Fore.NET

Требования и результат соответствуют примеру на Fore.

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;

Sub UserProc;
Var
    ws: WxWorkspace;
    Shapes : IWxShapes;
Begin
    Shapes := ws.Shapes;
    ws.DeglueShapes(Shapes.Item[0], Shapes.Item[1]);
End Sub UserProc;

См. также:

IWxWorkspace