forex tester2のインディケーターを自作

procedure Init; stdcall;
begin
  IndicatorShortName('i-session');
  SetOutputWindow(ow_ChartWindow);
  IndicatorBuffers(0);
  if not(ObjectExists('t1')) then
    begin
    print('create object t1 in Init');
    if ObjectCreate('t1', obj_Text, 0, 0, 0)
      then print('ok')
      else print('ng');
    ObjectSetText('t1', 'Init', 12, 'Arial', clYellow);
    end;
end;

procedure Done; stdcall;
begin
  ObjectDelete('t1');
end;

procedure Calculate(index: integer); stdcall;
begin
  if (index <> 0) or (Bars < 80) then
    exit;

  print(IntToStr(Timeframe()));

  if not(ObjectExists('t1')) then
    begin
    print('create object t1 in Calc');
    if ObjectCreate('t1', obj_Text, 0, 0, 0)
      then print('ok')
      else print('ng');
    end;
  ObjectSetText('t1', FormatDateTime('YYYY/MM/DD HH:MM:SS',Time(0)), 12, 'Arial', clYellow);
  ObjectSet('t1', OBJPROP_TIME1, Time(0));
  ObjectSet('t1', OBJPROP_PRICE1, High(0));
end;