Вопрос по рисованию скриптом.
Добавлено: Вт июн 02, 2015 4:15 pm
Вот обрезанный до нельзя кусок скрипта. Рисует линию сразу на двух таймфреймах почему то... Хотя, надо чтобы только на одном конкретном. Неужели так и должно быть в тестере???
Кто может подсказать в чем дело- помогите, плиз!!!
//--------------------------------------------------------------------------
// Objects test - Example how to work with objects from Script
//--------------------------------------------------------------------------
library MM;
uses
Classes,
Windows,
SysUtils,
graphics,
Clipbrd,
ScriptInterfaceUnit;
//var
//-------------------------------------------
// Initialize Script
//-------------------------------------------
procedure Init; stdcall;
begin
ScriptShortName('MM2');
ScriptDescription('Objects'' MM output');
end;
//-------------------------------------------
// Deinitialize Script
//-------------------------------------------
procedure Done; stdcall;
begin
end;
//-------------------------------------------
// Execute Script
//-------------------------------------------
procedure Execute; stdcall;
begin
SetCurrencyAndTimeframe('EURUSD', 60);
if not(ObjectExists(' 1 ') ) then
ObjectCreate(' 1 ', obj_HLine, 0, 0, 1.001 );
ObjectSet(' 1 ',OBJPROP_PRICE1 , 1.001);
ObjectSet(' 1 ',OBJPROP_COLOR , clGreen);
ObjectSet(' 1 ',OBJPROP_WIDTH , 2);
end;
Кто может подсказать в чем дело- помогите, плиз!!!
//--------------------------------------------------------------------------
// Objects test - Example how to work with objects from Script
//--------------------------------------------------------------------------
library MM;
uses
Classes,
Windows,
SysUtils,
graphics,
Clipbrd,
ScriptInterfaceUnit;
//var
//-------------------------------------------
// Initialize Script
//-------------------------------------------
procedure Init; stdcall;
begin
ScriptShortName('MM2');
ScriptDescription('Objects'' MM output');
end;
//-------------------------------------------
// Deinitialize Script
//-------------------------------------------
procedure Done; stdcall;
begin
end;
//-------------------------------------------
// Execute Script
//-------------------------------------------
procedure Execute; stdcall;
begin
SetCurrencyAndTimeframe('EURUSD', 60);
if not(ObjectExists(' 1 ') ) then
ObjectCreate(' 1 ', obj_HLine, 0, 0, 1.001 );
ObjectSet(' 1 ',OBJPROP_PRICE1 , 1.001);
ObjectSet(' 1 ',OBJPROP_COLOR , clGreen);
ObjectSet(' 1 ',OBJPROP_WIDTH , 2);
end;