如何在3D表面上绘制选定点？

Question

如何在TeeChart 3D Surface上绘制选定的点？

Answer 1

• 如果要突出显示鼠标下方的单元格，可以使用TSurfaceNearestTool突出显示TSurfaceSeries单元格，如“所有功能\欢迎！功能演示程序中的\ Tools \ Surface Nearest“：

功能演示程序（Tee9New.exe）随附组件的安装，您也可以下载“TeeChart编译演示”here。

您只需要创建工具并为其指定曲面。即：

uses TeeSurfaceTool, TeeSurfa;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.AddSeries(TSurfaceSeries).FillSampleValues;

  (Chart1.Tools.Add(TSurfaceNearestTool) as TSurfaceNearestTool).Series:=Chart1[0];
end;

• 如果您知道要突出显示的单元格的ValueIndex ，则只需更改ValueColor[ValueIndex]属性即可。即：

uses TeeSurfa, TeeTools;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin    
  Chart1.Aspect.Zoom:=80;
  Chart1.Chart3DPercent:=100;

  with Chart1.AddSeries(TSurfaceSeries) as TSurfaceSeries do
  begin
    FillSampleValues;

    UseColorRange:=false;
    UsePalette:=false;
    for i:=0 to Count-1 do
      if (i mod 2 = 0) then
        ValueColor[i]:=clGreen;
  end;
end;