Steema Central

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues();

  Chart1.Title.Text[0]:='Number of series: '+IntToStr(Chart1.SeriesCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chart1[1].Visible:=not Chart1[1].Visible;
  Chart1[2].Visible:=not Chart1[2].Visible;
  Chart1[3].Visible:=not Chart1[3].Visible;
end;

Code: Select all

Chart1[SeriesIndex].YValue[ValueIndex]

Code: Select all

type
  TSeriesAccess=class(TChartSeries);

procedure TForm1.FormCreate(Sender: TObject);
begin
//   Series1.ShowInEditor:=False;  // <-- New ( 7.06 )

   TSeriesAccess(Series3).InternalUse:=True; // <-- Old (7.0x)
end;

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, OHLChart, CandleCh, ExtCtrls, TeeProcs, Chart,
  StdCtrls, TeeComma, TeCanvas;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TCandleSeries;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    TeeCommander1: TTeeCommander;
    procedure FormCreate(Sender: TObject);
    procedure Chart1AfterDraw(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure DrawDarvasBox(StartIndex, EndIndex: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0,y0,x1,y1: Integer;
  Go: Boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.FillSampleValues();

  Chart1.View3D:=false;

  Go:=false;
end;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var
  transparency : TTeeTransparency;
  blend : TTeeBlend;
  BoxRect: TRect;
begin
  if Go then
  begin
    transparency:=70;

    BoxRect:=Rect(x0,y0,x1,y1);
    blend := Chart1.Canvas.BeginBlending(BoxRect, transparency);
    Chart1.Canvas.Brush.Color:=clGreen;
    Chart1.Canvas.Pen.Color:=clGreen;
    Chart1.Canvas.Rectangle(BoxRect) ;
    Chart1.Canvas.EndBlending(blend);
  end;
end;

procedure TForm1.DrawDarvasBox(StartIndex, EndIndex: Integer);
var i, MinIndex, MaxIndex: Integer;
begin
  if ((StartIndex>=0) and (EndIndex<Series1.Count)
      and (StartIndex<EndIndex)) then
  begin
    MinIndex:=StartIndex;
    MaxIndex:=StartIndex;

    for i:=StartIndex+1 to EndIndex do
    begin
      if (Series1.LowValues.Value[i]<Series1.LowValues.Value[MinIndex]) then
        MinIndex:=i
      else if (Series1.HighValues.Value[i]>Series1.HighValues.Value[MaxIndex]) then
        MaxIndex:=i;
    end;

    Chart1.Title.Text[0]:=IntToStr(MinIndex)+', '+IntToStr(MaxIndex);

    x0:=Series1.CalcXPos(StartIndex);
    y0:=Chart1.Axes.Left.CalcYPosValue(Series1.HighValues.Value[MaxIndex]);
    x1:=Series1.CalcXPos(EndIndex);
    y1:=Chart1.Axes.Left.CalcYPosValue(Series1.LowValues.Value[MinIndex]);

    Go:=true;
  end
  else
    begin
      Go:=false;
      ShowMessage('Wrong indexes');
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawDarvasBox(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
end;

end.