IMapBackground.Color

Fore Syntax

Color: IGxColor;

Fore.NET Syntax

Color: Prognoz.Platform.Interop.Drawing.GxColor;

Description

The Color property determines legend background solid fill color.

Comments

This property is relevant if the IMapBackground.Type property is set to MapBackgroundType.Color.

Fore Example

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.

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;
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 legend solid fill type
    background.Type := MapBackgroundType.Color;
    // Set legend fill color
    background.color := New GxColor.CreateRGB(120, 0, 120);
    // Refresh map
    map.Refresh;
End Sub UserPRoc;

After executing the example legend background color is changed.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example. Use Fore.NET analogs instead of Fore components.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Sub UserProc();
Var
    regrep: IPrxReport;
    sheet: IPrxSheet;
    table: IPrxTable;
    objects: ITabObjects;
    map: IMap;
    legend: IMapLegend;
    background: IMapBackground;
    color: GxColorClass_2 = New GxColorClass_2();
Begin
    // Get regular report
    regrep := UiReportNet1.ReportUi.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 legend solid fill type
    background.Type := MapBackgroundType.mbtColor;
    // Set legend fill color
    Color.CreateRGB(120, 0, 120);
    background.Color := color;
    // Refresh map
    map.Refresh();
End Sub UserProc;