Bottom: Double;
The Bottom property determines the bottom margin of the real rectangle.
To determine the top border of the real rectangle, use the IGxRectF.Top property.
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.
See also: