IPrxPicture.AutoSize

Синтаксис Fore

AutoSize: Boolean;

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

AutoSize: Boolean;

Описание

Свойство AutoSize определяет, будет ли автоматически изменяться размер элемента управления до размеров изображения, размещенного в нем.

Комментарии

При значении True используется автоматическое изменения размера элемента управления до размеров изображения, при значении False изменение размеров не происходит.

По умолчанию свойство имеет значение False.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT», на листе которого размещено изображение.Подключите системные сборки: Metabase, Report, Tab, Drawing.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    Sheet: IPrxTable;
    Image: IPrxPicture;
    Pict: IGxImage;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("REGULAR_REPORT").Edit;
    Report := MObj As IPrxReport;
    Sheet := Report.Sheets.Item(0) As IPrxTable;
    Image := Sheet.TabSheet.Objects.Item(0).Extension As IPrxPicture;
    Pict := GxImage.FromFile("C:\Logo.jpg");
    Image.Image := Pict;    

    Image.AutoSize := True;
    Image.Center := True;
    Image.Proportional := False;
    Image.Stretch := False;
    MObj.Save;
End Sub Main;

В регламентном отчете изменится изображение на заданное в оригинальном размере, будет включено центрирование изображения, отключено сохранение пропорций и растягивание изображения до размеров элемента управления, в котором оно размещено.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Drawing;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    Sheet: IPrxTable;
    Image: IPrxPicture;
    Pict: GxImage = New GxImageClass_2();
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["REGULAR_REPORT"].Edit();
    Report := MObj As IPrxReport;
    Sheet := Report.Sheets.Item[0] As IPrxTable;
    Image := Sheet.TabSheet.Objects.Item[0].Extension As IPrxPicture;
    Pict.CreateFromFile("C:\Logo.jpg");
    Image.Image := Pict;
    Image.AutoSize := True;
    Image.Center := True;
    Image.Proportional := False;
    Image.Stretch := False;
    MObj.Save();
End Sub;

См. также:

IPrxPicture