IWxWorkspace.StickyShapes

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Objects: ITabObjects;
    Shape1, Shape2, Link: IWxShape;
    WSP: IWxWorkspace;
    PrxShape: IPrxShape;
    Placement: IGxRectF;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем регламентный отчёт
    Report := mb.ItemById("REPORT_STICKYSHAPES").Edit As IPrxReport;
    // Получаем активный лист отчета
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    // Получаем коллекцию объектов отчета
    Objects := Tab.Objects;
    // Получаем первый объект
    Shape1 := (Objects.Item(0) As IPrxShape) As IWxShape;
    // Получаем рабочее пространство, к которому относится объект
    WSP := Shape1.Workspace;
    // Разрешаем крепление объектов по соединительным точкам
    WSP.StickyShapes := True;
    // Получаем второй объект
    Shape2 := (Objects.Item(1) As IPrxShape) As IWxShape;
    // Создаем линию
    Placement := New GxRectF.Create(20, 20, 50, 50);
    PrxShape := Objects.Add("PrxShape", Placement) As IPrxShape;
    PrxShape.Type := PrxShapeType.StraightLink;
    Link := PrxShape As IWxShape;
    // Соединяем два объекта с помощью линии
    WSP.GlueConnectionPoints(Shape1, 1, Link, 0);
    WSP.GlueConnectionPoints(Shape2, 0, Link, 1);
    // Сохраняем отчет
    (Report As IMetabaseObject).Save;
End Sub UserProc;