Steema Central

Code: Select all

type
  TCountry = class
    Name: String;
    Value: Double;
  end;

implementation

{$R *.dfm}

uses TeeWorldSeries;

var MyCountries: array of TCountry;
    Series1: TWorldSeries;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  Chart1.View3D:=False;
  Chart1.Legend.Visible:=False;

  Series1:=TWorldSeries.Create(self);
  Chart1.AddSeries(Series1);

  Series1.Map:=TWorldMap(6);

  //populate array of countries with random values
  SetLength(MyCountries,16);
  j:=0;
  for i:=0 to Series1.Count-1 do
  begin
    if (j=0) or (MyCountries[j-1].Name<>Series1.Labels[i]) then
    begin
      MyCountries[j]:=TCountry.Create;
      MyCountries[j].Name:=Series1.Labels[i];
      MyCountries[j].Value:=random*20;
      Inc(j);
    end;
  end;
end;

//use array of countries to populate series
procedure TForm1.Button1Click(Sender: TObject);
var i, j: Integer;
begin
  for i:=0 to Series1.Count-1 do
  begin
    for j:=0 to High(MyCountries) do
    begin
      if Series1.Labels[i]=MyCountries[j].Name then
      begin
        Series1.MandatoryValueList[i]:=MyCountries[j].Value;
        break;
      end;
    end;
  end;

  Chart1.Repaint;
end;

Code: Select all

(Chart1.Tools.Add(TMarksTipTool) as TMarksTipTool).Style:=smsLabelValue;