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

library RousokuTest;

uses
  SysUtils, Interfaces, DateUtils, graphics, IndicatorInterfaceUnit, TechnicalFunctions;

var
  HIGH,LOW,OPEN,CLOSE: TIndexBuffer;

procedure Init; stdcall;
begin
  IndicatorShortName('Rousoku Test');
  SetOutputWindow(ow_SeparateWindow);

  HIGH  := CreateIndexBuffer;
  LOW   := CreateIndexBuffer;
  OPEN  := CreateIndexBuffer;
  CLOSE := CreateIndexBuffer;

  IndicatorBuffers(4);
  SetIndexBuffer(0, OPEN);
  SetIndexStyle(0, ds_None, psSolid, 1, clLime);
  SetIndexLabel(0, 'Up bar color');
  SetIndexBuffer(1, HIGH);
  SetIndexStyle(1, ds_None, psSolid, 1, clBlack);
  SetIndexLabel(1, 'Up bar fill color');
  SetIndexBuffer(2, LOW);
  SetIndexStyle(2, ds_None, psSolid, 1, clLime);
  SetIndexLabel(2, 'Down bar color');
  SetIndexBuffer(3, CLOSE);
  SetIndexStyle(3, ds_ColoredCandles, psSolid, 1, clWhite);
  SetIndexLabel(3, 'Down bar fill color');
end;

procedure Calculate(index: integer); stdcall;
begin
       OPEN[index] := iOpen('USDJPY',TimeFrame,index);
       HIGH[index] := iHigh('USDJPY',TimeFrame,index);
       LOW[index] := iLow('USDJPY',TimeFrame,index);
       CLOSE[index] := iClose('USDJPY',TimeFrame,index);
end;

exports
Init, Calculate;

end.

4つ目のバッファだけに ds_ColoredCandles を指定したら表示できました。
最初の3つのバッファは色の指定だけが影響を与えると思われます。
USDJPY の始値、高値、安値、終値をバッファに設定していますが別の通貨の組み合わせを設定しても面白いかもしれません。
4つ目のバッファのプロパティを変更することで実線を点線にしたり線の太さを変更したりできます。
 
以下はUSDJPYのチャートのサブウィンドウに表示した例です。

Forex Tester 2の購入はこちらから。