Image: IGxImage;
The Image property determines an image used as a legend background.
To determine the method of image positioning as a legend background, use IMapBackground.ImageDrawStyle.
Executing the example requires that the repository contains a form containing the components:
ReportBox with the ReportBox1 identifier.
UiReport with the UiReport1 identifier that is a data source for ReportBox1.
It is also required to have a regular report containing a map with enabled legend that is a data source for UiReport1. The file system must have the file C:\Image.png.
Add links to the Drawing, Map, Report, Tab system assemblies.
Sub UserProc;
Var
regrep: IPrxReport;
sheet: IPrxSheet;
table: IPrxTable;
objects: ITabObjects;
map: IMap;
legend: IMapLegend;
background: IMapBackground;
image: IGxImage;
Begin
// Get regular report
regrep := UiReport1.Report;
// Get map from regular report
sheet := regrep.Activesheet;
table := sheet As IPrxTable;
objects := table.TabSheet.Objects;
map := objects.Item(0).Extension As IMap;
// Get map legend
legend := map.View.Legend;
// Get legend background on map
background := legend.Background;
// Set fill type that is image
background.Type := MapBackgroundType.Picture;
// Create an image from file
Image := New GxImage.CreateFromFile("C:\Image.png");
// Set image
background.Image := image;
// Set the method of image positioning that is stretch
background.ImageDrawStyle := MapBackgroundImageDrawStyle.Stretch;
// Refresh map
map.Refresh;
End Sub UserProc;
After executing the example the image that is stretched to fill the entire legend area is used as a legend background.
See also: