выбор цвета в окне свойств индикатора

[Алексей]

Подскажите плиз, как в окне свойств индикатора сделать выбор цвета какой-нибудь Hline или Vline, чтобы можно было вставить в строку

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

ObjectSet(MyLine, OBJPROP_COLOR, MyColor);

в МТ4 это выглядит просто:

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

extern color  MyColor   = Green;

а в FT?

[Terranin]

Подскажите плиз, как в окне свойств индикатора сделать выбор цвета какой-нибудь Hline или Vline, чтобы можно было вставить в строку

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

ObjectSet(MyLine, OBJPROP_COLOR, MyColor);

в МТ4 это выглядит просто:

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

extern color  MyColor   = Green;

а в FT?

В FT это тоже выглядит просто, при создании видимого буфера автоматически создается к нему и параметр выбора цвета.

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

  IndicatorBuffers(1);
  SetIndexBuffer(0, MapBuffer);
  
  SetIndexStyle(0, ds_Line, psSolid, 1, clRed);   // задать стиль и цвет
  SetIndexLabel(0, 'T3 Tilson''s MA');  // задать имя параметра

если пропустить последние 2 строчки то стиль и имя будут выбраны по умолчанию

[Алексей]

Не пойму, как буфер применить к объекту? Мне нужна например только 1 вертикальная линия, но цвет ей нужно выбрать в окне параметров.

[Terranin]

Не пойму, как буфер применить к объекту? Мне нужна например только 1 вертикальная линия, но цвет ей нужно выбрать в окне параметров.

Я просто не понял вопрос.
Эта возможность не документировалась но можно создать новую опцию так:

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

type
  //----------------------------------
  // line style
  //----------------------------------
  PLineStyleRec = ^TLineStyleRec;
  TLineStyleRec = packed record
    color: TColor;
    style: TPenStyle;
    width: integer;
    DrawingStyle: TDrawStyle;
    Symbol: integer;
    xoffs, yoffs: integer;
  end;


var
  LineStyle: TLineStyle;

...

  RegOption('LineStyle', ot_LineStyle, @LineStyle);
  LineStyle.color := ...
  LineStyle.style := ...

[Алексей]

Вот теперь понятно. СПАСИБО

[Алексей]

Совсем другое дело, то что нужно, еще раз спасибо, только
дописать в строчке Rec

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

var
  LineStyle: TLineStyleRec;

и убрать значок @:

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

  RegOption('LineStyle', ot_LineStyle, LineStyle);

[Terranin]

Совсем другое дело, то что нужно, еще раз спасибо, только
дописать в строчке Rec

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

var
  LineStyle: TLineStyleRec;

и убрать значок @:

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

  RegOption('LineStyle', ot_LineStyle, LineStyle);

Ну я по памяти писал, бывает.