IGxRectF.Bottom

Синтаксис Fore

Bottom: Double;

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

Bottom: double;

Описание

Свойство Bottom определяет нижнюю границу вещественного прямоугольника.

Комментарии

Для определения верхней границы вещественного прямоугольника используйте свойство IGxRectF.Top.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «IGXR_REG_REP». В файловой системе должно быть изображение «C:\1.bmp».

Добавьте ссылки на системные сборки: Drawing, Metabase, Report, Tab.

Sub UserProc;
Var
    Mb: IMetabase;
    Regrep: IPrxReport;
    Obj: ITabObject;
    RectF: IGxRectF;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Tsheet: ITabSheet;
Begin
    // Получаем текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получаем регламентный отчет
    Regrep := Mb.ItemById("IGXR_REG_REP").Edit As IPrxReport;
    // Создаем прямоугольник
    RectF := New GxRectF.Create(0.5,0.87,10.56,14.23);
    // Получаем лист регламентного отчета
    Sheet := regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Добавляем на лист регламентного отчета изображение
    Obj := TSheet.Objects.Add("PrxPicture", RectF);
    (Obj As IPrxPicture).Image := GxImage.FromFile("C:\1.bmp");
    // Задаем границы
    RectF.Bottom := 23.46;
    RectF.Right := 30.32;
    Obj.Rectangle := RectF;
    (Regrep As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера на листе регламентного отчета будет создано изображение. Источник изображения - файл «C:\1.bmp». Изображение будет создано в верхнем левом углу. Расстояние от верхней границы отчета до нижней границы изображения будет составлять 23,46 пикселей, расстояние от левой границы отчета до правой границы изображения - 30,32 пикселей.

Пример Fore.NET

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

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

…

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Regrep: IPrxReport;
    Obj: ITabObject;
    RectF: GxRectF = New GxRectFClass();
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Tsheet: ITabSheet;
    Str: string;
    Img: GxImageClass = New GxImageClass();
Begin
    // Получаем текущий репозиторий
    Mb := Params.Metabase;
    // Получаем регламентный отчет
    Regrep := Mb.ItemById["IGXR_REG_REP"].Edit() As IPrxReport;
    // Создаем прямоугольник
    RectF.Create(0.5,0.87,10.56,14.23);
    // Получаем лист регламентного отчета
    Sheet := regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Добавляем на лист регламентного отчета изображение
    Str := "PrxPicture";
    Obj := TSheet.Objects.Add(Str, RectF);
    (Obj As IPrxPicture).Image := Img.FromFile("C:\1.bmp");
    // Задаем границы
    RectF.Bottom := 23.46;
    RectF.Right := 30.32;
    Obj.Rectangle := RectF;
    (Regrep As IMetabaseObject).Save();
End Sub;

См. также:

IGxRectF