IGxRectF.Bottom

Fore Syntax

Bottom: Double;

Fore.NET Syntax

Bottom: double;

Description

The Bottom property determines the bottom margin of the real rectangle.

Comments

To determine the top border of the real rectangle, use the IGxRectF.Top property.

Fore Example

Executing the example requires that repository contains a regular report with the IGXR_REG_REP identifier. The file system should contain the C:\1.bmp image.

Add links to the Drawing, Metabase, Report, Tab system assemblies.

Sub UserProc;
Var
    Mb: IMetabase;
    Regrep: IPrxReport;
    Obj: ITabObject;
    RectF: IGxRectF;
    Sheet: IPrxSheet;
    Table: IPrxTable;
    Tsheet: ITabSheet;
Begin
    // Get current repository
    Mb := MetabaseClass.Active;
    // Get regular report
    Regrep := Mb.ItemById("IGXR_REG_REP").Edit As IPrxReport;
    // Create a rectangle
    RectF := New GxRectF.Create(0.5,0.87,10.56,14.23);
    // Get regular report sheet
    Sheet := regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Add an image to the regular report sheet
    Obj := TSheet.Objects.Add("PrxPicture", RectF);
    (Obj As IPrxPicture).Image := GxImage.FromFile("C:\1.bmp");
    // Determine borders
    RectF.Bottom := 23.46;
    RectF.Right := 30.32;
    Obj.Rectangle := RectF;
    (Regrep As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the regular report sheet contains the image. The image source is the C:\1.bmp file. The image will be created at the top left corner. The distance between top report border and bottom image border is 23.46 pixels, the distance between left report border and right image border is 30.32 pixels.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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
    // Get current repository
    Mb := Params.Metabase;
    // Get regular report
    Regrep := Mb.ItemById["IGXR_REG_REP"].Edit() As IPrxReport;
    // Create a rectangle
    RectF.Create(0.5,0.87,10.56,14.23);
    // Get regular report sheet
    Sheet := regrep.Activesheet;
    Table := Sheet As IPrxTable;
    TSheet := Table.TabSheet;
    // Add an image to the regular report sheet
    Str := "PrxPicture";
    Obj := TSheet.Objects.Add(Str, RectF);
    (Obj As IPrxPicture).Image := Img.FromFile("C:\1.bmp");
    // Determine borders
    RectF.Bottom := 23.46;
    RectF.Right := 30.32;
    Obj.Rectangle := RectF;
    (Regrep As IMetabaseObject).Save();
End Sub;