Steema Central

Code: Select all

uses Chart, TeeMapSeries, TeePng;

var Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1:=TChart.Create(Self);

  with Chart1 do
  begin
    Parent:=Self;
    Align:=alClient;
    Color:=clWhite;
    Gradient.Visible:=False;
    Walls.Back.Color:=clWhite;
    Walls.Back.Gradient.Visible:=False;
    Legend.Hide;
    View3D:=False;

    TMapSeries(AddSeries(TMapSeries)).FillSampleValues;

    OnAfterDraw:=Chart1AfterDraw;
  end;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var i: Integer;
    map: TMapSeries;
    image: TPicture;
begin
  if not Assigned(Chart1) or (Chart1.SeriesCount<0) then
     Exit;

  image:=TPicture.Create;
  image.LoadFromFile('D:\tmp\transp.png');
  map:=TMapSeries(Chart1[0]);
  for i:=0 to map.Count-1 do
  begin
    Chart1.Canvas.ClipPolygon(map.Polygon[i].GetPoints, Length(map.Polygon[i].GetPoints));
    Chart1.Canvas.StretchDraw(map.Polygon[i].Bounds, image.Graphic);
    Chart1.Canvas.UnClipRectangle;
  end;
end;