Steema Central

Code: Select all

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma link "TeeSurfa"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  for (int i = 0; i < 1327; ++i)
  {
    for (int j = 10; j < 187; ++j)
    {
      Series1->AddXYZ(0.105474 * i, Random(), j);
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
  Label1->Caption = Series1->Clicked(X, Y);
}
//---------------------------------------------------------------------------

Code: Select all

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 128
    Top = 264
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 418
    Height = 250
    Title.Text.Strings = (
      'TChart')
    View3D = False
    TabOrder = 0
    OnMouseMove = Chart1MouseMove
    ColorPaletteIndex = 8
    object Series1: TColorGridSeries
      Marks.Arrow.Visible = True
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Arrow.Visible = True
      Marks.Callout.Length = 0
      Marks.Visible = False
      EndColor = clBlue
      IrregularGrid = True
      MidColor = clYellow
      Pen.Visible = False
      StartColor = clRed
      XValues.Name = 'X'
      XValues.Order = loNone
      YValues.Name = 'Y'
      YValues.Order = loNone
      ZValues.Name = 'Z'
      ZValues.Order = loNone
    end
  end
end

Code: Select all

uses TeeSurfa;

procedure TForm1.FormCreate(Sender: TObject);
var Series1: TColorGridSeries;
    x, z   : Integer;
begin
  Series1:=TColorGridSeries.Create(Self);
  Series1.IrregularGrid:=True;

  Chart1.AddSeries(Series1);

  for x:=0 to 101 do
    for z:=0 to 2139 do
      Series1.AddXYZ(63.488 * x, Random, z);
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption:=IntToStr(Chart1[0].Clicked(X,Y));
end;