Add a 3D Surface at run time

[S-ON-S]

Hi there,

How can I add a 3D Surface at run time?
And fill with x, y and z values?

Thanks in advance,

Dennis

[Yeray]

Hi,

All the series can be added at runtime. For example:

Code: Select all

uses TeeSurfa;

procedure TForm1.FormCreate(Sender: TObject);
var x, y, z: Integer;
begin
  Chart1.Aspect.Orthogonal:=false;
  Chart1.Chart3DPercent:=100;
  Chart1.Aspect.Zoom:=75;
  Chart1.Legend.Visible:=false;

  with Chart1.AddSeries(TSurfaceSeries) as TSurfaceSeries do
  begin
    for x:=0 to 20 do
      for z:=0 to 20 do
      begin
        y:=x*z;
        AddXYZ(x, y, z);
      end;
  end;
end;