Bottom: Double;
Свойство Bottom определяет нижнюю границу вещественного прямоугольника.
Для определения верхней границы вещественного прямоугольника используйте свойство IGxRectF.Top.
Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «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 пикселей.
См. также: