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

【问题标题】：How to paint selected point on 3D surface?如何在 3D 表面上绘制选定点？
【发布时间】：2014-05-05 07:10:58
【问题描述】：

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

【问题讨论】：

我试图找到标准的方法或属性来显示选定的点，但是这个系列没有这个。其他方式，但错误的是添加两个线系列，但它们不能在 z 轴（和 x 轴，如果垂直）上移动。我没有 TeeChart 的源代码，看看它是如何在 Surface Nearest Tool 上实现的。

标签： delphi teechart

【解决方案1】：

如果您想突出显示鼠标下方的单元格，您可以使用TSurfaceNearestTool 突出显示TSurfaceSeries 单元格，如“All Features\Welcome !\Tools\Surface Nearest”中的示例所示功能演示程序：

Features Demo程序（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;

【讨论】：

我需要以编程方式突出显示一个点，而不是通过鼠标
我已经编辑了我的答案。见第二部分。