Steema Central

Posted: **Wed Dec 08, 2004 10:51 pm**

Is there an example program available that shows the surfacew chart. We have a small program to illustrate the surface as below:

The parameters are:
3Dimensions:checked;
Othoganal:Unchecked;
Rotation:=0;
Elevation:=0;
zoom:=100%

When we execute this and draw the chart, the chart is blank. If we hjad an example, that would help.

Thanks,

Natalie

type
TForm1 = class(TForm)
Chart1: TChart;
Button1: TButton;
Series1: TSurfaceSeries;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Procedure DrawChart;
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
Procedure Tform1.drawchart;
var
x,y:Integer;
value:Extended;
Begin
for x:=1 to 90 Do
for y:=1 to 90 Do Begin
value:=x*y;
series1.addxyz(x,y,value);
end;
end;//dreawchart
procedure TForm1.Button1Click(Sender: TObject);
begin
drawchart;
end;
**********************************************************

Posted: **Wed Dec 08, 2004 11:53 pm**

Hi Jennifer,

a simple example could be :

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
x,z:Integer;
value:Extended;
Begin
for x:=1 to 90 Do
for z:=1 to 90 Do Begin
value:=x*z;
series1.addxyz(x,value,z);
end;

You can see more examples and info in the Demo Features project (included in the TeeChart Pro installation) and in the Help file.

Posted: **Fri Dec 10, 2004 1:39 am**

It works perfect! Thanks-

We downloaded Teechart VII this eveniong and looking forward tom it.

Jennifer

Steema Central

surface chart

surface chart

Thanks-