Steema Central

Code: Select all

var MDown: TPoint;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;

  Chart1.AddSeries(TCandleSeries).FillSampleValues(35);

  for i:=0 to 2 do
  begin
    with Chart1.Tools.Add(TFibonacciTool) as TFibonacciTool do
    begin
      StartX:=(Chart1[0] as TCandleSeries).DateValues[i*10];
      StartY:=(Chart1[0] as TCandleSeries).CloseValues[i*10];
      EndX:=(Chart1[0] as TCandleSeries).DateValues[(i+1)*10];
      EndY:=(Chart1[0] as TCandleSeries).CloseValues[(i+1)*10];
      DrawStyle:=fsRetracement;
    end;
  end;
end;

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MDown.X:=X;
  MDown.Y:=Y;
end;

procedure TForm1.Chart1Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to Chart1.Tools.Count-1 do
  if Chart1.Tools[i] is TFibonacciTool then
  with Chart1.Tools[i] as TFibonacciTool do
  begin
    if ((DrawStyle=fsFan) or (DrawStyle=fsArc)) then
    begin
      if PointInLine(MDown, Chart1.Axes.Bottom.CalcPosValue(StartX), Chart1.Axes.Left.CalcPosValue(StartY),
                     Chart1.Axes.Bottom.CalcPosValue(EndX), Chart1.Axes.Left.CalcPosValue(EndY)) then
      begin
        Active:=false;
        exit;
      end;

      if DrawStyle=fsFan then
      begin
      end
      else //DrawStyle=fsArc
      begin
      end;
    end
    else
    begin //DrawStyle=fsRetracement
      if PointInLine(MDown, Chart1.Axes.Bottom.CalcPosValue(StartX), Chart1.Axes.Left.CalcPosValue(StartY),
                     Chart1.Axes.Bottom.CalcPosValue(EndX), Chart1.Axes.Left.CalcPosValue(StartY)) or
         PointInLine(MDown, Chart1.Axes.Bottom.CalcPosValue(StartX), Chart1.Axes.Left.CalcPosValue(EndY),
                     Chart1.Axes.Bottom.CalcPosValue(EndX), Chart1.Axes.Left.CalcPosValue(EndY)) then
      begin
        Active:=false;
        exit;
      end;
    end;
  end;
end;