Steema Central

Code: Select all

uses Chart, TeeGDIPlus, TeCanvas, TeeSurfa;

var Chart1: TChart;
    Series1: TSurfaceSeries;

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

  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;

  Series1:=Chart1.AddSeries(TSurfaceSeries) as TSurfaceSeries;
  Series1.FillSampleValues(128);

  RadioGroup1Click(Self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var x, z: Integer;
begin
  for x:=0 to 127 do
    for z:=0 to 127 do
      Series1.Value[x,z]:=random(512);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: if Chart1.Canvas is TTeeCanvas3D then
          Chart1.Canvas:=TGDIPlusCanvas.Create;
    1: if Chart1.Canvas is TGDIPlusCanvas then
          Chart1.Canvas:=TTeeCanvas3D.Create;
  end;
end;