Preview (Format: IGxImageFormat): IGxImage;
Preview [Format: Prognoz.Platform.Interop.Drawing.IGxImageFormat]: Prognoz.Platform.Interop.Drawing.GxImage;
Format. Формат изображения для предварительного просмотра отчета.
Свойство Preview возвращает изображение, используемое для предварительного просмотра отчетов.
Предварительный просмотр в виде изображения первой страницы доступен для отчетов, созданных с помощью инструментов «Аналитические панели», «Аналитические запросы (OLAP)», «Отчеты» и «Анализ временных рядов».
Для выполнения примера предполагается наличие формы, содержащей компонент Button с идентификатором «Button1», компонент TabSheetBox с идентификатором «TabSheetBox1» и компонент UiTabSheet с идентификатором «UiTabSheet1». Для компонента «TabSheetBox1» укажите источник данных «UiTabSheet1».
Пример является обработчиком события OnClick для компонента «Button1».
Добавьте ссылки на системные сборки «Metabase», «Drawing», «Report».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
mb: IMetabase;
doc: IGxDocument;
tab: ITabSheet;
img: IGxImage;
Placement: IGxRectF;
obj: ITabObject;
rep: IPrxReport;
Begin
mb := MetabaseClass.Active;
rep := mb.ItemById("REGULAR_REPORT").Bind As IPrxReport;
doc := rep As IGxDocument;
tab := UiTabSheet1.TabSheet;
img := doc.Preview(GxImageFormats.Png);
Placement := New GxRectF.Create(10,10,100,100);
obj := tab.Objects.Add("PrxPicture",Placement);
(obj As IPrxPicture).Image:= img;
End Sub Button1OnClick;
После выполнения примера на табличном листе будет размещено изображение, соответствующее первой странице отчета с идентификатором «REGULAR_REPORT».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
mb: IMetabase;
doc: IGxDocument;
tab: ITabSheet;
img: GxImage;
GxImage: GxImageClassClass = New GxImageClassClass();
GxImageFormats: GxImageFormatsClass = New GxImageFormatsClass();
Placement: GxRectF = New GxRectFClass();
obj: ITabObject;
rep: IPrxReport;
Begin
mb := Self.Metabase;
rep := mb.ItemById["REGULAR_REPORT"].Bind() As IPrxReport;
doc := rep As IGxDocument;
tab := uiTabSheetNet1.TabSheetUi.TabSheet;
img := doc.Preview[GxImageFormats.Png];
Placement.Create(10,10,100,100);
obj := tab.Objects.Add("PrxPicture",Placement);
(obj As IPrxPicture).Image:= img;
End Sub;
См. также: