EasyLanguage

[Gelium]

Вывод в лог инфы о текстовых метках в окне графика:

Код: [Выделить]

for Value1 = 0 to DrawingObjects.Items[ObjectCategory.TextLabel].Count - 1 begin
xText = DrawingObjects.Items[ObjectCategory.TextLabel].Items[Value1] astype TextLabel;
if xText.PointValue istype DTPoint then
Print("Text ", xText.TextString,
      " Date ", (xText.PointValue astype DTPoint).DateTimeOfBar.ElDate:7:0,
      " Time ", (xText.PointValue astype DTPoint).DateTimeOfBar.ElTime:4:0,
      " Price ", (xText.PointValue astype DTPoint).Price:7:0);
end;