IGxFlowDocument.LoadFormattedText

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Rep: IPrxReport;
    Doc: IPrxFlowDocument;
    Text: String;
    Rect: IGxRectF;
    Obj: ITabObject;
    Objs: ITabObjects;
    TS: ITabSheet;
Begin
    Rep := UiReport1.Report;
    // Получим текущий форматированный текст
    TS := (Rep.ActiveSheet As IPrxTable).TabSheet;
    Objs := TS.Objects;
    Doc := Objs.Item(0).Extension As IPrxFlowDocument;
    Text := Doc.SaveFormattedText;
    Rect := New GxRectF.Create(0, 0, 50, 50);
    // Создадим новый форматированный текст
    Obj := Objs.Add("PrxFlowDocument", Rect);
    Doc := Objs.Item(1).Extension As IPrxFlowDocument;
    Doc.LoadFormattedText(Text);
End Sub Button1OnClick;