Форум по Forex Tester 5

Код: Выделить всё

library News;

uses
  SysUtils, Graphics, IndicatorInterfaceUnit,
  TechnicalFunctions in 'TechnicalFunctions.pas';

var
  sNews: string;
  ShiftFromRight: integer;

//---------------------------------------------------------------------------
// Initialize indicator
//---------------------------------------------------------------------------
procedure Init; stdcall;
begin
  // define properties
  IndicatorShortName('News');
  SetOutputWindow(ow_SeparateWindow);

  // register options
  RegOption('ShiftFromRight', ot_Integer, ShiftFromRight);
  SetOptionRange('ShiftFromRight', 1, MaxInt);
  ShiftFromRight := 200;
end;

//---------------------------------------------------------------------------
// Redraw indicator
//---------------------------------------------------------------------------
procedure OnParametersChange; stdcall;
begin      

end; 

//---------------------------------------------------------------------------
// Deinitialize indicator
//---------------------------------------------------------------------------
procedure Done; stdcall;
begin
  if ObjectExists('TextLabel_01') then
    ObjectDelete('TextLabel_01');
end;

//---------------------------------------------------------------------------
// Calculate requested bar
//---------------------------------------------------------------------------
procedure Calculate(index: integer); stdcall;
begin
  if not(ObjectExists('TextLabel_01')) then
  begin
    ObjectCreate('TextLabel_01', obj_Text, 0, Time(ShiftFromRight), 0);
    ObjectSetText('TextLabel_01', 'Test text', 12, 'Arial', clBlack);
  end
  else ObjectSet('TextLabel_01', OBJPROP_TIME1, Time(ShiftFromRight));
end;


exports

Init, Done, {OnParametersChange, }Calculate;

begin
end.