TContourSeries problem
Posted: Tue Nov 01, 2005 12:30 pm
When plotting with CONTOUR series the lines on the map are displayed not from the beginning of the axis. It happened when values are around 1 and have few decimal places. Code example below. How is it possible to fix the problem?
Alexander
procedure TForm1.btnStartClick(Sender: TObject);
var
k1,k2,step:integer;
x,y,z:real;
begin
step:=20;
series1.Clear;
series1.NumXValues:=step;
series1.NumZValues:=step;
memo1.Lines.Add('k1..k2...x...y...z');
for k1:=1 to step do begin
x:=k1/10;
for k2:=1 to step do begin
y:=k2;
z:=k1/10+k2/10;
series1.AddXYZ(x,z,y);
series2.AddXY(x,y,'',clRed);
series1.AutomaticLevels:=true;
end;
end;
end;
Alexander
procedure TForm1.btnStartClick(Sender: TObject);
var
k1,k2,step:integer;
x,y,z:real;
begin
step:=20;
series1.Clear;
series1.NumXValues:=step;
series1.NumZValues:=step;
memo1.Lines.Add('k1..k2...x...y...z');
for k1:=1 to step do begin
x:=k1/10;
for k2:=1 to step do begin
y:=k2;
z:=k1/10+k2/10;
series1.AddXYZ(x,z,y);
series2.AddXY(x,y,'',clRed);
series1.AutomaticLevels:=true;
end;
end;
end;